Haiku Gallery
: p 2 * my - ; : r x x * p y y mx + * p + sqrt ; : i r 10 * floor ; 1 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / cos r i * 10 / * 100 * - t -5 / 1 mod pi * 20 * + + cos 2 / .5 + 10 / r + 10 * floor 10 / - dup 2 / swap 2dup + ( based on SunFlower 3 by FabriceNeyret2 )
Flow Redux
Anonymous
'25 Jul 08
: g t over / my + cos * ; : f g swap g swap x * sin swap y * mx + cos - ; 5 3 f 3.1 5.1 f 11 13 f 7 6 f z* 7 11 f 2 4.4 f 8.1 3.8 f 1.1 2.2 f z* rot + over .3 * - rot 8 * sin over .3 * - rot 11 * sin over .3 * - rot 3 * sin dup push rot dup push 2dup * rot 2dup - rot + 2dup * rot - - + * dup 1.3 * dup .3 * pop + rot pop over > + -rot
Pigmentary Primacy Redux
Anonymous
'25 Jul 08
: x x 0.2 + ; : y y 0.2 + ; : t t 4 / ; t x + 9.1 * my 10 * + cos y / cos t y + 9.2 * cos x / cos t x y - + 9.3 * mx 10 * + cos x y + / cos 2dup z* push 2dup z* pop dup z+ + sin dup 1.3 * dup 1.3 *
Oceanic Stir
BradN
'25 Jul 08
: z x .05 - 1.7 * y .64 - 1.7 * ; : z1 over dup * over dup * mx * + rot over / -rot / ; : zmodule dup * swap dup * + sqrt ; : zarg swap atan2 ; : ep over exp over cos * -rot sin swap exp * ; : zln 2dup my * zmodule log -rot zarg ; : zp push push zln pop pop z* ; : a 2 2.1 ; : b .3 -2 ; : c -2 1.6 ; : d -1.4 -1.75 ; : f 2dup >r >r a z* b z+ r> r> c z* d z+ c zp z1 ep z* zln ; z f f f f f f f f f abs swap abs 3 / 2dup zmodule 3.5 / swap
TFKP 4 Flower Redux
Anonymous
'25 Jul 08
: l * + sin ; : r t 1 y t + 4 l + 1.57 mx * ; : x x my 20 * * 2 - t y 3 l + ; : v 2dup x >= swap x < * -rot swap - l ; : a r 4 l ; : b r 1 l ; : c r 2 l ; : d r 3 l ; 0 d a v a b v b c v c d v
Ribbon
Anonymous
'25 Jul 08
: x x mx .5 - - ; : y y my .5 - - ; : x x mx - sin mx + ; : y y my - sin my + ; : x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / x y 2dup z* -rot
Tunnel Beyond
BradN
'25 Jul 08
: x x mx - sin mx + ; : y y my - sin my + ; : xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 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 + *
Warped Continuity
BradN
'25 Jul 08
: x x mx - x 11 * sin + sin mx + x 11 * sin - ; : y y my - y 11 * sin + sin my + y 11 * sin - ; : xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 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 + *
Reflected Continuity
BradN
'25 Jul 08
: r x 0.5 - mx 2 * ** y 0.5 - my 2 * ** + ; : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine
stargate
BradN
'25 Jul 08
: x x mx .5 - + ; x 1 my - 100 * * sin 2 / y max x over / sin y rot / sin 2 * 2dup / sin
lucispire
BradN
'25 Jul 08
x mx t + - 33 * sin y my + 22 * sin - mx x - * my y - * x mx + 33.1 * sin y t + my + 11 * sin - mx x - * my y - * x mx + 3.1 * sin y my + 31 * sin - mx t sin - x - * my y - * 2dup z+ rot 2dup z* sin 1 + 2 / 2dup z* rot 2dup z+ sin 1 + 2 /
Flood Fill
BradN
'25 Jul 08
x 9.4 * sin 1 + y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 08
( [2016-06-29] Publish button not work ) ( Flashing 4-star ) : x x .5 - ; : y y .5 - ; : rotate ( x y a - x' y' ) dup cos >r sin negate r> z* ; x y * abs t 10 * sin 1 + 2 / - abs 11 pow x y .2 t * rotate * abs t 10 * sin 1 + 2 / - abs 11 pow x y -.2 t * rotate * abs t 10 * sin 1 + 2 / - abs 11 pow
Flashing 4-star 2
DarkstarAG
'25 Jul 08
( [2016-06-29] Publish button not work ) ( Flashing 4-star ) x .5 - y .5 - * abs t 10 * sin 1 + 2 / - abs 11 pow
Flashing 4-star
DarkstarAG
'25 Jul 08
x 23 * sin y max x over / sin y rot / sin 2dup / sin
4spire Haiku
BradN
'25 Jul 08
: # ( k c b a - k'=k*(ax+by+c) ) x y z* + + 1 < * ; ( y = 0..2 ) : up ( y - ) 1 + -1 1 # ; : dn ( y - ) negate 1 + 1 -1 # ; ( x = 0..2 ) : ll ( x - ) negate 1 + 1 1 # ; : rr ( x - ) 1 + -1 -1 # ; 1 1 up 1 1 dn 1 0.5 ll 1 0.5 rr
Polygonal Areas
DarkstarAG
'25 Jul 08
( можно использовать уравнение прямой и неравенство для определения границ многоугольников ) : n 1 + 2 / ; : x x 3 * t random 2 * + .15 + sin n * ; : y y 5 * t cos n * ; : # ( k c b a - k'=k*(ax+by+c) ) x y z* + + 1 < * ; ( R ) 1 -1 1.5 -2 # 2.5 -2 1.5 # 20 -30 1 # -1 1 2 # ( G ) 1 -4 2 2 # 4 -2 5 # 3 -4 -5 # -5 5 -2 # ( B ) 1 -3 2 6 # 4 -6 8 # 10 -5 -300 # -10 7 -1 #
Polygonal Comet
DarkstarAG
'25 Jul 08
: x 1 x - ; : n 2 * 1 - ; : xn x n ; : yn y n ; : h t 6875.493541569879 / negate ; : m t 3600 mod 60 / ceil 60 / pi * 2 * negate ; : s t 60 mod 60 / pi * 2 * negate ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : c 0 0.01398413 + sin pi -1.2132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 + 0.1 + 5 * j j j j j j j j j drop drop 8 / dup dup
Reverse Clock Redux
DarkstarAG
'25 Jul 08
: n 1 + 2 / ; : x1 x .5 - 0.5 y - / 2 / ; : y1 y 4 * cos x1 dup * 3 / t 4 / cos + sin x1 / + 2 / ; : z x1 13 * sin y1 53 * sin * .1 pow 1.1 - abs 4 * ; z y1 / t sin * 2 / z z y1 / t cos *
Surreal Planet 2
DarkstarAG
'25 Jul 08
: n 1 + 2 / ; : x1 x .5 - 0.5 y - / 2 / ; : y1 y 4 * cos x1 dup * 3 / t 4 / cos + sin x1 / + 2 / ; : z x1 25 * sin y1 125 * sin * .1 pow 1.1 - abs 4 * ; z y1 / t sin * 2 / z z y1 / t cos *
Surreal Planet
DarkstarAG
'25 Jul 08
: n 1 + 2 / ; : x x .5 - t cos n + ; : y y .5 - t cos n + ; : poly ( x - sum[ai*x^i], i=0..n ) ( a0 a1 a2 a3 x - poly[x] ) ( a3x3 a2x2 a1x a0 = [[a3x a2]x a1]x a0 ) push r@ * + r@ * + r@ * + pop drop ; -1 5 -3 4 t sin x atan2 y * 14 * cos poly cos n 6 5 2 -7 y x sin atan2 t * cos 6 * poly cos n 5 -3 -8 3 y x sin atan2 cos poly cos n
Polynoms 2
DarkstarAG
'25 Jul 08
: x x .5 - ; : y y .5 - ; : n 1 + 2 / ; : poly ( x - sum[ai*x^i], i=0..n ) ( a0 a1 a2 a3 x - poly[x] ) ( a3x3 a2x2 a1x a0 = [[a3x a2]x a1]x a0 ) push r@ * + r@ * + r@ * + pop drop ; -1 5 -3 4 t sin x atan2 y * 14 * cos poly cos n 6 5 2 -7 y x sin atan2 t * cos 6 * poly cos n 5 -3 -8 3 y x sin atan2 cos poly cos n
Polynoms 1
DarkstarAG
'25 Jul 08
: t t 100 / ; : x x .5 - 1.5 * ; : y y .5 - 1.5 * ; : n 2 / 1 + ; : r dup * push dup * pop + sqrt ; ( z r x y r - abs 0 max 2 * ) : fp ( freq phase - y=sin[(freq*t+phase)*2*pi] ) push t * pop + 2 * pi * sin 2 / ; : f ( dx sx dy sy dz sz - k ) push push push push fp x - abs 0.02 < pop pop fp y - abs 0.02 < * pop pop fp 0.5 + 1.1 * * ; 0 11 0.00 9 3.00 10 0 f max 11 0.02 9 3.02 10 0 f max 11 0.04 9 3.04 10 0 f max 13 0.06 17 3.06 10 0 f max 13 0.08 17 3.08 10 0 f max 13 0.10 17 3.10 10 0 f max 13 0.12 17 3.12 10 0 f max 13 0.14 17 3.14 10 0 f max 0 15 0.00 21 3.00 10 0 f max 15 0.02 21 3.02 10 0 f max 15 0.04 21 3.04 10 0 f max 15 0.06 11 3.06 10 0 f max 15 0.08 11 3.08 10 0 f max 35 0.10 11 3.10 10 0 f max 0 27 0.00 21 3.00 10 0 f max 27 0.02 21 3.02 10 0 f max 27 0.04 21 3.04 10 0 f max 15 0.06 11 3.06 10 0 f max 35 0.12 11 3.12 10 0 f max 35 0.14 11 3.14 10 0 f max
Bacterias
DarkstarAG
'25 Jul 08
: t t 3 / cos ; t x + 15 * sin y 10 * cos / log cos x 14 * cos t y + 10 * sin / log cos t x + 10 * cos t y + 9 * cos / log cos
fiberellum 2
DarkstarAG
'25 Jul 08
x 15 * sin y 10 * cos / log cos x 14 * cos y 10 * sin / log cos x 10 * cos y 9 * cos / log cos x 10 * sin y 10 * sin / log cos over + push over + push + pop
fiberellum Redux
Anonymous
'25 Jul 08
: x x .5 - ; : y y .5 - ; : rotate ( x y a - x' y' ) dup >r sin r> cos z* ; x y t rotate atan2 pi / abs
3D rotated pyramid
DarkstarAG
'25 Jul 08
: x0 x ; : y0 y ; : x x .5 - 15 * ; : y y .5 - 15 * ; : t t sin 4 * ; : r x dup * y dup * + 7 / ; : a y x atan2 ; : x r a cos * ; : y r a sin * ; : n ( x - 2*x+1 ) 2 * 1 + ; : s' ( a b t - sin[b*t+a]*2+1 ) * + sin ; : c' ( a b t - sin[b*t+a]*2+1 ) * + cos ; : a1 t 3 0.4 s' n ; : b1 t 5 0.3 s' n ; : c1 t 7 0.7 s' n ; : d1 t 11 1.1 s' n ; : x1 y a1 * sin x b1 * cos - n ; : y1 y c1 * sin x d1 * cos - n ; : crop01 ( r - [r in [0,1]] ) dup 1 <= * dup 0 >= * ; x1 y1 * crop01 r a t + tan * cos n crop01
C-cadabra 3
DarkstarAG
'25 Jul 08
: x0 x ; : y0 y ; : x x .5 - 5 * ; : y y .5 - 5 * ; : t t sin 4 * ; : r x dup * y dup * + ; : a y x atan2 ; : x r a cos * ; : y r a sin * ; : n ( x - 2*x+1 ) 2 * 1 + ; : s' ( a b t - sin[b*t+a]*2+1 ) * + sin ; : c' ( a b t - sin[b*t+a]*2+1 ) * + cos ; : a t 3 0.4 s' n ; : b t 5 0.3 s' n ; : c t 7 0.7 s' n ; : d t 11 1.1 s' n ; : x1 y a * sin x b * cos - n ; : y1 y c * sin x d * cos - n ; x x1 - 1.04 pow y y1 - 1.04 pow 3 / * x y1 - 1.1 pow y x1 - 1.1 pow 3 / * y1 x1 atan2 cos x1 * 3 pow y1 x1 atan2 sin y1 * 3 pow 10 / *
C-cadabra 2
DarksrarAG
'25 Jul 08
: x0 x ; : y0 y ; : x x .5 - 4 * ; : y y .5 - 4 * ; : t t sin 4 * ; : n ( x - 2*x+1 ) 2 * 1 + ; : s' ( a b t - sin[b*t+a]*2+1 ) * + sin ; : c' ( a b t - sin[b*t+a]*2+1 ) * + cos ; : a t 3 0.4 s' n ; : b t 5 0.3 s' n ; : c t 7 0.7 s' n ; : d t 11 1.1 s' n ; : x1 y a * sin x b * cos - n ; : y1 y c * sin x d * cos - n ; x x1 - 1.04 pow y y1 - 1.04 pow 3 / * x y1 - 1.1 pow y x1 - 1.1 pow 3 / * y1 x1 atan2 cos x1 * 3 pow y1 x1 atan2 sin y1 * 3 pow 10 / *
C-cadabra
DarkstarAG
'25 Jul 08
x 1.5 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Jul 08
1 0.7 0.3
Untitled
Anonymous
'25 Jul 08
0 1 0
Untitled
Anonymous
'25 Jul 08
: 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 0.03 t cos * - y spiral x y 0.03 - spiral x * y x spiral y *
fingers on chalkboard Redux
Anonymous
'25 Jul 08
Accountant supermarket manager buy cialis 60mg mastercard Meanwhile, 92 percent of respondents reported having concerns about building mobile applications, including a need for new development skills, the high costs of developing for multiple platforms, and inadequate tooling. Eighty-five percent said native apps are best, and 74 percent found HTML5 and JavaScript-based development challenging due to issues like accessing device features and inadequate language capabilities. Ninety-five percent see value in common source code for desktop and mobile applications. Embarcadero is positioning its RAD Studio XE 5 tooling platform, being announced Wednesday, as a solution in this vein, supporting multiple mobile platforms including Android, iOS, Windows, and Mac OS.
ZHFxPbTZKVff
Alonso
'25 Jul 08
I've been made redundant non prescription drugs tax deductible Oakland's starter has been HORRIBLE his last three times out, allowing 15 earned runs over 14 innings for a BULBOUS 9.64 ERA. And to make matters worse, in his only start against Detroit this season, Parker was RIPPED for 9 hits and 8 earned runs in just 3 innings. Gotta have half a Benjamin on Motown.
EdAfnGNJJet
Elliot
'25 Jul 08
: x2 x .5 - ; : y2 y .5 - ; : sqr dup * ; : t2 t 20 mod .7 * 3 pow ; : r x2 sqr y2 sqr + sqrt ; : a y2 x2 atan2 ; : a2 a r t2 10 * * + ; a2 cos r * 0 > dup dup
Svedäng Spiral
Lars Brinkhoff
'25 Jul 08
0.1 0.4 dup 0.5 swap t y x 0.45 * atan2 + x 54 + mod -
Haiku Rain
joseLuís
'25 Jul 08
: circle x 2 * mx .5 + - dup * y 2 * my .5 + - dup * + sqrt dup t 20000 / * tan sin ; circle + t circle * circle + 2 t * sin + 1.75 * t 8 * sin +
Electron/Positron Structure
Franklin Amador
'25 Jul 08
: phi pi 5 / cos 2 * ; : 2pi pi pi * sin pi * ; : 2phi phi phi * cos phi * ; : geo x 2phi * y 2phi * * ; : space geo sqrt * ; phi space geo pi space * random space
Sun Corrona
Franklin Amador
'25 Jul 08
x 8 * floor t 8 mod floor = y 8 * floor t 8 * 8 mod floor = : note 12 / 2 swap pow 220 * pi * 2 * t * sin ; : t t 6 * ; : dia floor dup 2 * swap dup 7 >= swap 3 >= + - ; : p >r 10 t 8 mod floor 7 swap - pow / 10 mod dia note t 10 / 4 mod floor r> = * ; 02630203 0 p 32104210 1 p + 13261324 2 p + 87654321 3 p + t pi * sin * audio
Monotony
BradN
'25 Jul 08
Next