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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: x x mx .5 - + ; x 1 my - 100 * * sin 2 / y max x over / sin y rot / sin 2 * 2dup / sin
lucispire
BradN
'25 Sep 15
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 Sep 15
x 9.4 * sin 1 + y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 15
( [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 Sep 15
( [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 Sep 15
x 23 * sin y max x over / sin y rot / sin 2dup / sin
4spire Haiku
BradN
'25 Sep 15
: # ( 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 Sep 15
( можно использовать уравнение прямой и неравенство для определения границ многоугольников ) : 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
: 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 Sep 15
x 1.5 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 15
1 0.7 0.3
Untitled
Anonymous
'25 Sep 15
0 1 0
Untitled
Anonymous
'25 Sep 15
: 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 Sep 15
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 Sep 15
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 Sep 15
: 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 Sep 15
0.1 0.4 dup 0.5 swap t y x 0.45 * atan2 + x 54 + mod -
Haiku Rain
joseLuís
'25 Sep 15
: 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 Sep 15
: 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 Sep 15
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 Sep 15
Next