Haiku Gallery
: y0 y 9.0 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 9 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
purple puddle
sel'hen
'25 Feb 06
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 8 over dup * - sqrt atan2 swap / y 0.0 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.6 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.8 -1.77 a - 0.15 l + 0.100 0.9 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.84 a + 0.1 l + 0.9 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
hello yo person
shin-En
'25 Feb 06
: 5pi 5 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin 1 pop - * ; : ss push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin pop * ; .5 .7 x y s .5 .3 x y ss
MF
rx
'25 Feb 06
: ' .5 - 2 * ; : x' x ' ; : y' y ' ; : x'' x ' mx ' - ; : y'' y ' my ' - ; : 2pi 2 pi * ; : pi2 pi 2 / ; : t' t 16 mod 16 / ; : r x' dup * y' dup * + sqrt ; : r' x'' dup * y'' dup * + sqrt ; : phi y' x' atan2 pi / 1 + 2 / ; : phi' y'' x'' atan2 pi / 1 + 2 / ; : t+ t' + 1 mod ; : ~= - abs dt < ; r' 8 * 1 mod phi' t+ ~= .8 r' 2 / t' ~= 1.2 r' -
Siren
rx
'25 Feb 06
: d dup ; : ' .40 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.45 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .506 + sqrt ; : z r 420 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .40 * .59 + .4 r 20 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 51 /
hyptonyze your eyes
shin-En
'25 Feb 06
: web push push x 0.5 + y 0.9 + * pop * sin 0 max x 0.3 + y 0.2 + * pop * sin 0 max + ; 48 23 web 49 17 web * x + 23 31 web 37 49 web * y x * + 27 31 web 20 34 web * y +
moving so fast you can't see it move
shin-En
'25 Feb 06
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.1000 - d 0 > 2 * 1 - * 0.01 + ; : e 8.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.0101 + d t ; e x - d * f y - d * + sqrt 0.08 < p 901 * sin m e * - a 0.08 < * p 901 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the hot air baloon
shin-En
'25 Feb 06
: 5pi 6 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin 1 pop - * ; : u t sin pi / ; : v t cos pi / ; .4 u + .8 v + x y s .3 u - .7 v - x y s
HYPTONYZE YO' SELV'ES
shin-En
'25 Feb 06
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 3 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 2.4 < * 6 * m * 1 p d * y 0.5 - d * + 39 * 30 ** m - y 0.29 - p atan2 abs t 10 * c 0.8 * - 20 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
''BOUNCING'' BALLS OL' MAN
shin-En
'25 Feb 06
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 8 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
ele'mon suhk' sel'pon' (white)
sel'hen
'25 Feb 06
: i x 14 * floor ; : j y 29 * floor ; : has_bit swap 2 swap ** dup -rot 5 * mod swap >= ; i j - 4 + 37 has_bit i j + 7 - 21 has_bit \ 3 * + dup 1 >= swap 7 = dup rot + swap
welea'sa' (all stairs lead up)
sel'hen
'25 Feb 06
: e .1 ; : x x .7 = ; : y y .5 - ; : x x 7 * cos ; : y y 7 * sin ; : floor >r .5 e * + r> * dup lines - e < ; : net >r x r@ lines y r@ floor x y + r@ lines x y - r> lines or ; t 1 / sin 44 * 4 + net
circles and lines
Shinya
'25 Feb 06
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 9 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.3 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0. l + 0.5 0.7 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0. l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.62 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
SEL'ELA' SUK'AN LAE'SUI' UA'KHAN
sel'hen
'25 Feb 06
: i x 10 * floor ; : j y 10 * floor ; : has_bit swap 2 swap ** dup -rot 2 * mod swap >= ; i j - 2 + 21 has_bit i j + 7 - 21 has_bit \ 2 * + dup 1 >= swap 2 = dup rot + swap
GalaxiesColliding has_bit Redux
陳爽
'25 Feb 06
: 2pi 2 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.01 * r@ + 200 * sin 1 pop - * ; : u t sin pi / ; : v t cos pi / ; .5 u + .5 v + x y s .5 u - .5 v - x y s
rolling spiral
陳爽
'25 Feb 06
: d dup ; : m 0.4 * 0.6 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 8 * 1 - * 0.01 + ; : e 2.4 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.7 * 0.98 + d t ; e x - d * f y - d * + sqrt 0.01 < p 1000 * sin m e * - a 0.03 < * p 100 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the fast ball Redux
shin-En
'25 Feb 06
: g x 6 * floor y 10 * floor ; g + 4 = g + 3 = g + 1 = or or g - 7 = g = g - -9 = or or 4 * + dup 1 >= swap 5 =
unfortunate chess game
Anonymous
'25 Feb 06
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.8 * sin 7 / ; : ly t 7 + 1.7 * sin 3 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 89 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .1 * .20000098 + .200 r 92 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
darkenbrass
shin-En
'25 Feb 06
: d dup ; : m 0.4 * 0.6 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 8 * 1 - * 0.01 + ; : e 2.4 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.7 * 0.98 + d t ; e x - d * f y - d * + sqrt 0.01 < p 1000 * sin m e * - a 0.03 < * p 100 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the disapearing ball
shin-En
'25 Feb 06
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .1 * .85 + .4 r 40 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
Golden bump Redux
Anonymous
'25 Feb 06
: sq dup * ; : d sq swap sq + sqrt^3 ; : s push - swap pop - 2dup d push atan2 0.01 * pop + 200 * sin ; .5 .5 x y s t sin abs t cos abs x y s + dup dup
Moiré pattern generator #1 Redux
Anonymous
'25 Feb 06
: i x 10 * floor ; : j y 10 * floor ; : has_bit swap 2 swap ** dup -rot 2 * mod swap >= ; i j - 2 + 21 has_bit i j + 7 - 21 has_bit 2 * + dup 1 >= swap 2 =
GalaxiesColliding has_bit
Christer Nilsson
'25 Feb 06
: g x 10 * floor y 10 * floor ; g + 7 = g + 9 = g + 11 = or or g - 2 = g = g - -2 = or or 2 * + dup 1 >= swap 2 =
GalaxiesColliding
Christer Nilsson
'25 Feb 06
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x y spiral x y spiral
Look into my Eyes Redux
Anonymous
'25 Feb 06
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x y spiral x y spiral
Look into my Eyes Redux
Anonymous
'25 Feb 06
x random + y random + dup + 1
Rain
dm
'25 Feb 06
: square dup * ; : pt y - square push x - square pop + 1 swap t sin 2 + pow / swap over * z+ ; 0 0 .2 .3 .2 pt 1 .2 t sin + .5 pt .8 .1 .7 pt 0 .7 .2 pt .5 .3 .5 t sin * pt 0 .7 .7 pt .3 .32 t cos * .4 pt swap / 0 0 .2 .1 .2 pt 1 .2 .4 pt .8 .1 .7 pt 0 .7 t sin - .2 pt .2 .4 .5 pt 0 .9 .7 t cos * pt .3 t cos * .32 .4 pt swap / 0 0 .2 .15 .1 pt .3 .3 t sin + .3 pt .2 .1 .6 pt 0 .7 t cos + .2 pt .2 .4 .5 pt 1 .9 .8 t sin * pt .3 .42 .5 pt swap /
Voronous Redux
Anonymous
'25 Feb 06
: square dup * ; : pt y - square push x - square pop + 1 swap 5 pow / swap over * z+ ; 0 0 .2 .3 .2 pt 1 .2 .5 pt .8 .1 .7 pt 0 .7 .2 pt .5 .3 .5 pt 0 .7 .7 pt .3 .32 .4 pt swap / 0 0 .2 .1 .2 pt 1 .2 .4 pt .8 .1 .7 pt 0 .7 .2 pt .2 .4 .5 pt 0 .9 .7 pt .3 .32 .4 pt swap / 0 0 .2 .15 .1 pt .3 .3 .3 pt .2 .1 .6 pt 0 .7 .2 pt .2 .4 .5 pt 1 .9 .8 pt .3 .42 .5 pt swap /
Voronous
BradN
'25 Feb 06
\ n-edge-graph : polygon ( X Y R N -- red_circle n_green_edge ) over >r rot y swap - >r ( X R N | R y-Y ) rot x swap - >r swap ( N R | R y-Y x-X ) pi 2 / dup >r ( N R α | R y-Y x-X α ) sin * ( N R*sin[α] | R y-Y x-X α ) r> rot ( R*sin[α] α N | R y-Y x-X ) pi swap / ( R*sin[α] α h | R y-Y x-X ) dup dup + ( R*sin[α] α h a | R y-Y x-X ) r> r@ ( R*sin[α] α h a x-X y-Y | R y-Y ) over >r ( R*sin[α] α h a x-X y-Y | R y-Y x-X ) atan2 ( R*sin[α] α h a θ | R y-Y x-X ) swap mod ( R*sin[α] α h mod(θ,a) | R y-Y x-X ) swap - ( R*sin[α] α mod(θ,a)-h | R y-Y x-X ) abs ( R*sin[α] α β | R y-Y x-X ) over cos over sin * ( R*sin[α] α β cos[α]*sin[β] | R y-Y x-X ) -rot ( R*sin[α] cos[α]*sin[β] α β | R y-Y x-X ) cos swap sin * + ( R*sin[α] cos[α]*sin[β]+cos[β]*sin[α] | R y-Y x-X ) / ( K | R y-Y x-X ) r> 2 ** r> 2 ** + sqrt ( K r | R ) dup r> .93 * < -rot - ( r<R*.95 K-r | ) abs 1 swap - 199 ** ( r<R*.95 {1-abs[K-r]}**199 | ) ; .5 .5 .2 3 polygon
circle and triangle
sjdiau
'25 Feb 06
: 3dup >r 2dup r@ -rot r> ; : offset >r swap >r + r> r> + ; : between >r swap dup >r <= r> r> < and ; : hor >r .01 .09 between r> -.01 .01 between and ; : ver >r -.01 .01 between r> .01 .09 between and ; : off over <> r> and >r ; : sega >r 0 -.2 offset hor r> 1 >r 1 off 4 off drop r> and ; : segb >r -.1 -.1 offset ver r> 1 >r 5 off 6 off drop r> and ; : segc >r -.1 0 offset ver r> 1 >r 2 off drop r> and ; : segd >r hor r> 1 >r 1 off 4 off 7 off 9 off drop r> and ; : sege >r ver r> 1 >r 1 off 3 off 4 off 5 off 7 off 9 off drop r> and ; : segf >r 0 -.1 offset ver r> 1 >r 1 off 2 off 3 off 7 off drop r> and ; : segg >r 0 -.1 offset hor r> 1 >r 0 off 1 off 7 off drop r> and ; : digit 3dup sega >r 3dup segb r> or >r 3dup segc r> or >r 3dup segd r> or >r 3dup sege r> or >r 3dup segf r> or >r segg r> or ; : 2digit 3dup >r >r >r 10 / floor digit r> .14 - r> r> 10 mod floor digit or ; : sec t 60 mod floor ; : r x .5 - 2 ** y .5 - 2 ** + .5 ** ; \ r .3 < x .36 - y .4 - sec 2digit x y 1 sega
timer Redux
Anonymous
'25 Feb 06
: 2pi pi 2 * ; : a y .5 - x .5 - atan2 2pi / 1 mod ; \ 中心 到 x,y 角度 a .1 - 1 mod \ 36 degree angle
36 degree
sjdiau
'25 Feb 06
: offset >r swap >r - r> r> - ; : norm dup * swap dup * + sqrt ; : theta swap atan2 ; : polar 2dup norm -rot theta ; : rect 2dup cos * -rot sin * ; : shine 80 * 2 ** 1 + 1 swap / ; : swing t 1.6 * pi * dup >r 2 * cos .25 * r> pi .25 * + sin .25 * ; : length swing norm ; : saber x y .5 .5 offset polar swing theta - rect >r dup 0 < if drop r> drop 1000 else dup length <= if drop r> else length - r> norm then then ; saber shine
Darth Vader 2
FSD
'25 Feb 06
: nip swap drop ; : offset >r swap >r - r> r> - ; : norm dup * swap dup * + sqrt ; : theta swap atan2 ; : polar 2dup theta >r norm r> ; : rect 2dup sin * >r cos * r> ; : shine 80 * 2 ** 1 + 1 swap / ; : swing t 0.8 * 2 * pi * dup >r 2 * cos 2 / r> pi 4 / + sin 2 / ; : length swing norm ; : saber x y .5 .5 offset polar swing theta - rect >r dup 0 < if drop r> drop 1000 else dup length <= if drop r> else length - r> norm then then ; saber shine
Darth Vader
FSD
'25 Feb 06
: offset >r swap >r - r> r> - ; : norm dup * swap dup * + sqrt ; : shine 80 * 2 ** 1 + 1 swap / ; : lisa t 2 * pi * dup >r 2 * cos 2 / r> pi 4 / + sin 2 / ; : juice >r x y .5 .5 offset rot r> offset norm shine ; lisa juice
Lisa Juice
FSD
'25 Feb 06
: 3dup >r 2dup r@ -rot r> ; : offset >r swap >r + r> r> + ; : between >r swap dup >r <= r> r> < and ; : hor >r .01 .09 between r> -.01 .01 between and ; : ver >r -.01 .01 between r> .01 .09 between and ; : off over <> r> and >r ; : sega >r 0 -.2 offset hor r> 1 >r 1 off 4 off drop r> and ; : segb >r -.1 -.1 offset ver r> 1 >r 5 off 6 off drop r> and ; : segc >r -.1 0 offset ver r> 1 >r 2 off drop r> and ; : segd >r hor r> 1 >r 1 off 4 off 7 off 9 off drop r> and ; : sege >r ver r> 1 >r 1 off 3 off 4 off 5 off 7 off 9 off drop r> and ; : segf >r 0 -.1 offset ver r> 1 >r 1 off 2 off 3 off 7 off drop r> and ; : segg >r 0 -.1 offset hor r> 1 >r 0 off 1 off 7 off drop r> and ; : digit 3dup sega >r 3dup segb r> or >r 3dup segc r> or >r 3dup segd r> or >r 3dup sege r> or >r 3dup segf r> or >r segg r> or ; : 2digit 3dup >r >r >r 10 / floor digit r> .14 - r> r> 10 mod floor digit or ; : sec t 60 mod floor ; : r x .5 - 2 ** y .5 - 2 ** + .5 ** ; r .3 < x .36 - y .4 - sec 2digit
timer
陳爽
'25 Feb 06
\ n-edge-graph : edge-graph ( X Y R N -- red_circle n_green_edge ) over >r rot y swap - >r ( X R N | R y-Y ) rot x swap - >r swap ( N R | R y-Y x-X ) pi 2 / dup >r ( N R α | R y-Y x-X α ) sin * ( N R*sin[α] | R y-Y x-X α ) r> rot ( R*sin[α] α N | R y-Y x-X ) pi swap / ( R*sin[α] α h | R y-Y x-X ) dup dup + ( R*sin[α] α h a | R y-Y x-X ) r> r@ ( R*sin[α] α h a x-X y-Y | R y-Y ) over >r ( R*sin[α] α h a x-X y-Y | R y-Y x-X ) atan2 ( R*sin[α] α h a θ | R y-Y x-X ) swap mod ( R*sin[α] α h mod(θ,a) | R y-Y x-X ) swap - ( R*sin[α] α mod(θ,a)-h | R y-Y x-X ) abs ( R*sin[α] α β | R y-Y x-X ) over cos over sin * ( R*sin[α] α β cos[α]*sin[β] | R y-Y x-X ) -rot ( R*sin[α] cos[α]*sin[β] α β | R y-Y x-X ) cos swap sin * + ( R*sin[α] cos[α]*sin[β]+cos[β]*sin[α] | R y-Y x-X ) / ( K | R y-Y x-X ) r> 2 ** r> 2 ** + sqrt ( K r | R ) dup r> .93 * < -rot - ( r<R*.95 K-r | ) abs 1 swap - 199 ** ( r<R*.95 {1-abs[K-r]}**199 | ) ; : n t 10 mod floor 4 + ; \ 3 < n < 14 .3 .35 .25 n edge-graph .5 .65 .25 n edge-graph .7 .35 .25 n edge-graph z+ z+
n-edge-graph Redux
陳爽
'25 Feb 06
\ n-edge-graph : edge-graph ( X Y R N -- red_circle n_green_edge ) rot y swap - >r ( X R N | y-Y ) rot x swap - >r swap ( N R | y-Y x-X ) pi 2 / dup >r ( N R α | y-Y x-X α ) sin * ( N R*sin[α] | y-Y x-X α ) r> rot ( R*sin[α] α N | y-Y x-X ) pi swap / ( R*sin[α] α h | y-Y x-X ) dup dup + ( R*sin[α] α h a | y-Y x-X ) r> r@ ( R*sin[α] α h a x-X y-Y | y-Y ) over >r ( R*sin[α] α h a x-X y-Y | y-Y x-X ) atan2 ( R*sin[α] α h a θ | y-Y x-X ) swap mod ( R*sin[α] α h mod(θ,a) | y-Y x-X ) swap - ( R*sin[α] α mod(θ,a)-h | y-Y x-X ) abs ( R*sin[α] α β | y-Y x-X ) over cos over sin * ( R*sin[α] α β cos[α]*sin[β] | y-Y x-X ) -rot ( R*sin[α] cos[α]*sin[β] α β | y-Y x-X ) cos swap sin * + ( R*sin[α] cos[α]*sin[β]+cos[β]*sin[α] | y-Y x-X ) / ( R*sin[α]/{cos[α]*sin[β]+cos[β]*sin[α]} | y-Y x-X ) r> 2 ** r> 2 ** + sqrt dup .23 < -rot - abs 1 swap - 199 ** ; : n t 10 mod floor 4 + ; .3 .35 .25 n edge-graph .5 .65 .25 n edge-graph .7 .35 .25 n edge-graph z+ z+
n-edge-graph
陳爽
'25 Feb 06
: n t 7 mod floor 3 + ; : 2pi/n 2 pi * n / ; : pi/n pi n / ; : spoke 2pi/n mod pi/n - abs ; : r ( x y -- r ) 2 ** swap 2 ** + .5 ** ; : a ( x y -- a ) swap atan2 ; : polar 2dup r -rot a ; : wedge dup cos 1.376 n 5 / 2 ** * \ adjust * swap sin - * .268 <= ; : gram spoke wedge ; : x x .5 - ; : y y .5 - ; x y polar ( r a ) over .4 < ( r a circle ) >r over .3 > ( r a hole ) >r pi 2 / - gram r> r>
Zap Redux
陳爽
'25 Feb 06
: 3dup >r 2dup r@ -rot r> ; : offset >r swap >r + r> r> + ; : between >r swap dup >r <= r> r> < and ; : hor >r .01 .09 between r> -.01 .01 between and ; : ver >r -.01 .01 between r> .01 .09 between and ; : off over <> r> and >r ; : sega >r 0 -.2 offset hor r> 1 >r 1 off 4 off drop r> and ; : segb >r -.1 -.1 offset ver r> 1 >r 5 off 6 off drop r> and ; : segc >r -.1 0 offset ver r> 1 >r 2 off drop r> and ; : segd >r hor r> 1 >r 1 off 4 off 7 off 9 off drop r> and ; : sege >r ver r> 1 >r 1 off 3 off 4 off 5 off 7 off 9 off drop r> and ; : segf >r 0 -.1 offset ver r> 1 >r 1 off 2 off 3 off 7 off drop r> and ; : segg >r 0 -.1 offset hor r> 1 >r 0 off 1 off 7 off drop r> and ; : digit 3dup sega >r 3dup segb r> or >r 3dup segc r> or >r 3dup segd r> or >r 3dup sege r> or >r 3dup segf r> or >r segg r> or ; : 2digit 3dup >r >r >r 10 / floor digit r> .14 - r> r> 10 mod floor digit or ; x .36 - y .4 - 24 2digit dup 0
24
FSD
'25 Feb 06
: d push x - dup * pop y - dup * + sqrt ; : r 2dup push push d 200 * x pop - y pop - atan2 20 * sin 3 * + sin ; : and + abs 2 mod ; .5 .5 r t 10 / dup push sin abs pop cos abs r xor dup dup
Moiré pattern generator #2 Redux
Anonymous
'25 Feb 06
Next