Haiku Gallery
: 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 16
: r random t * sin 1 + 2 / ; r r r
It's not a Random! Redux (with color!)
Anonymous
'25 Sep 16
1 1 1 1
Untitled
Anonymous
'25 Sep 16
: 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 16
x y y x z* x 17 * sin y 11 * log sin y x z*
Plastic Bats
BradN
'25 Sep 16
: spam 2dup - ; x y spam x sin y sin spam spam z* z+ sin
Color of Spam
BradN
'25 Sep 16
1 t 1 mod 0
Hey Brad! (2) Please remove theese stupid empty magenta titles!
DarkstarAG
'25 Sep 16
x t sin 1 + 2 / > 1 * y t sin 1 + 2 / > 1 * sin t
Aim
Andrew
'25 Sep 16
t x t
First Step
Andrew
'25 Sep 16
1 t 1 mod 0
Hey Brad! Please remove theese stupid empty magenta titles!
DarkstarAG
'25 Sep 16
: iii x y z* t - Sin ; x 5 * x y - iii exp y iii
Light Drop Animated
Brad Nelson (modified by mmonstr)
'25 Sep 16
: 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 16
: 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 16
: 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 16
: 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 16
: stripes x 1 11 / - y - 2.75 * 1 mod .5 < ; 1 stripes
Signal Flags - Yoke
Daniel Kalny
'25 Sep 16
: left x 2 3 / < ; : right x 1 3 / > ; left left right and right
Signal Flags - Tare
Daniel Kalny
'25 Sep 16
: 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 16
: v x .5 - abs .005 sqrt < ; : h y .5 - abs .005 sqrt < ; : -cross v h or not ; -cross -cross 1
Signal Flags - X-Ray
D
'25 Sep 16
: v x .5 - abs .005 sqrt < ; : h y .5 - abs .005 sqrt < ; : cross v h or ; 1 cross
Signal Flags - Roger
Daniel Kalny
'25 Sep 16
: m dup 1 3 / > swap 2 3 / < and ; : mid x m y m and ; mid mid 1
Signal Flags - Peter
Daniel Kalny
'25 Sep 16
1 1 0
Signal Flags - Queen
Daniel Kalny
'25 Sep 16
1 x y + 1 <
Signal Flags - Oboe
Daniel Kalny
'25 Sep 16
: 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
Signal Flags - Nan
Daniel Kalny
'25 Sep 16
: one x y - abs .1 < ; : two x 1 y - - abs .1 < ; : -both one two or not ; 1 -both -both
Signal Flags - Victor
Daniel Kalny
'25 Sep 16
: one x y - abs .1 < ; : two x 1 y - - abs .1 < ; : both one two or ; both both 1
Signal Flags - Mike
Daniel Kalny
'25 Sep 16
: w y 1 3 / > y 2 3 / < and ; w w 1
Signal Flags - Jig
Daniel Kalny
'25 Sep 16
: x' x .5 - ; : y' y .5 - ; : corner x' abs y' abs + .5 > ; 1 corner corner
Signal Flags - Fox
Daniel Kalny
'25 Sep 16
: dot x .5 - dup * y .5 - dup * + 1 36 / < ; dot not dot not
Signal Flags - Item
Daniel Kalny
'25 Sep 16
: bars x 3 * 1 mod .5 < ; bars bars bars not
Signal Flags - George
Daniel Kalny
'25 Sep 16
1 x .5 < x .5 <
Signal Flags - How
Daniel Kalny
'25 Sep 16
: b y .5 > ; : -b b not ; -b 0 b
Signal Flags - Easy
Daniel Kalny
'25 Sep 16
: b y .75 < y .25 > and ; : -b b not ; -b -b b
Signal Flags - Dog
Daniel Kalny
'25 Sep 16
: orig y .5 - x .75 - ; : trig x .75 < orig 2 * > orig -2 * < or or not ; : w trig x 0.5 < or ; w w 1
Signal Flags - Able
Daniel Kalny
'25 Sep 16
: orig y .5 - x .75 - ; : trig x .75 < orig 2 * > orig -2 * < or or not ; 1 trig trig
Signal Flags - Baker
Daniel Kalny
'25 Sep 16
: b y .6 > y .4 < or ; : r y .8 < y .2 > and ; : g r b and ; r g b
Signal Flags - Charlie
Daniel Kalny
'25 Sep 16
x .5 < x .5 < x .5 >
Signal Flags - King
Daniel Kalny
'25 Sep 16
: xor 2dup or -rot and not and ; : -quad x .5 > y .5 > xor not ; 1 -quad -quad
Signal Flags - Uncle
Daniel Kalny
'25 Sep 16
: xor 2dup or -rot and not and ; : quad x .5 > y .5 > xor ; quad quad
Signal Flags - Love
Daniel Kalny
'25 Sep 16
: d dup ; : m 1 min ; : f d floor - ; : c sin 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 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * 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
Poop-man!
KC5TJA
'25 Sep 16
Next