Haiku Gallery
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w 1 y - 0.5 * x + 0.5 + m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski Redux
boomlinde
'25 Jul 16
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski
boomlinde
'25 Jul 16
: z t sin 2 + ; 0 x t sin + z * 1 mod y t cos + z * 1 mod mod 4 * dup
card zoom
boomlinde
'25 Jul 16
: k 0.5 - ; : s k dup * ; : dist x s y s + sqrt ; 0 dist sqrt sqrt sqrt sqrt sqrt 400 * t 10 * - sin x k y k atan2 dist 10 * sin 0.1 * + t + 10 * sin 5 * *
tunnel
boomlinde
'25 Jul 16
: s 0.5 - dup * ; : dist x s y s + sqrt ; 1 x 0.5 - y 0.5 - atan2 dist t 2 * sin 8 * * + 5 * sin 0.5 + dup
polka spiral
boomlinde
'25 Jul 16
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; x 0.5 - y 0.5 - atan2 + dist 20 * sin
Untitled
Anonymous
'25 Jul 16
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin
BACTERIA Redux
Anonymous
'25 Jul 16
: s dup * ; : a x y 10 * 2 t * + sin 0.1 2 t * sin * * + ; : b dup a < swap 0.15 + a > * ; 0.5 b 0.6 b 0.4 b
rainbow
boomlinde
'25 Jul 16
: q dup * ; : i y + swap x + q swap q + sqrt 50 * sin ; : o -0.5 * 0.5 - ; : p t cos o ; : g t sin o ; p g i g p i + 1 + floor dup dup
chess interference
boomlinde
'25 Jul 16
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + t sin * t 127 * sin + x y t + sin 0.02 * t 2.5 * + + sin 11 * sin y x + sin 15 * cos + t 1.7 * sin * t 157 * sin + x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos + t 2.9 * sin * t 100 * sin +
rave
boomlinde
'25 Jul 16
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + t sin * x y t + sin 0.02 * t 1.5 * + + sin 11 * sin y x + sin 15 * cos + t 1.7 * sin * x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos + t 2.9 * sin *
disco Redux
boomlinde
'25 Jul 16
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + x y t + sin 0.02 * t 1.5 * + + sin 11 * sin y x + sin 15 * cos + x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos +
disco
boomlinde
'25 Jul 16
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin dup 0.05 + floor swap dup 0.05 + floor
BACTERIA
boomlinde
'25 Jul 16
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; 0 dist 100 * x 0.5 - y 0.5 - atan2 20 * sin 3 * + t -50 * + sin
flower Redux
boomlinde
'25 Jul 16
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; 0 dist 100 * x 0.5 - y 0.5 - atan2 20 * sin 3 * + sin
flower
boomlinde
'25 Jul 16
: 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 ;0 x y spiral
Untitled
Anonymous
'25 Jul 16
: z x y ; : q z / y x ; q drop q drop drop
Lime Horizon
Lyn
'25 Jul 16
: z x y ; : q z / z - ; q / q * q
sunset
Lyn
'25 Jul 16
x 0.2 - 10 * floor 234 / y * 30 * sin x 0.2 - 10 * floor 2 / x * 30 * sin x 0.34 - 20 * floor 2 / y * 354 * sin
||||||||
Anon94
'25 Jul 16
: b x * cos ; : e y * sin / log cos ; 200 b 16 e 135 b 15 e 108 b 1000 e 23 b 342 e
REDUX-XXX
Anon94
'25 Jul 16
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.30 * pop + 5000 * sin ; x y spiral x y spiral x y spiral
Sprial with sprials
Anon94
'25 Jul 16
: scale dup y * swap x / ; : tooth scale 2 * 1 mod swap 10 * 4 mod + 2 / ; 8 tooth 100 tooth 4 tooth
Glitchcore
anon94
'25 Jul 16
: y y 2 * .8 - ; : y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y 1.8 * sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
B
Anonymous
'25 Jul 16
: y y 2 * .5 - ; : y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
A Redux
BradN
'25 Jul 16
: y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
A
BradN
'25 Jul 16
: 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
Untitled
Anonymous
'25 Jul 16
: ^2 dup * ; : s t * sin 0.5 * 0.5 + ; : s2 t * sin abs ; : circle y - ^2 swap x - ^2 + 0.01 < ; : map 10 s2 0.5 > swap dup 10 t * sin * 10 s + swap 3 t * sin * 4 s + circle and ; 1.5 s2 0.1 map + 1.5 t * cos abs 0 map - 10 s2 -0.1 map +
All Colours Are Beautiful 2
berdario
'25 Jul 16
t sin abs t cos abs t 100 * sin abs
All Colours Are Beautiful
berdario
'25 Jul 16
: t^2 x t - sin * y t sin * - abs 0.1 < ; y x x t^2
my first forth haiku, small change on a swoosh Redux
berdario
'25 Jul 16
: t^2 x t - sin * y t sin * - abs 0.1 < ; y x x
my first forth haiku, small change on a swoosh
berdario
'25 Jul 16
: foo x ; : x y ; : y foo ; x y x 5 * sin y 7 * t + sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux Redux Redux
Anonymous
'25 Jul 16
1 2 + .
Untitled
Anonymous
'25 Jul 16
x 4 * sin y -
test1
Anonymous
'25 Jul 16
rr3
Untitled
Anonymous
'25 Jul 16
: cent x .5 - 2 * y .5 - 2 * ; : square dup * ; : ang cent atan2 pi + pi / 2 / ; : dist cent square swap square + sqrt ; ang 5 * 1 mod dist .3 - <
Untitled
Anonymous
'25 Jul 16
: xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1^2 xc yc len r1 swap / ; : c2^3 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
Orbiting Eclipse
Anonymous
'25 Jul 16
: 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 cos 2 * ; x y spiral x y spiral x y spiral
Untitled
Anonymous
'25 Jul 16
dtrew
Untitled
Anonymous
'25 Jul 16
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y + : scale t sin * .5 min ; scale push scale push scale pop pop
streak tile throb
Stainless
'25 Jul 16
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y + : scale .3 * .5 min ; scale push scale push scale pop pop
streak tile Redux
BradN
'25 Jul 16
Next