Haiku Gallery
x .5 - dup * y .5 - dup * + sqrt t * t + tan
A haiku
snail
'25 Sep 17
: ^2 dup * ; : a y t sin 2 / + x t cos 2 / + atan2 ; : r x 0.5 - ^2 y 0.5 - ^2 + sqrt ; : x r a cos * ; : y r a sin * ; : in .666 mod .333 < swap .666 mod .333 < or ; x y in x 3 * 1 mod y 3 * 1 mod in * x 9 * 1 mod y 9 * 1 mod in * x 27 * 1 mod y 27 * 1 mod in *
Sierpinclipse
DarkstarAG
'25 Sep 17
: x x .5 - 2.4 * ; : y y .7 - 2.4 * ; : dot dup * swap dup * + ; : l dup -0.04 * r> r> 2dup * 2 * x + >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1.32457 * t + r> r> 2dup >r >r rot dup cos -2 * swap sin -2 * z+ dot min -rot 1 + ; y x >r >r 4 4 0 l l l l l l l l l drop log 8 / negate swap log 8 / negate swap dup >r 2 ** over 3 ** + r> 3 ** r> r> drop drop ( based on shader by Guil )
Emerald Necklace
Manwe
'25 Sep 17
: in .666 mod .333 < swap .666 mod .333 < or ; x y in x 3 * 1 mod y 3 * 1 mod in * x 9 * 1 mod y 9 * 1 mod in * x 27 * 1 mod y 27 * 1 mod in *
sierpinski carpet
snail
'25 Sep 17
: xp x .5 - 2 * ; : yp y .5 - 2 * ; : r xp dup * yp dup * + sqrt ; : a xp yp atan2 ; 1 r a + 5 * t 2 * + pi .6 * + cos r a + 5 * t 2 * + pi .6 * + cos r 1 <
Peppermint
snail
'25 Sep 17
: xp x .5 - 2 * ; : yp y .5 - 2 * ; : r xp dup * yp dup * + sqrt ; : a xp yp atan2 ; r a 20 * + 20 * t 2 * + pi .6 * + cos 0 0
Trippy Redux
snail
'25 Sep 17
: xp x .5 - 2 * ; : yp y .5 - 2 * ; : r xp dup * yp dup * + sqrt ; : a xp yp atan2 ; r a 20 * + 20 * t 3 * + pi .6 * + cos 0 0
Trippy Redux
Anonymous
'25 Sep 17
: xp x .5 - 2 * ; : yp y .5 - 2 * ; : r xp dup * yp dup * + sqrt ; : a xp yp atan2 ; r a 20 * + 20 * t 3 * + pi .6 * + cos 0 0
Trippy Redux
Anonymous
'25 Sep 17
: xp x .5 - 2 * ; : yp y .5 - 2 * ; : r xp dup * yp dup * + sqrt ; r 20 * t 2 * + pi .6 * + cos r 20 * t -3 * + pi 1.3 * + cos r 20 * t + cos
Trippy
snail
'25 Sep 17
t x + 3 * sin 2 / .5 + y > t x + 5 * sin 2 / .5 + y > t x + 2 * sin 2 / .5 + y >
Untitled
Anonymous
'25 Sep 17
x t + y + pi * 3 * sin 0 > dup
Untitled
Anonymous
'25 Sep 17
x t + y + pi * 3 * sin 0 > dup
Caution Redux
Anonymous
'25 Sep 17
x t + y + pi * 3 * sin 0 > dup
Caution
snail
'25 Sep 17
x y - x sin y cos - > x y - x sin t cos - > x y - t sin y cos - >
Slides
BradN
'25 Sep 17
: z t tan 3 + 2 / * ; : m t 2 / tan 4 / 1 - / ; : a 1.4 x .4 - y .2 - atan2 y ; : b * over tan swap 4 / y 8 / + tan m + 61 / y .6 + m 2 ** x .8 - z 5 ** + + - 3 ** ; a 1.9 * - 63 b t cos 1 + 5 / + a 3.3 * - 67 z
cincinatti sunrise
eig8t
'25 Sep 17
x 7 + 19 * floor y 3 - 47 * floor 139.3948 / ** t 81937 + 6214.731 / * sin 883.379 * dup floor - 9 ** x 14 * pi * cos random y 39 * pi * tan x * * over 12 ** rot
uber hot dna strings
eig8t
'25 Sep 17
: k 6 * 3 - ; 1 x k abs y k abs - dup >r q mod .4 - abs .16 < dup t r> abs dup 21 atan2 1 * 12 - * / 6 mod
atlantic cities
eig8t
'25 Sep 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : done clip push clip push clip push clip pop pop pop ; ( ---- ) : left x .5 < ; : top x .5 - y .5 * > ; : bot 1 x - y .5 * < ; : rite top bot and 2 / ; left rite + dup 1 rite - dup ( ---- ) done
Signal Flag - Able (+waving +alpha)
Daniel Kalny
'25 Sep 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : done clip push clip push clip push clip pop pop pop ; ( ---- ) : xor 2dup or -rot and not and ; : ybars x 2 * 1 mod .5 < ; : xbars y 2 * 1 mod .5 > ; : check xbars ybars xor ; check check 1 ( ---- ) 1 done
Signal Flags - Nan (+waving)
Daniel Kalny
'25 Sep 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : done clip push clip push clip push clip pop pop pop ; ( ---- ) : t1 x y + 1 > ; : t2 x y - 0 > ; t1 t2 or t1 t2 and not and t1 t2 not and t1 t2 and ( ---- ) 1 done
Signal Flags - Zulu (+waving)
Daniel Kalny
'25 Sep 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : done clip push clip push clip push clip pop pop pop ; ( ---- ) : left x .5 < ; : top x .5 - y .5 * > ; : bot 1 x - y .5 * < ; : rite top bot and 2 / ; left rite + dup 1 rite - ( ---- ) 1 done
Signal Flag - Able (+waving)
Daniel Kalny
'25 Sep 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : done clip push clip push clip push clip pop pop pop ; ( ---- ) : xor 2dup or -rot and not and ; : quad x .5 > y .5 > xor ; quad quad 0 1 ( ---- ) done
Signal Flags - Love (+waving)
Daniel Kalny
'25 Sep 17
: y y 0.5 + sin dup * 1.2 * ; : osc t 3.14 * 2 * sin 16 / + 0.35 - ; : c push negate swap negate y osc x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y osc 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 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 1 0 0 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 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.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 > * + )
Man running with landscape Redux
DarkstarAG
'25 Sep 17
: r random t * sin 1 + 2 / ; r r r
It's not a Random! Redux (with color!)
Anonymous
'25 Sep 17
1 1 1 1
Untitled
Anonymous
'25 Sep 17
: x x y t 3 * sin 1 z* + ; x y y x z* x 17 * sin y 11 * log sin y x z* x -.1 > *
Plastic Bats Swing
Anonymous
'25 Sep 17
x y y x z* x 17 * sin y 11 * log sin y x z*
Plastic Bats
BradN
'25 Sep 17
: spam 2dup - ; x y spam x sin y sin spam spam z* z+ sin
Color of Spam
BradN
'25 Sep 17
1 t 1 mod 0
Hey Brad! (2) Please remove theese stupid empty magenta titles!
DarkstarAG
'25 Sep 17
x t sin 1 + 2 / > 1 * y t sin 1 + 2 / > 1 * sin t
Aim
Andrew
'25 Sep 17
t x t
First Step
Andrew
'25 Sep 17
1 t 1 mod 0
Hey Brad! Please remove theese stupid empty magenta titles!
DarkstarAG
'25 Sep 17
: iii x y z* t - Sin ; x 5 * x y - iii exp y iii
Light Drop Animated
Brad Nelson (modified by mmonstr)
'25 Sep 17
: top x .5 - y .5 * > ; : bot 1 x - y .5 * < ; : rite top bot and 2 / ; 1 rite - rite dup
Signal Flag - Baker
john rible
'25 Sep 17
: left x .5 < ; : top x .5 - y .5 * > ; : bot 1 x - y .5 * < ; : rite top bot and 2 / ; left rite + dup 1 rite -
Signal Flag - Able
john rible
'25 Sep 17
: t1 x y + 1 > ; : t2 x y - 0 > ; t1 t2 or t1 t2 and not and t1 t2 not and t1 t2 and
Signal Flags - Zulu
Daniel Kalny
'25 Sep 17
: b dup 1 6 / > swap 5 6 / < and ; : box x b y b and ; : f dup 1 3 / < swap 2 3 / > or ; : frame x f y f or ; : mid box frame and ; box mid frame
Signal Flags - William
Daniel Kalny
'25 Sep 17
: stripes x 1 11 / - y - 2.75 * 1 mod .5 < ; 1 stripes
Signal Flags - Yoke
Daniel Kalny
'25 Sep 17
: left x 2 3 / < ; : right x 1 3 / > ; left left right and right
Signal Flags - Tare
Daniel Kalny
'25 Sep 17
: m dup 1 3 / > swap 2 3 / < and ; : -mid x m y m and not ; -mid -mid 1
Signal Flags - Sugar
Daniel Kalny
'25 Sep 17
Next