uber hot dna strings - eig8t
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
Russia Waves - DarkstarAG
( Why 'r@' not defined ? )
: sinn sin 1 + 2 / ;
: y y 2 * ;
: wave ( pos - k )
>r x 3 * t 2 * + sinn r> - 2 / y -
abs 0.01 - abs sin 14 pow
;
: r@ pop dup push ;
2 wave 2 * >r
( R ) 0.6 wave r@ + ( G ) r@ ( B ) -3 wave r@ +
r> drop
Russia Waves - DarkstarAG
Russia Waves ! - DarkstarAG
Bienvenue, Monsieur Escargot!
A haiku - snail
x .5 - dup *
y .5 - dup * + sqrt
t * t + tan
Flow - snail
: x x 4 * ;
: y y 4 * ;
: x x y t + sin + ;
: y y x t + cos + ;
x 5 * 1 mod .2 <
y 5 * 1 mod .2 < and
Plotter - snail
( x -- y )
( x -- sin(x*pi + t) )
: f pi * t + sin ;
: x x .5 - 2 * ;
: y y .5 - 2 * ;
x abs .01 <
y abs .01 < or
x f y - abs .01 <
sierpinski carpet - snail
: 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
Sierpinclipse - DarkstarAG
A mysterious contribution
Untitled - Anonymous
(need parentage!)
Circular Clock - DarkStarAG
Circular Clock Redux (Rotation) - DarkstarAG
Monsieur Escargot bends Time!