Haiku Gallery

\ 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 陳爽
'25 Sep 17

\ 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 陳爽
'25 Sep 17

Color Ball Redux Stainless
'25 Sep 17

(      綠  黃  藍  紅  青  紫  桔
  紅   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 陳爽
'25 Sep 17

(      綠  黃  藍  紅  青  紫  桔
  紅   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 陳爽
'25 Sep 17

(      綠  黃  藍  紅  青  紫  桔
  紅   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 陳爽
'25 Sep 17

(      綠  黃  藍  紅  青  紫  桔
  紅   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 陳爽
'25 Sep 17

摺與層的變化 Redux Anonymous
'25 Sep 17

Untitled Anonymous
'25 Sep 17

七巧板 陳爽
'25 Sep 17

Untitled Anonymous
'25 Sep 17

Amiga ball Ivanq
'25 Sep 17

Ssss Balls Anonymous
'25 Sep 17

Ssss Redux Anonymous
'25 Sep 17

Ssss BradN
'25 Sep 17

<:::::::::::::::::::::() Shin En
'25 Sep 17

based on PACMAN Shin En
'25 Sep 17

s5hg6hu87yg IS THE CoDe Anonymous
'25 Sep 17

what on earth!... Shin En
'25 Sep 17

<:::::::::::::::::::::() 陳昕亞
'25 Sep 17

Big Flower Redux 陳昕亞
'25 Sep 17

based on PACMAN Shin En
'25 Sep 17

GALAXY <:::::::() Shin En
'25 Sep 17

Complex Library Redux 陳昕亞
'25 Sep 17

TV road Shin En
'25 Sep 17

roaller coaster Shin En
'25 Sep 17

( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ra )

: zoom t 5 / sin 199 / ;
: xx x .3 - .8 zoom - * t cos 7 / negate + ;
: yy y .8 - .77 zoom - * zoom + ;
: a t sin 24 / + ;
: line
2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ;
: wings
.025 .1999999 line .025 -.12 line *
-.025 .12 line - -.02555 -.12 line - ;
: flaps
0.045 .8 line 0.006 .4 line -
0.045 -.8 line 0.006 -.4 line -
+ + 0 max ;
: tail
-0.057 0 line
xx .065 - yy atan2 a 0 > -
xx .065 + yy atan2 a 0 < -
0 max +
xx .0065 + yy atan2 a 55 * 1 min 0 max
xx .0065 - yy atan2 a 55 * 1 min 0 max -
+ ;
: cut
1 -0.064 0 line - *
0.019 0 line * ;
: circle
dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ;
: engine
0.0008 .05 circle + 0.0008 -.05 circle + ;
: fire
0.0002 random 8000 / + dup >r
.05 circle
r> -.05 circle + 5 * ;
: run
4 1 y 1.3 * - /
t dup floor - 6 * +
floor 2 mod
dup y 1.6 * + 1 min .6 *
swap 0 = y 1.6 * + 1 min .5 * ;
: sun
1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ;

run sun +
wings flaps tail cut engine

dup -rot - -rot - dup 0 >

fire dup dup >r >r + rot r> + rot r> .65 * +

0 max .27 ** dup .05 < .36 * +

SFO AIRPORT Shin En
'25 Sep 17

Flower fly Redux 陳昕亞
'25 Sep 17

Flower 陳昕亞
'25 Sep 17

software engineer Shin En
'25 Sep 17

WIERD! Shin En
'25 Sep 17

to fast! <::::::() Redux Shin En
'25 Sep 17

to fast! <::::::() Anonymous
'25 Sep 17

wings Redux Redux Redux Shin En
'25 Sep 17

water fall Redux 陳昕亞
'25 Sep 17

Big Flower Redux(same thing) manwe
'25 Sep 17

Disco Redux Shin En
'25 Sep 17

strange rainbow Redux Shin En
'25 Sep 17

Haiku Gallery

Next