Haiku Gallery
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : z ( x n -- x' ) \ animate t 10 / * sin .4 * .5 + ( x n' ) - ; : swirl ( r g b X Y -- r g b' ) \ center at X,Y y 1 z swap - ( r g b X y' ) x 2 z rot - ( r g b y' x' ) 2dup r t 9 / pi pi + mod - ( r g b y' x' r' ) -rot atan2 ( r g b r' a' ) 2dup cos * ( r g b r' a' x" ) -rot sin * ( r g b x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 99 ** 2 / + ( r g b' ) ; : b ( r g b R G B -- r' g' b' ) \ ball 0 @ 1 + dup 0 ! ( r g b R G B n+1 ) x over z ( r g b R G B n+1 x' ) y rot 2 * z ( r g b R G B x' y' ) r .07 < ( r g b R G B ball ) >r ( r g b R G B ) >r rot r> ( r g R G b B ) r@ * + ( r g R G b' ) r> swap ( r g R G ball b' ) >r >r ( r g R G ) r@ * rot + -rot ( g' r R ) r> * + ( g' r' ) swap r> ( r' g' b' ) ; : yellow 1 1 0 b ; : lime .5 .9 0 b ; : red 1 0 0 b ; : green 0 .5 0 b ; : grey .5 .5 1 b ; : orange 1 .5 0 b ; : cyan 0 1 1 b ; : purple .5 0 1 b ; : pink 1 0 1 b ; : blue 0 0 1 b ; : gold 1 .8 0 b ; : rose 1 .7 .7 b ; 0 0 ! \ give 0 to n .00 .04 .02 swirl \ red .00 .02 .00 swirl \ green .00 .00 .00 swirl \ blue dup .6 * >r rot r@ + rot r> + rot \ bright yellow lime red green grey orange cyan pink purple blue gold rose yellow
balls Redux3
陳爽
'24 May 08
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : swirl ( r g b X Y -- r g b' ) \ center at X,Y y swap - ( r g b X y' ) x rot - ( r g b y' x' ) 2dup r t 9 / pi pi + mod - ( r g b y' x' r' ) -rot atan2 ( r g b r' a' ) 2dup cos * ( r g b r' a' x" ) -rot sin * ( r g b x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 99 ** + ( r g b' ) ; : z ( x n -- x' ) t 10 / * sin .4 * .5 + ( x n' ) - ; : b ( r g b R G B -- r' g' b' ) 0 @ 1 + dup 0 ! ( r g b R G B n+1 ) x over z ( r g b R G B n+1 x' ) y rot 2 * z ( r g b R G B x' y' ) r .07 < ( r g b R G B ball ) >r ( r g b R G B ) >r rot r> ( r g R G b B ) r@ * + ( r g R G b' ) r> swap ( r g R G ball b' ) >r >r ( r g R G ) r@ * rot + -rot ( g' r R ) r> * + ( g' r' ) swap r> ( r' g' b' ) ; : yellow 1 1 0 b ; : lime .5 .9 0 b ; : red 1 0 0 b ; : green 0 .5 0 b ; : grey .5 .5 1 b ; : orange 1 .5 0 b ; : cyan 0 1 1 b ; : purple .5 0 1 b ; : pink 1 0 1 b ; : blue 0 0 1 b ; : gold 1 .8 0 b ; : rose 1 .7 .7 b ; 0 0 ! \ give 0 to n 0 0 0 \ take black as background yellow lime red green grey orange cyan pink purple blue gold rose .6 .62 swirl \ blue swirl at .6,.62
balls Redux2
陳爽
'24 May 08
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : swirl ( r g b X Y -- r g b' ) \ center at X,Y y swap - ( r g b X y' ) x rot - ( r g b y' x' ) 2dup r t 9 / pi pi + mod - ( r g b y' x' r' ) -rot atan2 ( r g b r' a' ) 2dup cos * ( r g b r' a' x" ) -rot sin * ( r g b x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 99 ** + ( r g b' ) ; : z ( x n -- x' ) t * sin .4 * .5 + ( x n' ) - ; : b ( r g b R G B n -- r' g' b' ) 10 / 1 + ( r g b R G B n' ) ( ) x over z ( r g b R G B n' x' ) ( ) y rot 2 * z ( r g b R G B x' y' ) ( ) r .08 < ( r g b R G B ball ) ( ) >r >r ( r g b R G ) ( B ball ) rot r> r@ * + ( r g R G b' ) ( ball ) r> swap ( r g R G ball b' ) ( ) >r >r ( r g R G ) ( ball b' ) r@ * rot + ( r R g' ) ( ball b' ) -rot r> * + ( g' r' ) ( b' ) swap r> ( r' g' b' ) ( ) ; : yellow 1 1 0 0 b ; : lime .5 .9 0 1 b ; : red 1 0 0 2 b ; : green 0 .5 0 3 b ; : grey .5 .5 1 4 b ; : orange 1 .5 0 5 b ; : cyan 0 1 1 6 b ; : purple .5 0 1 7 b ; : pink 1 0 1 8 b ; : blue 0 0 1 9 b ; : gold 1 .75 0 10 b ; : rose 1 .7 .7 11 b ; 0 0 0 \ take black as background yellow lime red green grey orange cyan pink purple blue gold rose .6 .62 swirl \ swirl at .6,.62
balls Redux1 fixed
陳爽
'24 May 08
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : swirl ( r g b X Y -- r g b' ) \ center at X,Y y swap - ( r g b X y' ) x rot - ( r g b y' x' ) 2dup r t 9 / pi pi + mod - ( r g b y' x' r' ) -rot atan2 ( r g b r' a' ) 2dup cos * ( r g b r' a' x" ) -rot sin * ( r g b x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 99 ** + ( r g b' ) ; : z ( x n -- x' ) t * sin .4 * .5 + ( x n' ) - ; : b ( r g b R G B n -- r' g' b' ) 10 / 1 + ( r g b R G B n' ) ( ) x over z ( r g b R G B n' x' ) ( ) y rot 2 * z ( r g b R G B x' y' ) ( ) r .08 < ( r g b R G B ball ) ( ) >r >r ( r g b R G ) ( B ball ) rot r> r@ * + ( r g R G b' ) ( ball ) r> swap ( r g R G ball b' ) ( ) >r >r ( r g R G ) ( ball b' ) r@ * rot + ( r R g' ) ( ball b' ) -rot r> * + ( g' r' ) ( b' ) swap r> ( r' g' b' ) ( ) ; : yellow 1 1 0 0 b ; : lime .5 .9 0 1 b ; : red 1 0 0 2 b ; : green 0 .5 0 3 b ; : grey .5 .5 1 4 b ; : orange 1 .5 0 5 b ; : cyan 0 1 1 6 b ; : purple .5 0 1 7 b ; : pink 1 0 1 8 b ; : blue 0 0 1 9 b ; : gold 1 .75 0 10 b ; : rose 1 .7 .7 2 b ; 0 0 0 \ take black as background yellow lime red green grey orange cyan pink purple blue gold rose .6 .62 swirl \ swirl at .6,.62
balls Redux1
陳爽
'24 May 08
: ripple push dup * swap dup * + sqrt t pop / - 33 * sin ; x y 10 ripple 2 x - y 10 ripple x 2 y - 10 ripple 2 x - 2 y - 10 ripple
rainbow ?...
陳昕亞
'24 May 08
: x x .6 - ; : y 0 y .7 - - ; 1 .143 x x * y y * + sqrt 33 * t .7 * + sin x y atan2 3 ** t .33 * + sin - abs / - dup x * over y *
Cool!...
陳昕亞
'24 May 08
: x x .98 - ; : y 0 y .7 - - ; 1 .135 x x * y y * + sqrt 642 * t .7 * + sin x y atan2 7 ** t .91 * + sin - abs / - dup x * over y *
Amazing!...
陳昕亞
'24 May 08
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : swirl ( X Y -- ) \ center at X,Y y swap - ( X y' ) x rot - ( y' x' ) 2dup r t 9 / pi pi + mod - ( y' x' r' ) -rot atan2 ( r' a' ) 2dup cos * ( r' a' x" ) -rot sin * ( x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 96 ** ; : z ( x n -- x' ) t * sin .4 * .5 + ( x n' ) - ; : b ( n -- ball ) 10 / 1 + ( n' ) x over z ( n' x' ) y rot 2 * z ( x' y' ) r .08 < ; : lime 0 b ; : white 1 b ; : yellow 2 b ; : purple 3 b ; : orange 4 b ; : cyan 5 b ; : pink 6 b ; : blue 4 b ; : | 6 / ; : balls yellow red grey | orange pink + + + + \ R yellow yellow | purple | red | cyan + + + + \ G grey cyan pink blue + + + \ B ; balls .6 .62 swirl + x .5 - abs .45 < .2 + y .5 - abs .45 < .2 + *
balls
陳昕亞
'24 May 08
x 8.3 * sin y 6.4 * sin t 21 * sin * * dup t 4 * sin * dup t 6 * sin *
Flashing lights
陳昕亞
'24 May 08
: q 1.ˋ + 2 / ; : x t sin q 9 * x * sin q ; : y t sin q 9 * y * cos q ; : x x .5 t sin * - ; : y y .5 t cos * - ; : l 2dup * 2 * .635 + -rot dup * swap dup * - .04 t \ 5 * cos * + ; x y l l 2dup dup 43 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt - rot
lights of color
陳昕亞
'24 May 08
: e .3 ; : x x .5 - ; : y y .2 - ; : x x 7 * cos ; : y y 6 * sin ; : lines >r .5 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 3 + net
Circle cross
陳昕亞
'24 May 08
: r ( x y -- r ) \ distance from origin to x,y dup * swap dup * + sqrt ; : swirl ( X Y -- ) \ center at X,Y y swap - ( X y' ) x rot - ( y' x' ) 2dup r t 9 / pi pi + mod - ( y' x' r' ) -rot atan2 ( r' a' ) 2dup cos * ( r' a' x" ) -rot sin * ( x" y" ) 2dup r push atan2 0.03 * pop + 50 * sin 99 ** ; : z ( x n -- x' ) t * sin .4 * .5 + ( x n' ) - ; : b ( n -- ball ) 10 / 1 + ( n' ) x over z ( n' x' ) y rot 2 * z ( x' y' ) r .08 < ; : yellow 0 b ; : red 1 b ; : green 2 b ; : grey 3 b ; : orange 4 b ; : cyan 5 b ; : pink 6 b ; : blue 7 b ; : | 2 / ; : balls yellow red grey | orange pink + + + + \ R yellow green | grey | orange | cyan + + + + \ G grey cyan pink blue + + + \ B ; balls .6 .62 swirl + x .5 - abs .45 < .2 + y .5 - abs .45 < .2 + *
balls Redux
陳爽
'24 May 08
x y t sin 1 + 2 /
Testing
Zizitop
'24 May 08
: death x 256 * 1 swap / y 256 * * ; : duty y 256 * 1 swap / x 256 * * ; : is 0.001 * t * cos ; : a dup * ; : feather 1 x - 1 y - * + ; : mountain 1 x - 1 y - * - ; death is a feather duty is a mountain
Classic hailku
Stainless
'24 May 08
: t t * sin .38 * - .5 - ; : b x over t y rot dup + t dup * swap dup * + sqrt .07 < ; : b0 1.0 b ; : b1 1.1 b ; : b2 1.2 b ; : b3 1.3 b ; : b4 1.4 b ; : b5 1.5 b ; : b6 1.6 b ; : b7 1.7 b ; b0 b1 b4 b7 b3 2 / + + + + b0 b5 b2 b3 b4 2 / swap 2 / rot 2 / + + + + b3 b5 b6 b7 + + + x .5 - abs .45 < .2 + y .5 - abs .45 < .2 + *
balls
陳爽
'24 May 08
\ tangram_18 七巧板 20161123 陳爽 \ 改最後一列 可執行 例1 例2 例3 例4 例5 例6 例7 或 例8 \ 例1 彩板拼成 方形 \ 例2 彩板散開 各自轉動 \ 例3 彩板拼成 貓形 \ 例4 彩板翻轉 拼成 方形 與 貓型 \ 例5 彩板拼成 鵝形 \ 例6 彩板翻轉 拼成 貓型 與 鵝形 \ 例7 彩板拼成 船形 \ 例8 彩板翻轉 拼成 鵝形 與 船型 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 但頭尾停留時間略久 : 中間值 ( x0 x1 -- x ) over - t 2 / sin .55 * .5 + 1 min 0 max * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 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">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .290 .640 .000 紅 \ 頭 .355 .765 .000 藍 \ 右耳 .230 .765 .750 青 \ 左耳 .822 .118 .000 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .500 .437 .000 .230 .765 .750 中間位置方向 青 \ 左耳 .687 .625 .000 .355 .765 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .290 .640 .000 中間位置方向 紅 \ 頭 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .437 .312 .000 .822 .118 .000 中間位置方向 紫 \ 尾 網格 ; : 例5 \ 彩板拼成 鵝形 .511 .185 .875 綠 \ 翅 .660 .330 .750 黃 \ 尾 .423 .275 .625 桔 \ 身 .371 .520 .000 紅 \ 脖 .324 .755 .375 藍 \ 嘴 .310 .399 .750 青 \ 胸 .432 .706 .250 紫 \ 頭 網格 ; : 例6 \ 彩板 隨時間週期 翻轉移動 拼成 貓型 與 鵝形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .230 .765 .750 .310 .399 .750 中間位置方向 青 \ 胸 .355 .765 .000 .324 .755 .375 中間位置方向 藍 \ 嘴 .290 .640 .000 .371 .520 .000 中間位置方向 紅 \ 脖 .400 .456 .625 .423 .275 .625 中間位置方向 桔 \ 身 .521 .400 .000 .660 .330 .750 中間位置方向 黃 \ 尾 .561 .145 .125 .511 .185 .875 中間位置方向 綠 \ 翅 .822 .118 .000 .432 .706 .250 中間位置方向 紫 \ 頭 網格 ; : 例7 \ 彩板拼成 船形 .426 .621 .000 黃 \ 上帆 .550 .500 .500 綠 \ 下帆 .801 .373 .875 桔 \ 船頭 .535 .288 .125 紅 \ 中艙 .668 .250 .125 藍 \ 前艙 .404 .329 .875 青 \ 後艙 .266 .289 .375 紫 \ 船尾 網格 ; : 例8 \ 彩板 隨時間週期 翻轉移動 拼成 鵝型 與 船形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .310 .399 .750 .404 .329 .875 中間位置方向 青 \ 胸 .324 .755 .375 .668 .250 .125 中間位置方向 藍 \ 嘴 .371 .520 .000 .535 .288 .125 中間位置方向 紅 \ 脖 .423 .275 .625 .801 .373 .875 中間位置方向 桔 \ 身 .660 .330 .750 .426 .621 .000 中間位置方向 黃 \ 尾 .511 .185 .875 .550 .500 .500 中間位置方向 綠 \ 翅 .432 .706 .250 .266 .289 .375 中間位置方向 紫 \ 頭 網格 ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 改下列 可選擇執行 例1 例2 例3 例4 例5 例6 例7 或 例8 例8
七巧板 Redux18 ok
陳爽
'24 May 08
\ tangram_18 七巧板 20161123 陳爽 \ 改最後一列 可執行 例1 例2 例3 例4 例5 例6 例7 或 例8 \ 例1 彩板拼成 方形 \ 例2 彩板散開 各自轉動 \ 例3 彩板拼成 貓形 \ 例4 彩板翻轉 拼成 方形 與 貓型 \ 例5 彩板拼成 鵝形 \ 例6 彩板翻轉 拼成 貓型 與 鵝形 \ 例7 彩板拼成 船形 \ 例8 彩板翻轉 拼成 鵝形 與 船型 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 3 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 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">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .290 .640 .000 紅 \ 頭 .355 .765 .000 藍 \ 右耳 .230 .765 .750 青 \ 左耳 .822 .118 .000 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .500 .437 .000 .230 .765 .750 中間位置方向 青 \ 左耳 .687 .625 .000 .355 .765 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .290 .640 .000 中間位置方向 紅 \ 頭 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .437 .312 .000 .822 .118 .000 中間位置方向 紫 \ 尾 網格 ; : 例5 \ 彩板拼成 鵝形 .511 .185 .875 綠 \ 翅 .660 .330 .750 黃 \ 尾 .423 .275 .625 桔 \ 身 .371 .520 .000 紅 \ 脖 .324 .755 .375 藍 \ 嘴 .310 .399 .750 青 \ 胸 .432 .706 .250 紫 \ 頭 網格 ; : 例6 \ 彩板 隨時間週期 翻轉移動 拼成 貓型 與 鵝形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .230 .765 .750 .310 .399 .750 中間位置方向 青 \ 胸 .355 .765 .000 .324 .755 .375 中間位置方向 藍 \ 嘴 .290 .640 .000 .371 .520 .000 中間位置方向 紅 \ 脖 .400 .456 .625 .423 .275 .625 中間位置方向 桔 \ 身 .521 .400 .000 .660 .330 .750 中間位置方向 黃 \ 尾 .561 .145 .125 .511 .185 .875 中間位置方向 綠 \ 翅 .822 .118 .000 .432 .706 .250 中間位置方向 紫 \ 頭 網格 ; : 例7 \ 彩板拼成 船形 .426 .621 .000 黃 \ 上帆 .550 .500 .500 綠 \ 下帆 .801 .373 .875 桔 \ 船頭 .535 .288 .125 紅 \ 中艙 .668 .250 .125 藍 \ 前艙 .404 .329 .875 青 \ 後艙 .266 .289 .375 紫 \ 船尾 網格 ; : 例8 \ 彩板 隨時間週期 翻轉移動 拼成 鵝型 與 船形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .310 .399 .750 .404 .329 .875 中間位置方向 青 \ 胸 .324 .755 .375 .668 .250 .125 中間位置方向 藍 \ 嘴 .371 .520 .000 .535 .288 .125 中間位置方向 紅 \ 脖 .423 .275 .625 .801 .373 .875 中間位置方向 桔 \ 身 .660 .330 .750 .426 .621 .000 中間位置方向 黃 \ 尾 .511 .185 .875 .550 .500 .500 中間位置方向 綠 \ 翅 .432 .706 .250 .266 .289 .375 中間位置方向 紫 \ 頭 網格 ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 改下列 可選擇執行 例1 例2 例3 例4 例5 例6 例7 或 例8 例8
七巧板 Redux18
陳爽
'24 May 08
\ tangram_17 七巧板 20161123 陳爽 \ 改最後一列 可執行 例1 例2 例3 例4 例5 例6 例7 或 例8 \ 例1 彩板拼成 方形 \ 例2 彩板散開 各自轉動 \ 例3 彩板拼成 貓形 \ 例4 彩板翻轉 拼成 方形 與 貓型 \ 例5 彩板拼成 鵝形 \ 例6 彩板翻轉 拼成 貓型 與 鵝形 \ 例7 彩板拼成 船形 \ 例8 彩板翻轉 拼成 鵝形 與 船型 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 3 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 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">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .290 .640 .000 紅 \ 頭 .355 .765 .000 藍 \ 右耳 .230 .765 .750 青 \ 左耳 .822 .118 .000 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .500 .437 .000 .230 .765 .750 中間位置方向 青 \ 左耳 .687 .625 .000 .355 .765 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .290 .640 .000 中間位置方向 紅 \ 頭 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .437 .312 .000 .822 .118 .000 中間位置方向 紫 \ 尾 網格 ; : 例5 \ 彩板拼成 鵝形 .511 .185 .875 綠 \ 翅 .660 .330 .750 黃 \ 尾 .423 .275 .625 桔 \ 身 .371 .520 .000 紅 \ 脖 .324 .755 .375 藍 \ 嘴 .310 .399 .750 青 \ 胸 .432 .706 .250 紫 \ 頭 網格 ; : 例6 \ 彩板 隨時間週期 翻轉移動 拼成 貓型 與 鵝形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .230 .765 .750 .310 .399 .750 中間位置方向 青 \ 胸 .355 .765 .000 .324 .755 .375 中間位置方向 藍 \ 嘴 .290 .640 .000 .371 .520 .000 中間位置方向 紅 \ 脖 .400 .456 .625 .423 .275 .625 中間位置方向 桔 \ 身 .521 .400 .000 .660 .330 .750 中間位置方向 黃 \ 尾 .561 .145 .125 .511 .185 .875 中間位置方向 綠 \ 翅 .822 .118 .000 .432 .706 .250 中間位置方向 紫 \ 頭 網格 ; : 例7 \ 彩板拼成 船形 .426 .621 .000 黃 \ 上帆 .550 .500 .500 綠 \ 下帆 .801 .373 .875 桔 \ 船頭 .535 .288 .125 紅 \ 中艙 .668 .250 .125 藍 \ 前艙 .404 .329 .875 青 \ 後艙 .266 .289 .375 紫 \ 船尾 網格 ; : 例8 \ 彩板 隨時間週期 翻轉移動 拼成 鵝型 與 船形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .310 .399 .750 .404 .329 .875 中間位置方向 青 \ 胸 .324 .755 .375 .668 .250 .125 中間位置方向 藍 \ 嘴 .371 .520 .000 .535 .288 .125 中間位置方向 紅 \ 脖 .423 .275 .625 .801 .373 .875 中間位置方向 桔 \ 身 .660 .330 .750 .426 .621 .000 中間位置方向 黃 \ 尾 .511 .185 .875 .550 .500 .500 中間位置方向 綠 \ 翅 .432 .706 .250 .266 .289 .375 中間位置方向 紫 \ 頭 網格 ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 改下列 可選擇執行 例1 例2 例3 例4 例5 例6 例7 或 例8 例8
七巧板 Redux17
陳爽
'24 May 08
\ tangram_16 七巧板 20161123 陳爽 \ 改最後一列 可執行 例1 例2 例3 例4 例5 例6 例7 或 例8 \ 例1 彩板拼成 方形 \ 例2 彩板散開 各自轉動 \ 例3 彩板拼成 貓形 \ 例4 彩板翻轉 拼成 方形 與 貓型 \ 例5 彩板拼成 鵝形 \ 例6 彩板翻轉 拼成 貓型 與 鵝形 \ 例7 彩板拼成 船形 \ 例8 彩板翻轉 拼成 鵝形 與 船型 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 3 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 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">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .290 .640 .000 紅 \ 頭 .355 .765 .000 藍 \ 右耳 .230 .765 .750 青 \ 左耳 .822 .118 .000 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .500 .437 .000 .230 .765 .750 中間位置方向 青 \ 左耳 .687 .625 .000 .355 .765 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .290 .640 .000 中間位置方向 紅 \ 頭 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .437 .312 .000 .822 .118 .000 中間位置方向 紫 \ 尾 網格 ; : 例5 \ 彩板拼成 鵝形 .511 .185 .875 綠 \ 翅 .660 .330 .750 黃 \ 尾 .423 .275 .625 桔 \ 身 .371 .520 .000 紅 \ 脖 .324 .755 .375 藍 \ 嘴 .310 .399 .750 青 \ 胸 .432 .706 .250 紫 \ 頭 網格 ; : 例6 \ 彩板 隨時間週期 翻轉移動 拼成 貓型 與 鵝形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .230 .765 .750 .310 .399 .750 中間位置方向 青 \ 胸 .355 .765 .000 .324 .755 .375 中間位置方向 藍 \ 嘴 .290 .640 .000 .371 .520 .000 中間位置方向 紅 \ 脖 .400 .456 .625 .423 .275 .625 中間位置方向 桔 \ 身 .521 .400 .000 .660 .330 .750 中間位置方向 黃 \ 尾 .561 .145 .125 .511 .185 .875 中間位置方向 綠 \ 翅 .822 .118 .000 .432 .706 .250 中間位置方向 紫 \ 頭 網格 ; : 例7 \ 彩板拼成 船形 .426 .621 .000 黃 \ 上帆 .550 .500 .500 綠 \ 下帆 .801 .373 .875 桔 \ 船頭 .535 .288 .125 紅 \ 中艙 .668 .250 .125 藍 \ 前艙 .404 .329 .875 青 \ 後艙 .266 .289 .375 紫 \ 船尾 網格 ; : 例8 \ 彩板 隨時間週期 翻轉移動 拼成 鵝型 與 船形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .310 .399 .750 .404 .329 .875 中間位置方向 青 \ 胸 .324 .755 .375 .668 .250 .125 中間位置方向 藍 \ 嘴 .371 .520 .000 .535 .288 .125 中間位置方向 紅 \ 脖 .423 .275 .625 .801 .373 .875 中間位置方向 桔 \ 身 .660 .330 .750 .426 .621 .000 中間位置方向 黃 \ 尾 .511 .185 .875 .550 .500 .500 中間位置方向 綠 \ 翅 .432 .706 .250 .266 .289 .375 中間位置方向 紫 \ 頭 網格 ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 改下列 可選擇執行 例1 例2 例3 例4 例5 例6 例7 或 例8 例7
七巧板 Redux16
陳爽
'24 May 08
\ tangram_15 七巧板 20161123 陳爽 \ 改最後一列 可執行 例1 例2 例3 例4 例5 或 例6 \ 例1 彩板拼成 方形 \ 例2 彩板散開 各自轉動 \ 例3 彩板拼成 貓形 \ 例4 彩板翻轉 拼成 方形 與 貓型 \ 例5 彩板拼成 鵝形 \ 例6 彩板翻轉 拼成 貓型 與 鵝形 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 3 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 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">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .290 .640 .000 紅 \ 頭 .355 .765 .000 藍 \ 右耳 .230 .765 .750 青 \ 左耳 .822 .118 .000 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .500 .437 .000 .230 .765 .750 中間位置方向 青 \ 左耳 .687 .625 .000 .355 .765 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .290 .640 .000 中間位置方向 紅 \ 頭 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .437 .312 .000 .822 .118 .000 中間位置方向 紫 \ 尾 網格 ; : 例5 \ 彩板拼成 鵝形 .511 .185 .875 綠 \ 翅 .660 .330 .750 黃 \ 尾 .423 .275 .625 桔 \ 身 .371 .520 .000 紅 \ 脖 .324 .755 .375 藍 \ 嘴 .310 .399 .750 青 \ 胸 .432 .706 .250 紫 \ 頭 網格 ; : 例6 \ 彩板 隨時間週期 翻轉移動 拼成 貓型 與 鵝形 \ 前 3 值 彩板 起始 位置方向 後 3 值 終止 位置方向 .230 .765 .750 .310 .399 .750 中間位置方向 青 \ 胸 .355 .765 .000 .324 .755 .375 中間位置方向 藍 \ 嘴 .290 .640 .000 .371 .520 .000 中間位置方向 紅 \ 脖 .400 .456 .625 .423 .275 .625 中間位置方向 桔 \ 身 .521 .400 .000 .660 .330 .750 中間位置方向 黃 \ 尾 .561 .145 .125 .511 .185 .875 中間位置方向 綠 \ 翅 .822 .118 .000 .432 .706 .250 中間位置方向 紫 \ 頭 網格 ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 可執行 例1 例2 例3 例4 例5 或 例6 例6
七巧板 Redux15
陳爽
'24 May 08
\ tangram_08 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 負片影像: 0 變 1, 1 變 0 : 反 1 swap - ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 0 0 0 \ 全黑 ( A1. 拼成方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 方形散開 -.2500 .5000 0 綠 -.5000 -.0000 0 黃 .6250 .5000 0 藍 .3125 .1875 0 紅 .0000 -.1250 0 青 -.1250 -.6250 0 紫 .5000 -.2500 0 桔 \ ) \ ( A3. 貓 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ )
七巧板 Redux8 reorder
Anonymous
'24 May 08
\ tangram_08 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 負片影像: 0 變 1, 1 變 0 : 反 1 swap - ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 .3 .3 .3 \ 全黑 ( A1. 拼成方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 方形散開 -.2500 .5000 0 綠 -.5000 -.0000 0 黃 .6250 .5000 0 藍 .3125 .1875 0 紅 .0000 -.1250 0 青 -.1250 -.6250 0 紫 .5000 -.2500 0 桔 \ ) \ ( A3. 貓 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ )
七巧板 Redux8 gray
Anonymous
'24 May 08
\ tangram_08 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 負片影像: 0 變 1, 1 變 0 : 反 1 swap - ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 0 0 0 \ 全黑 ( A1. 拼成方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 方形散開 -.2500 .5000 0 綠 -.5000 -.0000 0 黃 .6250 .5000 0 藍 .3125 .1875 0 紅 .0000 -.1250 0 青 -.1250 -.6250 0 紫 .5000 -.2500 0 桔 \ ) \ ( A3. 貓 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ ) .7 +
七巧板 Redux8 blue
Anonymous
'24 May 08
\ tangram_14 七巧板 20161118 陳爽 \ 改最後列 可執行 例1 例2 例3 或 例4 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 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" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 2 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 x .0625 mod .005 > y .0625 mod .005 > * ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.125 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 : 例1 \ 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 ; : 例2 \ 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 ; : 例3 \ 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .345 .698 .000 紅 \ 頭 .405 .819 .000 藍 \ 右耳 .275 .819 .750 青 \ 左耳 .802 .164 .542 紫 \ 尾 網格 ; : 例4 \ 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .687 .625 .000 .405 .819 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .345 .698 .000 中間位置方向 紅 \ 頭 .500 .437 .000 .275 .819 .750 中間位置方向 青 \ 左耳 .437 .312 .000 .802 .164 .542 中間位置方向 紫 \ 尾 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 網格 ; \ 改下列 可選擇執行 例1, 例2, 例3, 或 例4 例4
七巧板 Redux14
陳爽
'24 May 08
\ tangram_12 七巧板 20161118 陳爽 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - ( 洞 Y x' ) y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 x' y' r ) 1.04 * -rot ( 洞 r' x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r' a ) 2pi * ( 洞 r' a' ) 2dup cos * -rot ( 洞 x" r' a' ) sin * ( 洞 x" y" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 2 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 x .1 mod .006 > y .1 mod .006 > * ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.125 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 ( 例1. 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 \ ) ( 例2. 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 \ ) ( 例3. 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .345 .698 .000 紅 \ 頭 .405 .819 .000 藍 \ 右耳 .275 .819 .750 青 \ 左耳 .802 .164 .542 紫 \ 尾 網格 \ ) \ ( 例4. 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .687 .625 .000 .405 .819 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .345 .698 .000 中間位置方向 紅 \ 頭 .500 .437 .000 .275 .819 .750 中間位置方向 青 \ 左耳 .437 .312 .000 .802 .164 .542 中間位置方向 紫 \ 尾 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 網格 \ )
七巧板 Redux12
陳爽
'24 May 08
\ tangram_11 七巧板 20161118 陳爽 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y swap - dup * x rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .01 > -rot ( 洞 X Y ) x rot - ( 洞 Y x' ) y rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt ( 洞 x' y' r ) 1.04 * -rot ( 洞 r' x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r' a ) 2pi * ( 洞 r' a' ) 2dup cos * -rot ( 洞 x" r' a' ) sin * ( 洞 x" y" ) ; \ 從某值到另值隨時間週期取對應中間值 : 中間值 ( x0 x1 -- x ) over - t 2 / sin 2 / .5 + * + ; \ 從某位置方向到另位置方向隨時間週期取對應中間位置方向 : 中間位置方向 ( 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 ) ; : 網格 x .1 mod .006 > y .1 mod .006 > * ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.125 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .125 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .125 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .125 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .125 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.125 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' B ) ; : 藍 ( R G B X Y A -- R G B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -.062 > -rot ( R G B 洞 x"-y">-.125 x" y" ) over >r + -.062 > r> ( R G B 洞 x"-y">0 y"<.25 x" ) .062 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( 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">-.25 x"+y" ) .125 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .125 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.125 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G B ) ; : 青 ( R G B X Y A -- R G' B' ) 座標轉換 ( R G B 洞 x" y" ) 2dup + .0625 < -rot ( R G B 洞 x"+y"<.125 x" y" ) dup >r - -.0625 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.0625 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( 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 洞 x"-y">-.25 x"-y" ) .125 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .0625 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.0625 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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"<.25 x" ) -.125 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 七彩板組圖範例 0 0 0 \ 開始要先 全黑 ( 例1. 彩板拼成 方形 .500 .625 .000 綠 .375 .500 .000 黃 .687 .625 .000 藍 .625 .500 .000 紅 .500 .437 .000 青 .437 .312 .000 紫 .625 .375 .000 桔 網格 \ ) ( 例2. 彩板散開 各自每 10 秒轉 1 圈 .375 .750 0 1 中間值 綠 .250 .500 0 1 中間值 黃 .812 .750 0 1 中間值 藍 .656 .593 0 1 中間值 紅 .500 .485 0 1 中間值 青 .437 .184 0 1 中間值 紫 .750 .375 0 1 中間值 桔 網格 \ ) \ ( 例3. 彩板拼成 貓形 .561 .145 .125 綠 \ 腿 .521 .400 .000 黃 \ 身 .400 .456 .625 桔 \ 胸 .345 .698 .000 紅 \ 頭 .405 .819 .000 藍 \ 右耳 .275 .819 .750 青 \ 左耳 .802 .164 .542 紫 \ 尾 網格 \ ) ( 例4. 彩板 隨時間週期 翻轉移動 拼成 方形 與 貓型 .500 .625 .000 .561 .145 .125 中間位置方向 綠 \ 腿 .375 .500 .000 .521 .400 .000 中間位置方向 黃 \ 身 .687 .625 .000 .405 .819 .000 中間位置方向 藍 \ 右耳 .625 .500 .000 .345 .698 .000 中間位置方向 紅 \ 頭 .500 .437 .000 .275 .819 .750 中間位置方向 青 \ 左耳 .437 .312 .000 .802 .164 .542 中間位置方向 紫 \ 尾 .625 .375 .000 .400 .456 .625 中間位置方向 桔 \ 胸 網格 \ )
七巧板 Redux11
陳爽
'24 May 08
\ tangram_10 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 0 0 0 \ 開始要先 全黑 ( A1. 拼成 方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 散開 各自每 10 秒轉 1 圈 : a t 10 / negate ; -.2500 .5000 a 綠 -.5000 -.0000 a 黃 .6250 .5000 a 藍 .3125 .1875 a 紅 .0000 -.1250 a 青 -.1250 -.6250 a 紫 .5000 -.2500 a 桔 \ ) ( A3. 拼成 貓形 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 \ ) \ ( A4. 方形 翻轉移動 : a ( x0 x1 -- x ) over - t 2.5 / sin 2 / .5 + * + ; : a ( X0 Y0 A0 X1 Y1 A1 -- X Y A ) >r rot r> ( X0 Y0 X1 Y1 A0 A1 ) a >r ( X0 Y0 X1 Y1 ) >r swap r> ( X0 X1 Y0 Y1 ) a >r ( X0 X1 ) a r> r> ( X Y A ) ; .0000 .2500 .0000 .1200 -.7100 .1250 a 綠 \ 腿 -.2500 .0000 .0000 .0420 -.2000 .0000 a 黃 \ 身 .3750 .2500 .0000 -.2000 .6310 .0000 a 藍 \ 右耳 .2500 .0000 .0000 -.3250 .3855 .0000 a 紅 \ 頭 .0000 -.1250 .0000 -.4500 .6310 .7500 a 青 \ 左耳 -.1250 -.3750 .0000 .6050 -.6720 .5420 a 紫 \ 尾 \ .2500 -.2500 .0000 -.2000 -.0759 .6250 a 桔 \ 胸 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ )
七巧板 Redux10
陳爽
'24 May 08
\ tangram_08 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 負片影像: 0 變 1, 1 變 0 : 反 1 swap - ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 0 0 0 \ 全黑 ( A1. 拼成方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 方形散開 -.2500 .5000 0 綠 -.5000 -.0000 0 黃 .6250 .5000 0 藍 .3125 .1875 0 紅 .0000 -.1250 0 青 -.1250 -.6250 0 紫 .5000 -.2500 0 桔 \ ) \ ( A3. 貓 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ )
七巧板 Redux8
陳爽
'24 May 08
\ tangram_07 七巧板 20161118 陳爽 \ 任意點 x,y 之座標 原點置中 值域放大 : x x 2 * .5 - ; \ -1 < x < 1 : y y 2 * .5 - ; \ -1 < y < 1 \ 指定點 X,Y 至任意點 x,y 之距離 r : r ( X Y -- r ) y .5 - swap - dup * x .5 - rot - dup * + sqrt ; \ 兩倍圓周率 : 2pi pi pi + ; \ 負片影像: 0 變 1, 1 變 0 : 反 1 swap - ; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 原點 X,Y 轉軸 A 角度 ( 0 右 .25 上 .5 左 .75 下 ) : 座標轉換 ( X Y A -- x" y" ) >r 2dup r .02 > -rot ( 洞 X Y ) x .5 - rot - ( 洞 Y x' ) y -.5 + rot - ( 洞 x' y' ) over 2 ** over 2 ** + sqrt 1.04 * -rot ( 洞 r x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) 2pi * ( 洞 r a' ) 2dup cos * -rot ( 洞 x" r a' ) sin * ( 洞 x" y" ) ; : 綠 ( R G B X Y A -- R G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup + -.25 > -rot ( R G B 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( R G B 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( R G B 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * rot + swap ( R G' B ) ; : 黃 ( R G B X Y A -- R' G' B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - .25 < -rot ( R G B 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( R G B 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( R G B 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * >r rot r@ + rot r> + rot ( R' G' 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">0 y"<.25 x" ) .125 < ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * + ( R G B' ) ; : 紅 ( R G B X Y A -- R' G B ) 座標轉換 ( R G B 洞 x" y" ) 2dup - -rot + ( R G B 洞 x"-y" x"+y" ) dup -.25 > swap ( R G B 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( R G B 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * >r rot r> + -rot ( R' G 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" ) dup >r - -.125 > ( R G B 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( R G B 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * >r swap r@ + swap r> + ( R G' B' ) ; : 紫 ( R G B X Y A -- R' G B' ) 座標轉換 ( R G B 洞 x" y" ) swap over - ( R G B 洞 y" x"-y" ) dup -.25 > swap ( R G B 洞 x"-y">-.25 x"-y" ) .25 < rot ( R G B 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( R G B 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * >r rot r@ + -rot r> + ( R' G B' ) ; : 桔 ( 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" ) .25 < rot ( R G B 洞 x"-y">0 y"<.25 x" ) -.25 > ( R G B 洞 x"-y">0 y"<.25 x">-.25 ) * * * >r rot r@ + rot r> 2 / + rot ( R' G' B ) ; \ ( A 七彩板組圖範例 0 0 0 \ 全黑 \ ( A1. 拼成方形 .0000 .2500 0 綠 -.2500 .0000 0 黃 .3750 .2500 0 藍 .2500 .0000 0 紅 .0000 -.1250 0 青 -.1250 -.3750 0 紫 .2500 -.2500 0 桔 \ ) ( A2. 方形散開 -.2500 .5000 0 綠 -.5000 -.0000 0 黃 .6250 .5000 0 藍 .3125 .1875 0 紅 .0000 -.1250 0 青 -.1250 -.6250 0 紫 .5000 -.2500 0 桔 \ ) ( A3. 貓 .1200 -.7100 .1250 綠 \ 腿 .0420 -.2000 .0000 黃 \ 身 -.2000 -.0759 .6250 桔 \ 胸 -.3250 .3855 .0000 紅 \ 頭 -.2000 .6310 .0000 藍 \ 右耳 -.4500 .6310 .7500 青 \ 左耳 .6050 -.6720 .5420 紫 \ 尾 \ ) \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ )
七巧板 Redux7
陳爽
'24 May 08
\ 6th try : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : r ( X Y -- r ) y .5 - swap - 2 ** x .5 - rot - 2 ** + sqrt ; : 2pi pi pi + ; : a ( X Y -- a ) y .5 - swap - x .5 - rot - atan2 pi + 2pi / .5 + 1 mod ; : u ( X Y A -- u ) >r 2dup r -rot a r> - 2pi * cos * ; : v ( X Y A -- v ) >r 2dup r -rot a r> - 2pi * sin * ; : 洞 ( X Y -- ) r .03 > ; : 格 .125 mod .01 > * ; : 綠 ( X Y -- ) 2dup x rot - x 格 ( y x-X ) y rot .25 - - y 格 ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop rot rot 洞 * ; : 藍 ( X Y -- ) 2dup x rot .375 - - x 格 ( y x-X ) y rot .25 - - y 格 ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop rot rot 洞 * ; : 紅 ( X Y -- ) 2dup x rot .25 - - x 格 ( y x-X ) y rot - y 格 ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop rot rot 洞 * ; : 黃 ( X Y -- ) 2dup x rot .25 + - x 格 ( y x-X ) y rot - y 格 ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop rot rot 洞 * ; : 青 ( X Y -- ) 2dup x rot - x 格 ( y x-X ) y rot .125 + - y 格 ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop rot rot 洞 * ; : 紫 ( X Y -- ) 2dup x rot .125 + - x 格 ( y x-X ) y rot .375 + - y 格 ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop rot rot 洞 * ; : 桔 ( X Y -- ) 2dup x rot .25 - - x 格 ( y x-X ) y rot .25 + - y 格 ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop rot rot 洞 * ; : 綠 -.25 .5 綠 ; : 黃 -.5 0 黃 ; : 藍 .625 .5 藍 ; : 紅 .3125 .1875 紅 ; : 青 0 -.125 青 ; : 紫 -.125 -.625 紫 ; : 桔 .5 -.25 桔 ; : 靜 綠 黃 藍 紅 青 紫 桔 + + + + + + ; : 座標平移 ( X Y -- x' y' ) x .5 - rot - ( Y x-.5-X ) y -.5 + rot - ( x-.5-X y-.5-Y ) ; : >極座標 ( X Y A -- 洞 r a ) >r 2dup 洞 -rot ( 洞 X Y ) 座標平移 ( 洞 x' y' ) over 2 ** over 2 ** + sqrt -rot ( 洞 r' x' y' ) swap atan2 2pi / r> - 1 mod ( 洞 r a ) ; : 極座標> ( r a -- x" y" ) 2pi * ( r a' ) 2dup cos * -rot ( r*cos(a') r a' ) sin * ( r*cos(a') r*sin(a') ) ; : 座標轉換 ( X Y A -- x" y" ) >極座標 ( 洞 r a ) 極座標> ( 洞 x" y" ) ; : 秒動角度 t 60 / negate ; : 綠 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup + -.25 > -rot ( 洞 x"+y">-.25 x" y" ) dup >r - .25 < ( 洞 x"+y">-.25 x"-y"<.25 ) r> .25 < ( 洞 x"+y"<-.25 x"-y"<.25 y"<.25 ) * * * ; : 綠 -.25 .5 秒動角度 綠 ; \ 綠 : 黃 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup - .25 < -rot ( 洞 x"-y"<.25 x" y" ) over >r + .25 < r> ( 洞 x"-y"<.25 x"+y"<.25 x" ) -.25 > ( 洞 x"-y"<.25 x"+y"<.25 x">-.25 ) * * * ; : 黃 -.5 0 秒動角度 黃 ; \ 黃 : 藍 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup - -.125 > -rot ( 洞 x"-y">-.125 x" y" ) over >r + -.125 > r> ( 洞 x"-y">0 y"<.25 x" ) .125 < ( 洞 x"-y">0 y"<.25 x">-.25 ) * * * ; : 藍 .625 .5 秒動角度 藍 ; \ 藍 : 紅 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup - -rot + ( 洞 x"-y" x"+y" ) dup -.25 > swap ( 洞 x"-y" x"+y">-.25 x"+y" ) .25 < rot ( 洞 x"+y">-.25 x"+y"<.25 x"-y" ) dup .25 < swap ( 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y" ) -.25 > ( 洞 x"+y">-.25 x"+y"<.25 x"-y"<.25 x"-y">-.25 ) * * * * ; : 紅 .3125 .1875 秒動角度 紅 ; \ 紅 : 青 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup + .125 < -rot ( 洞 x"+y"<.125 x" y" ) dup >r - -.125 > ( 洞 x"+y">-.25 x"-y">-.125 ) r> -.125 > ( 洞 x"+y"<-.25 x"-y"<-.125 y">-.125 ) * * * ; : 青 0 -.125 秒動角度 青 ; \ 青 : 紫 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) swap over - ( 洞 y" x"-y" ) dup -.25 > swap ( 洞 x"-y">-.25 x"-y" ) .25 < rot ( 洞 x"-y">-.25 x"-y"<.25 y" ) dup .125 < swap ( 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y" ) -.125 > ( 洞 x"-y">-.25 x"-y"<.25 y" y"<.125 y">-.125 ) * * * * ; : 紫 -.125 -.625 秒動角度 紫 ; \ 紫 : 桔 ( X Y A -- ) 座標轉換 ( 洞 x" y" ) 2dup - 0 > rot ( 洞 x"-y">0 x" y" ) .25 < rot ( 洞 x"-y">0 y"<.25 x" ) -.25 > ( 洞 x"-y">0 y"<.25 x">-.25 ) * * * ; : 桔 .5 -.25 秒動角度 桔 ; \ 桔 靜 黃 藍 紅 紫 + + +
七巧板 Redux6
陳爽
'24 May 08
\ 5th try 增加/取消 前置反斜線及空格 起動/停止 此段落 ( 綠 黃 藍 紅 青 紫 桔 紅 0 1 0 1 0 1 1 綠 1 1 0 0 1 0 .5 藍 0 0 1 0 1 1 0 ) : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : r ( X Y -- r ) y .5 - swap - 2 ** x .5 - rot - 2 ** + sqrt ; : c ( X Y -- ) r .03 > ; : 格 .125 mod .01 > * ; : 綠 ( X Y -- ) 2dup x rot - x 格 ( y x-X ) y rot .25 - - y 格 ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop rot rot c * ; : 藍 ( X Y -- ) 2dup x rot .375 - - x 格 ( y x-X ) y rot .25 - - y 格 ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop rot rot c * ; : 紅 ( X Y -- ) 2dup x rot .25 - - x 格 ( y x-X ) y rot - y 格 ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop rot rot c * ; : 黃 ( X Y -- ) 2dup x rot .25 + - x 格 ( y x-X ) y rot - y 格 ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop rot rot c * ; : 青 ( X Y -- ) 2dup x rot - x 格 ( y x-X ) y rot .125 + - y 格 ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop rot rot c * ; : 紫 ( X Y -- ) 2dup x rot .125 + - x 格 ( y x-X ) y rot .375 + - y 格 ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop rot rot c * ; : 桔 ( X Y -- ) 2dup x rot .25 - - x 格 ( y x-X ) y rot .25 + - y 格 ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop rot rot c * ; : 綠 -.25 .5 綠 ; : 黃 -.5 0 黃 ; : 藍 .625 .5 藍 ; : 紅 .3125 .1875 紅 ; : 青 0 -.125 青 ; : 紫 -.125 -.625 紫 ; : 桔 .5 -.25 桔 ; : tangram ( 紅 ) 黃 紅 紫 桔 + + + ( 綠 ) 綠 黃 青 桔 2 / + + + ( 藍 ) 藍 青 紫 + + ; tangram
七巧板 Redux5
陳爽
'24 May 08
: x1 x 4 t * sin cos / ; : y1 y 4 t * sin cos / ; x1 y1 x1 5* sin y1 5 * sin * + x1 .5 - dup * y1 .5 - dup * + .25 <
Color Ball Redux
Stainless
'24 May 08
( 綠 黃 藍 紅 青 紫 桔 紅 0 1 0 1 0 1 1 綠 1 1 0 0 1 0 .5 藍 0 0 1 0 1 1 0 ) : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : 綠 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop ; : 黃 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop ; : 藍 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop ; : 紅 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop ; : 青 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop ; : 紫 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop ; : 桔 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop ; : 動 dup t sin * + ; : 綠 -.07 動 .25 動 綠 ; : 黃 -.21 動 .11 動 黃 ; : 藍 .21 動 .23 動 藍 ; : 紅 .07 動 .11 動 紅 ; : 青 -.07 動 -.04 動 青 ; : 紫 -.27 動 -.23 動 紫 ; : 桔 .14 動 -.14 動 桔 ; : tangram ( 紅 ) 黃 紅 紫 桔 + + + ( 綠 ) 綠 黃 青 桔 .5 * + + + ( 藍 ) 藍 青 紫 + + ; tangram
七巧板 Redux4
陳爽
'24 May 08
( 綠 黃 藍 紅 青 紫 桔 紅 0 1 0 1 0 1 1 綠 1 1 0 0 1 0 .5 藍 0 0 1 0 1 1 0 ) : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : 綠 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop ; : 黃 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop ; : 藍 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop ; : 紅 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop ; : 青 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop ; : 紫 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop ; : 桔 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop ; : 動 dup t sin * + ; : 綠 -.07 動 .25 動 綠 ; : 黃 -.21 動 .11 動 黃 ; : 藍 .21 動 .11 動 藍 ; : 紅 .07 動 .11 動 紅 ; : 青 -.07 動 -.04 動 青 ; : 紫 -.27 動 -.23 動 紫 ; : 桔 .14 動 -.14 動 桔 ; : tangram ( 紅 ) 黃 紅 紫 桔 + + + ( 綠 ) 綠 黃 青 桔 .5 * + + + ( 藍 ) 藍 青 紫 + + ; tangram
七巧板 Redux3
陳爽
'24 May 08
( 綠 黃 藍 紅 青 紫 桔 紅 0 1 0 1 0 1 1 綠 1 1 0 0 1 0 .5 藍 0 0 1 0 1 1 0 ) : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : 綠 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop ; : 黃 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop ; : 藍 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop ; : 紅 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop ; : 青 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop ; : 紫 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop ; : 桔 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop ; : 綠 -.10 .35 綠 ; : 黃 -.30 .15 黃 ; : 藍 .30 .35 藍 ; : 紅 .10 .15 紅 ; : 青 -.10 -.05 青 ; : 紫 -.38 -.33 紫 ; : 桔 .30 -.25 桔 ; : tangram ( 紅 ) 黃 紅 紫 桔 + + + ( 綠 ) 綠 黃 青 桔 .5 * + + + ( 藍 ) 藍 青 紫 + + ; tangram
七巧板 Redux2
陳爽
'24 May 08
( 綠 黃 藍 紅 青 紫 桔 紅 0 1 0 1 0 1 1 綠 1 1 0 0 1 0 .5 藍 0 0 1 0 1 1 0 ) : x x 2 * .5 - ; : y y 2 * .5 - ; \ 縮小置中 : 綠 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 > over r@ - 0 < * r@ 1 < * swap drop r> drop ; : 黃 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ + 1 < over r@ - 0 < * over 0 > * swap drop r> drop ; : 藍 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 > * over 1 < * swap drop r> drop ; : 紅 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - 0 > over r@ + 1.5 < * over r@ - .5 < * over r@ + 1 > * swap drop r> drop ; : 青 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 > over r@ - 0 > * over r@ + 1 < * swap drop r> drop ; : 紫 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r r@ .25 < over r@ - 0 > * over r@ - .5 < * r@ 0 > * swap drop r> drop ; : 桔 ( X Y -- ) x rot - ( y x-X ) y rot - ( x-X y-Y ) >r dup r@ - .5 > over 0 > * over 1 < * r@ 0 > * swap drop r> drop ; : 綠 .00 .10 綠 ; : 黃 -.05 .05 黃 ; : 藍 .10 .10 藍 ; : 紅 .05 .05 紅 ; : 青 .00 .00 青 ; : 紫 -.07 -.07 紫 ; : 桔 .05 -.05 桔 ; : tangram ( 紅 ) 黃 紅 紫 桔 + + + ( 綠 ) 綠 黃 青 桔 .5 * + + + ( 藍 ) 藍 青 紫 + + ; tangram
七巧板 Redux
陳爽
'24 May 08
\ 摺與層的變化 20151222 : n 2 ; : nn n n * ; : 2pi 2 pi * ; \ 中心 到 x,y 距離 a 值域 0 到 1 : r x .5 - 2 ** y .5 - 2 ** + sqrt ; \ 中心 到 x,y 角度 a 值域 0 到 1 : a y .5 - x .5 - atan2 pi + pi / 1 + 2 / .5 - 1 mod ; \ v 從 i/n 到 (i+1)/n 值域 為 0 到 1, 其中 i 為 0,1,...,n-1 : 摺 ( v n -- 摺 ) * 1 mod ; \ v 從 i/n 到 (i+1)/n 值 為 i/n, 其中 i 為 0,1,...,n-1 : 層 ( v n -- 層 ) dup push * floor pop / ; : xx x n 摺 ; : yy y n 摺 ; : 角 a nn 層 ; \ n*n 摺 個別座標 中心 到 xx,yy 距離 rr 值域 0 到 1 : rr xx .5 - 2 ** yy .5 - 2 ** + sqrt 2 * ; : 圓 ( 半徑 -- 圓 ) rr > ; \ n*n 摺 個別座標 中心 到 xx,yy 角度 aa 值域 0 到 1 : aa yy .5 - xx .5 - atan2 pi + pi / 1 + 2 / t 9 / - \ 隨秒數 t 旋轉 3 8 / + \ 修正 起始角度 1 mod ; \ 紅色圓半徑 值域 .55 到 .65 每秒增減 .6 t 2pi * sin .05 * + \ 每秒修正值域 -.05 到 .05 圓 \ 綠色角度 值域 0 到 1 旋轉 (修正各自起始角度) aa a 4 層 - 1 mod \ \ 藍色無 0 \ 透視圓 1 圓
摺與層的變化 Redux
Anonymous
'24 May 08
: d dup ; : fract d floor - ; : px x .5 - ; : py y .5 - ; : len px d * py d * + sqrt ; : mix 1 over - z* swap drop ; : f fract 3 over 2 * - over * * ; : power pop d push ; : uvx px py atan2 pi 2 * / .5 + power * ; : uvy len .4 * t .05 * + power * ; : uvz .5 t .01 * + power * ; : v power mod floor ;
Untitled
Anonymous
'24 May 08
: p1 x y + 1 > x y - 0 < and ; : p2 x y + 1 < x y - 0 < and ; : p3 x y - 0 > x y + 1.5 > and ; : p4 x y - 0 > x y + 1.5 < and x y - .5 < and x y + 1 > and ; : p5 y .25 > x y - 0 > and x y + 1 < and ; : p6 y .25 < x y - 0 > and x y - .5 < and ; : p7 x y - .5 > ; : 七巧板 p2 p4 p6 + + p7 + p1 p2 p5 + + p7 2 / + p3 p5 p6 + + ; 七巧板
七巧板
陳爽
'24 May 08
: sq dup * ; : off t sin / ; x off sq y off sq + 1 dup 1 swap - dup
Untitled
Anonymous
'24 May 08
Next