Haiku Gallery

heart2 陳爽
'22 Sep 02

heart 陳爽
'22 Sep 02

\ tangram 七巧板 20220816 陳爽

\ 例0 \ 基塊拼成 方形
\ 例1 \ 基塊拼成 貓形
\ 例2 \ 基塊拼成 鵝形
\ 例3 \ 基塊拼成 船形
\ 例4 \ 影格動畫
\ 例5 \ 基塊各自轉動
\ 例6 \ 船行進退
\ 例7 \ 基塊翻轉 拼成 方形 與 貓型
\ 例8 \ 基塊翻轉 拼成 貓型 與 鵝形
\ 例9 \ 基塊翻轉 拼成 鵝形 與 船形

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

\ 定義 r， 為 從指定點 X,Y 至任意點 x,y 之距離。

: r ( X Y -- r )
  y swap ( X y Y        ) - 2 ** ( X [y-Y]**2        )
  x rot  ( [y-Y]**2 x X ) - 2 ** ( [y-Y]**2 [x-X]**2 )
  + ( [y-Y]**2+[x-X]**2 )  .5 ** ( [[y-Y]**2+[x-X]**2]**.5 ) ;
   
\ 定義 2pi， 為 兩倍的圓周率。

: 2pi pi pi + ;

\ 定義 座標轉換， 為 以 X,Y 為原點，座標軸轉向 A 角度 ( 0 右 .25 上 .5 左 .75 下 )
\ 然後產生任意點 p" 的位置 x",y"。

: 座標轉換 ( X Y A -- x" y" )
  >r 2dup r .01 > -rot        ( 洞 X Y )
  x rot - y rot -             ( 洞 x' y' )
  over 2 ** over 2 ** + .5 ** ( 洞 x' y' r' )
  1.04 * -rot                 ( 洞 r" x' y' )
  swap atan2 2pi / r> - 1 mod ( 洞 r" a )
  2pi * 2dup cos * -rot       ( 洞 x" r" a' )
  sin *                       ( 洞 x" y" ) ;

\ 定義 中間值， 為從某值 z0 到另一個值 z1 隨時間 t 的 sin 週期所取得的 對應之中間值 z。

: 中間值 ( z0 z1 -- z ) over - t pi mod sin * + ;

\ 定義 中間位置方向值， 為從某位置方向值 X0,Y0,A0 到另一個位置方向值 X1,Y1,A1
\ 隨時間 t 的 sin 週期所取得對應的 中間位置方向值 X,Y,A。

: 中間位置方向值 ( X0 Y0 A0 X1 Y1 A1 -- X Y A ) >r
  rot    r> ( X0 Y0 X1 Y1 A0 A1 )
  中間值 >r ( X0 Y0 X1 Y1 ) >r
  swap   r> ( X0 X1 Y0 Y1 )
  中間值 >r ( X0 X1 )
  中間值 r> r> ( X Y A ) ;

\ 定義 網格， 將正方形視窗分割成 10*10 的小正方形視窗

: 網格 x .1 mod .005 > y .1 mod .005 > * ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 綠塊 ( R G B X Y A -- R G' B )
  座標轉換             ( R G B 洞 x" y" )
  2dup + -.125 > -rot ( R G B 洞 x"+y">-.125 x" y" )
  dup >r - .125 <     ( R G B 洞 x"+y">-.125 x"-y"<.125 )
  r> .125 <           ( R G B 洞 x"+y"<-.125 x"-y"<.125 y"<.125 )
  * * *               ( R G B p0” )
  rot + swap          ( R G+p0” B ) ;

: 黃塊 ( R G B X Y A -- R' G' B )
  座標轉換                  ( R G B 洞 x" y" )
  2dup - .125 < -rot       ( R G B 洞 x"-y"<.125 x" y" )
  over >r + .125 < r>      ( R G B 洞 x"-y"<.125 x"+y"<.125 x" )
  -.125 >                  ( R G B 洞 x"-y"<.125 x"+y"<.125 x">-.125 )
  * * *                    ( R G B p1” )
  >r rot r@ + rot r> + rot ( R+p1” G+p1” B ) ;

: 藍塊 ( R G B X Y A -- R G B' )
  座標轉換               ( R G B 洞 x" y" )
  2dup - -.0625 > -rot  ( R G B 洞 x"-y">-.0625 x" y" )
  over >r + -.0625 > r> ( R G B 洞 x"-y">-.0625 y"<.0625 x" )
  .0625 <               ( R G B 洞 x"-y">-.0625 y"<.0625 x">-.0625 )
  * * *                 ( R G B p2” )
  +                     ( R G B+p2” ) ;

: 紅塊 ( R G B X Y A -- R' G B )
  座標轉換          ( R G B 洞 x" y" )
  2dup - -rot +    ( R G B 洞 x"-y" x"+y" )
  dup -.125 > swap ( R G B 洞 x"-y" x"+y">-.125 x"+y" )
  .125 < rot       ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y" )
  dup .125 < swap  ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y"<.125 x"-y" )
  -.125 >          ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y"<.125 x"-y">-.125 )
  * * * *          ( R G B p3” )
  >r rot r> + -rot ( R+p3” G B ) ;

: 青塊 ( R G B X Y A -- R G' B' )
  座標轉換                ( R G B 洞 x" y" )
  2dup + .0625 < -rot    ( R G B 洞 x"+y"<.0625 x" y" )
  dup >r - -.0625 >      ( R G B 洞 x"+y">-.0625 x"-y">-.0625 )
  r> -.0625 >            ( R G B 洞 x"+y"<-.0625 x"-y"<-.0625 y">-.0625 )
  * * *                  ( R G B p4” )
  >r swap r@ + swap r> + ( R G+p4” B+p4” ) ;

: 紫塊 ( R G B X Y A -- R' G B' )
  座標轉換               ( R G B 洞 x" y" )
  swap over -           ( R G B 洞 y" x"-y" )
  dup -.125 > swap      ( R G B 洞 y” x"-y">-.125 x"-y" )
  .125 < rot            ( R G B 洞 x"-y">-.125 x"-y"<.125 y" )
  dup .0625 < swap      ( R G B 洞 x"-y">-.125 x"-y"<.125 y"<.0625 y" )
  -.0625 >              ( R G B 洞 x"-y">-.125 x"-y"<.125 y"<.0625 y">-.0625 )
  * * * *               ( R G B p5” )
  >r rot r@ + -rot r> + ( R+p5” G B+p5” ) ;

: 橘塊 ( R G B X Y A -- R' G' B )
  座標轉換                      ( R G B 洞 x" y" )
  2dup - 0 > rot               ( R G B 洞 x"-y">0 x" y" )
  .125 < rot                   ( R G B 洞 x"-y">0 y"<.125 x" )
  -.125 >                      ( R G B 洞 x"-y">0 y"<.125 x">-.125 )
  * * *                        ( R G B p6” )
  >r rot r@ + rot r> 2 / + rot ( R+p6” G+p6” B ) ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 綠貓 .561 .145 .125 ; : 綠鵝 .511 .185 .875 ; : 綠船 .550 .500 .500 ; : 綠方 .500 .625 .000 ;
: 黃貓 .521 .400 .000 ; : 黃鵝 .660 .330 .750 ; : 黃船 .426 .621 .000 ; : 黃方 .375 .500 .000 ;
: 藍貓 .355 .765 .000 ; : 藍鵝 .324 .755 .375 ; : 藍船 .668 .250 .125 ; : 藍方 .687 .625 .000 ;
: 紅貓 .290 .640 .000 ; : 紅鵝 .371 .520 .000 ; : 紅船 .535 .288 .125 ; : 紅方 .625 .500 .000 ;
: 青貓 .230 .765 .750 ; : 青鵝 .310 .399 .750 ; : 青船 .404 .329 .875 ; : 青方 .500 .437 .000 ;
: 紫貓 .822 .118 .000 ; : 紫鵝 .432 .706 .250 ; : 紫船 .266 .289 .375 ; : 紫方 .437 .312 .000 ;
: 橘貓 .400 .456 .625 ; : 橘鵝 .423 .275 .625 ; : 橘船 .801 .373 .875 ; : 橘方 .625 .375 .000 ;
 
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 方 綠方 綠塊
     黃方 黃塊
     藍方 藍塊
     紅方 紅塊
     青方 青塊
     紫方 紫塊
     橘方 橘塊 ;

: 貓 綠貓 綠塊
     黃貓 黃塊
     藍貓 藍塊
     紅貓 紅塊
     青貓 青塊
     紫貓 紫塊
     橘貓 橘塊 ;

: 鵝 綠鵝 綠塊
     黃鵝 黃塊
     藍鵝 藍塊
     紅鵝 紅塊
     青鵝 青塊
     紫鵝 紫塊
     橘鵝 橘塊 ;

: 船 綠船 綠塊
     黃船 黃塊
     藍船 藍塊
     紅船 紅塊
     青船 青塊
     紫船 紫塊
     橘船 橘塊 ;

: 方變貓 綠方 綠貓 中間位置方向值 綠塊
         黃方 黃貓 中間位置方向值 黃塊
         藍方 藍貓 中間位置方向值 藍塊
         紅方 紅貓 中間位置方向值 紅塊
         青方 青貓 中間位置方向值 青塊
         紫方 紫貓 中間位置方向值 紫塊
         橘方 橘貓 中間位置方向值 橘塊 ;

: 貓變鵝 綠貓 綠鵝 中間位置方向值 綠塊
         黃貓 黃鵝 中間位置方向值 黃塊
         藍貓 藍鵝 中間位置方向值 藍塊
         紅貓 紅鵝 中間位置方向值 紅塊
         青貓 青鵝 中間位置方向值 青塊
         紫貓 紫鵝 中間位置方向值 紫塊
         橘貓 橘鵝 中間位置方向值 橘塊 ;

: 鵝變船 綠鵝 綠船 中間位置方向值 綠塊
         黃鵝 黃船 中間位置方向值 黃塊
         藍鵝 藍船 中間位置方向值 藍塊
         紅鵝 紅船 中間位置方向值 紅塊
         青鵝 青船 中間位置方向值 青塊
         紫鵝 紫船 中間位置方向值 紫塊
         橘鵝 橘船 中間位置方向值 橘塊 ;

: 船變方 綠船 綠方 中間位置方向值 綠塊
         黃船 黃方 中間位置方向值 黃塊
         藍船 藍方 中間位置方向值 藍塊
         紅船 紅方 中間位置方向值 紅塊
         青船 青方 中間位置方向值 青塊
         紫船 紫方 中間位置方向值 紫塊
         橘船 橘方 中間位置方向值 橘塊 ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

\ 七巧板基塊組圖範例

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 例0 \ 基塊拼成 方形
  0 0 0 \ 開始要先 全黑
  方
  網格 ;

: 例1 \ 基塊拼成 貓形
  0 0 0 \ 開始要先 全黑
  貓
  網格 ;

: 例2 \ 基塊拼成 鵝形
  0 0 0 \ 開始要先 全黑
  鵝
  網格 ;

: 例3 \ 基塊拼成 船形
  0 0 0 \ 開始要先 全黑
  船
  網格 ;

: 影格 t 8 mod floor ;  : [ = if ;  : ] then ;

: 例4 \ 影格動畫
  0 0 0 \ 開始要先 全黑
  影格 0 [ 綠方 綠塊 ] 
  影格 1 [ 黃方 黃塊 ] 
  影格 2 [ 藍方 藍塊 ] 
  影格 3 [ 紅方 紅塊 ] 
  影格 4 [ 青方 青塊 ] 
  影格 5 [ 紫方 紫塊 ] 
  影格 6 [ 橘方 橘塊 ]
  影格 7 [ 黃方 黃塊 藍方 藍塊 橘方 橘塊 ]
  網格 ;

: 例5 \ 基塊各自轉動
  0 0 0 \ 開始要先 全黑
  綠方 1 中間值 綠塊
  黃方 1 中間值 黃塊
  藍方 1 中間值 藍塊
  紅方 1 中間值 紅塊
  青方 1 中間值 青塊
  紫方 1 中間值 紫塊
  橘方 1 中間值 橘塊
  網格 ;

: 進退值 ( X Y A -- X' Y A ) >r >r dup .5 - swap .5 + 中間值 r> r> ;

: 例6 \ 船行進退
  0 0 0 \ 開始要先 全黑
  黃船 進退值 黃塊
  綠船 進退值 綠塊
  橘船 進退值 橘塊
  紅船 進退值 紅塊
  藍船 進退值 藍塊
  青船 進退值 青塊
  紫船 進退值 紫塊
  網格 ;

: 例7 \ 基塊 隨時間週期 翻轉移動 拼成 方形 與 貓型
  0 0 0 \ 開始要先 全黑
  青方 青貓 中間位置方向值 青塊
  藍方 藍貓 中間位置方向值 藍塊
  紅方 紅貓 中間位置方向值 紅塊
  橘方 橘貓 中間位置方向值 橘塊
  黃方 黃貓 中間位置方向值 黃塊
  綠方 綠貓 中間位置方向值 綠塊
  紫方 紫貓 中間位置方向值 紫塊
  網格 ;

: 例8 \ 基塊 隨時間週期 翻轉移動 拼成 貓型 與 鵝形
  0 0 0 \ 開始要先 全黑
  貓變鵝
  網格 ;

: 例9 \ 基塊 隨時間週期 翻轉移動 拼成 鵝型 與 船形
  0 0 0 \ 開始要先 全黑
  鵝變船
  網格 ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
\ 選擇以下其中一列，改前置反斜線為空格，來看範例的執行效果
\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
\ 例0 \ 基塊拼成 方形
\ 例1 \ 基塊拼成 貓形
\ 例2 \ 基塊拼成 鵝形
\ 例3 \ 基塊拼成 船形
\ 例4 \ 影格動畫
\ 例5 \ 基塊各自轉動
\ 例6 \ 船行進退
\ 例7 \ 基塊翻轉 拼成 方形 與 貓型
\ 例8 \ 基塊翻轉 拼成 貓型 與 鵝形
  例9 \ 基塊翻轉 拼成 鵝形 與 船形

七巧板 Redux26 陳爽
'22 Aug 16

\ tangram_20 七巧板 20220816 陳爽
\ 例0 \ 基塊拼成 方形
\ 例1 \ 基塊拼成 貓形
\ 例2 \ 基塊拼成 鵝形
\ 例3 \ 基塊拼成 船形
\ 例4 \ 影格動畫
\ 例5 \ 基塊各自轉動
\ 例6 \ 船行進退
\ 例7 \ 基塊翻轉 拼成 方形 與 貓型
\ 例8 \ 基塊翻轉 拼成 貓型 與 鵝形
\ 例9 \ 基塊翻轉 拼成 鵝形 與 船形

\ 定義 r， 為 從指定點 X,Y 至任意點 x,y 之距離。

: r ( X Y -- r )
  y swap ( X y Y        ) - 2 ** ( X [y-Y]**2        )
  x rot  ( [y-Y]**2 x X ) - 2 ** ( [y-Y]**2 [x-X]**2 )
  + ( [y-Y]**2+[x-X]**2 )  .5 ** ( [[y-Y]**2+[x-X]**2]**.5 ) ;
   
\ 定義 2pi， 為 兩倍的圓周率。

: 2pi pi pi + ;

\ 定義 座標轉換， 為 以 X,Y 為原點，座標軸轉向 A 角度 ( 0 右 .25 上 .5 左 .75 下 )
\ 然後產生任意點 p" 的位置 x",y"。

: 座標轉換 ( X Y A -- x" y" )
  >r 2dup r .01 > -rot        ( 洞 X Y )
  x rot - y rot -             ( 洞 x' y' )
  over 2 ** over 2 ** + .5 ** ( 洞 x' y' r' )
  1.04 * -rot                 ( 洞 r" x' y' )
  swap atan2 2pi / r> - 1 mod ( 洞 r" a )
  2pi * 2dup cos * -rot       ( 洞 x" r" a' )
  sin *                       ( 洞 x" y" ) ;

\ 定義 中間值， 為從某值 z0 到另一個值 z1 隨時間 t 的 sin 週期所取得的 對應之中間值 z。

: 中間值 ( z0 z1 -- z ) over - t pi mod sin * + ;

\ 定義 中間位置方向值， 為從某位置方向值 X0,Y0,A0 到另一個位置方向值 X1,Y1,A1
\ 隨時間 t 的 sin 週期所取得對應的 中間位置方向值 X,Y,A。

: 中間位置方向值 ( X0 Y0 A0 X1 Y1 A1 -- X Y A ) >r
  rot    r> ( X0 Y0 X1 Y1 A0 A1 )
  中間值 >r ( X0 Y0 X1 Y1 ) >r
  swap   r> ( X0 X1 Y0 Y1 )
  中間值 >r ( X0 X1 )
  中間值 r> r> ( X Y A ) ;

\ 定義 網格， 將正方形視窗分割成 10*10 的小正方形視窗

: 網格 x .1 mod .005 > y .1 mod .005 > * ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 綠塊 ( R G B X Y A -- R G' B )
     座標轉換             ( R G B 洞 x" y" )
     2dup + -.125 > -rot ( R G B 洞 x"+y">-.125 x" y" )
     dup >r - .125 <     ( R G B 洞 x"+y">-.125 x"-y"<.125 )
     r> .125 <           ( R G B 洞 x"+y"<-.125 x"-y"<.125 y"<.125 )
     * * *               ( R G B p0” )
     rot + swap          ( R G+p0” B ) ;

: 黃塊 ( R G B X Y A -- R' G' B )
     座標轉換                  ( R G B 洞 x" y" )
     2dup - .125 < -rot       ( R G B 洞 x"-y"<.125 x" y" )
     over >r + .125 < r>      ( R G B 洞 x"-y"<.125 x"+y"<.125 x" )
     -.125 >                  ( R G B 洞 x"-y"<.125 x"+y"<.125 x">-.125 )
     * * *                    ( R G B p1” )
     >r rot r@ + rot r> + rot ( R+p1” G+p1” B ) ;

: 藍塊 ( R G B X Y A -- R G B' )
     座標轉換               ( R G B 洞 x" y" )
     2dup - -.0625 > -rot  ( R G B 洞 x"-y">-.0625 x" y" )
     over >r + -.0625 > r> ( R G B 洞 x"-y">-.0625 y"<.0625 x" )
     .0625 <               ( R G B 洞 x"-y">-.0625 y"<.0625 x">-.0625 )
     * * *                 ( R G B p2” )
     +                     ( R G B+p2” ) ;

: 紅塊 ( R G B X Y A -- R' G B )
     座標轉換          ( R G B 洞 x" y" )
     2dup - -rot +    ( R G B 洞 x"-y" x"+y" )
     dup -.125 > swap ( R G B 洞 x"-y" x"+y">-.125 x"+y" )
     .125 < rot       ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y" )
     dup .125 < swap  ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y"<.125 x"-y" )
     -.125 >          ( R G B 洞 x"+y">-.125 x"+y"<.125 x"-y"<.125 x"-y">-.125 )
     * * * *          ( R G B p3” )
     >r rot r> + -rot ( R+p3” G B ) ;

: 青塊 ( R G B X Y A -- R G' B' )
     座標轉換                ( R G B 洞 x" y" )
     2dup + .0625 < -rot    ( R G B 洞 x"+y"<.0625 x" y" )
     dup >r - -.0625 >      ( R G B 洞 x"+y">-.0625 x"-y">-.0625 )
     r> -.0625 >            ( R G B 洞 x"+y"<-.0625 x"-y"<-.0625 y">-.0625 )
     * * *                  ( R G B p4” )
     >r swap r@ + swap r> + ( R G+p4” B+p4” ) ;

: 紫塊 ( R G B X Y A -- R' G B' )
     座標轉換               ( R G B 洞 x" y" )
     swap over -           ( R G B 洞 y" x"-y" )
     dup -.125 > swap      ( R G B 洞 y” x"-y">-.125 x"-y" )
     .125 < rot            ( R G B 洞 x"-y">-.125 x"-y"<.125 y" )
     dup .0625 < swap      ( R G B 洞 x"-y">-.125 x"-y"<.125 y"<.0625 y" )
     -.0625 >              ( R G B 洞 x"-y">-.125 x"-y"<.125 y"<.0625 y">-.0625 )
     * * * *               ( R G B p5” )
     >r rot r@ + -rot r> + ( R+p5” G B+p5” ) ;

: 橘塊 ( R G B X Y A -- R' G' B )
     座標轉換                      ( R G B 洞 x" y" )
     2dup - 0 > rot               ( R G B 洞 x"-y">0 x" y" )
     .125 < rot                   ( R G B 洞 x"-y">0 y"<.125 x" )
     -.125 >                      ( R G B 洞 x"-y">0 y"<.125 x">-.125 )
     * * *                        ( R G B p6” )
     >r rot r@ + rot r> 2 / + rot ( R+p6” G+p6” B ) ;

\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \

: 綠貓 .561 .145 .125 ; : 綠鵝 .511 .185 .875 ; : 綠船 .550 .500 .500 ; : 綠方 .500 .625 .000 ;
 : 黃貓 .521 .400 .000 ; : 黃鵝 .660 .330 .750 ; : 黃船 .426 .621 .000 ; : 黃方 .375 .500 .000 ;
 : 藍貓 .355 .765 .000 ; : 藍鵝 .324 .755 .375 ; : 藍船 .668 .250 .125 ; : 藍方 .687 .625 .000 ;
 : 紅貓 .290 .640 .000 ; : 紅鵝 .371 .520 .000 ; : 紅船 .535 .288 .125 ; : 紅方 .625 .500 .000 ;
 : 青貓 .230 .765 .750 ; : 青鵝 .310 .399 .750 ; : 青船 .404 .329 .875 ; : 青方 .500 .437 .000 ;
 : 紫貓 .822 .118 .000 ; : 紫鵝 .432 .706 .250 ; : 紫船 .266 .289 .375 ; : 紫方 .437 .312 .000 ;
 : 橘貓 .400 .456 .625 ; : 橘鵝 .423 .275 .625 ; : 橘船 .801 .373 .875 ; : 橘方 .625 .375 .000 ;
 
 : 方 綠方 綠塊
      黃方 黃塊
      藍方 藍塊
      紅方 紅塊
      青方 青塊
      紫方 紫塊
      橘方 橘塊 ;

: 貓 綠貓 綠塊
      黃貓 黃塊
      藍貓 藍塊
      紅貓 紅塊
      青貓 青塊
      紫貓 紫塊
      橘貓 橘塊 ;

: 鵝 綠鵝 綠塊
      黃鵝 黃塊
      藍鵝 藍塊
      紅鵝 紅塊
      青鵝 青塊
      紫鵝 紫塊
      橘鵝 橘塊 ;

: 船 綠船 綠塊
      黃船 黃塊
      藍船 藍塊
      紅船 紅塊
      青船 青塊
      紫船 紫塊
      橘船 橘塊 ;

: 方變貓 綠方 綠貓 中間位置方向值 綠塊
          黃方 黃貓 中間位置方向值 黃塊
          藍方 藍貓 中間位置方向值 藍塊
          紅方 紅貓 中間位置方向值 紅塊
          青方 青貓 中間位置方向值 青塊
          紫方 紫貓 中間位置方向值 紫塊
          橘方 橘貓 中間位置方向值 橘塊 ;

: 貓變鵝 綠貓 綠鵝 中間位置方向值 綠塊
          黃貓 黃鵝 中間位置方向值 黃塊
          藍貓 藍鵝 中間位置方向值 藍塊
          紅貓 紅鵝 中間位置方向值 紅塊
          青貓 青鵝 中間位置方向值 青塊
          紫貓 紫鵝 中間位置方向值 紫塊
          橘貓 橘鵝 中間位置方向值 橘塊 ;

: 鵝變船 綠鵝 綠船 中間位置方向值 綠塊
          黃鵝 黃船 中間位置方向值 黃塊
          藍鵝 藍船 中間位置方向值 藍塊
          紅鵝 紅船 中間位置方向值 紅塊
          青鵝 青船 中間位置方向值 青塊
          紫鵝 紫船 中間位置方向值 紫塊
          橘鵝 橘船 中間位置方向值 橘塊 ;

: 船變方 綠船 綠方 中間位置方向值 綠塊
          黃船 黃方 中間位置方向值 黃塊
          藍船 藍方 中間位置方向值 藍塊
          紅船 紅方 中間位置方向值 紅塊
          青船 青方 中間位置方向值 青塊
          紫船 紫方 中間位置方向值 紫塊
          橘船 橘方 中間位置方向值 橘塊 ;