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