Haiku Gallery
x 23 * sin y max x over / sin y rot / sin 2dup / sin
4spire Haiku
BradN
'24 Oct 19
: # ( 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
'24 Oct 19
( можно использовать уравнение прямой и неравенство для определения границ многоугольников ) : 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
x 1.5 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'24 Oct 19
1 0.7 0.3
Untitled
Anonymous
'24 Oct 19
0 1 0
Untitled
Anonymous
'24 Oct 19
: 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
'24 Oct 19
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
'24 Oct 19
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
'24 Oct 19
: 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
'24 Oct 19
0.1 0.4 dup 0.5 swap t y x 0.45 * atan2 + x 54 + mod -
Haiku Rain
joseLuís
'24 Oct 19
: 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
'24 Oct 19
: 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
'24 Oct 19
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
'24 Oct 19
: zoom 0 @ 1 + ; : x x 1 @ + zoom * ; : y y 2 @ + zoom * ; : t 0 ; zoom 5 ! 0 @ dt 1 button * .1 * + 0 ! 0 @ dt 0 button * -.1 * + 0 ! mx 1 @ + 5 @ * zoom / mx - 1 ! my 2 @ + 5 @ * zoom / my - 2 ! : l 2dup * 2 * .63 + -rot dup * swap dup * - .04 t 5 / cos * + ; : f l l l l l l l l l l ; y .15 - x .6 - f f f f ( colours ) 2dup dup 1 t 9 / sin * - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot 0 max x .5 - dup * y .5 - dup * + sqrt + -rot
Fractal Zoom
Anonymous
'24 Oct 19
\ 點線測試 ( 過兩點直線維持 固定粗細 ) : 線粗 .01 ; \ 2 倍 圓周率 : 2pi pi pi + ; \ 從 rstack 取出 a b 到 dstack : 2>r \ a b ; -- ; b a >r >r ; \ 從 rstack 取出 a b 到 dstack : 2r> \ ; b a -- a b ; r> r> ; \ 從 rstack 複製 a b 到 dstack : 2r@ \ ; b a -- a b ; r> dup r@ rot >r ; \ dstack 上 兩對數 位置互換 : 2swap \ a b c d -- c d a b >r -rot r> -rot ; \ 複製 dstack 第二對數 : 2over \ a b c d -- a b c d a b 2>r 2dup 2r> 2swap ; \ 複製 dstack 上 4 個數 \ ( a b c d -- a b c d a b c d ) : 4dup 2over 2over ; \ v"=L if v<L, v"=U if v>U : 間 ( v L U -- v" ) 2dup > if swap then >r ( v L ) max r> ( v' U ) min ( v" ) ; \ 0 到 1 變化的 f 放大 n 倍取 小數 : 摺 ( f n -- f ) \ f 的 n 摺 * 1 mod ; \ f 等於 v 的 線 : 線 ( f v d -- 線 ) \ f=v 線 -rot - abs > ; \ 過 x1,y1 與 x2,y2 的 直線 或 點 : 兩點線 ( x1 y1 x2 y2 -- 線 ) >r over r> ( x1 y1 x2 y1 y2 ) - ( x1 y1 x2 y1-y2 ) >r ( x1 y1 x2 ) >r over r> ( x1 y1 x1 x2 ) - ( x1 y1 x1-x2 ) dup if \ x1-x2<>0 非垂直線 r> swap ( x1 y1 y1-y2 x1-x2 ) / ( x1 y1 斜率 ) >r swap r@ * - ( y軸交點 ) r@ ( y軸交點 斜率 ) x * + y ( y軸交點+斜率*x y ) r> 2 ** 1 + sqrt \ 線粗修正係數 斜率平方加一後開根號 線粗 2 / * 線 else \ x1-x2=0 垂直線 或 一個點 drop r> ( x1 y1 y1-y2 ) if \ y1-y2<>0 垂直線 drop x ( x1 x ) 線粗 2 / 線 else \ y1-y2=0 一個點 ( x1 y1 ) y 線粗 2 / 線 swap x 線粗 2 / 線 * then then ; \ 在點 p1 角度為 a1 的 方向 : 點角向 \ x1 y1 a1 -- 方向 .25 - \ 向上 2pi * \ 值域 -pi 到 pi >r y - swap x - atan2 r> + pi + cos dup 0 < if drop 0 then ; \ 在點 p1 角度為 a1 方向 的 線 : 點角線 \ x1 y1 a1 -- 線 >r 2dup r@ .5 + 點角向 -rot swap \ m y1 x1 r> .25 - \ 向上 2pi * \ 值域 -pi 到 pi dup >r sin x rot - * \ m y1 fx swap \ m fx y1 r> cos y rot - * \ m fx fy + abs 1.003 - 200 ** \ m 角a心線 * 0 1 間 ; \ p1 到 p2 的連線 角度 : 兩點角 ( x1 y1 x2 y2 -- 角 ) >r swap r> - \ x1 x2 y1-y2 -rot - swap \ x1-x2 y1-y2 atan2 2pi / ; \ p1 到 p2 的連線 方向 : 兩點向 2over 兩點角 點角向 ; \ p1 到 p2 的連線 : 兩點連線 \ x1 y1 x2 y2 -- 線 4dup 兩點線 \ x1 y1 x2 y2 線 >r \ x1 y1 x2 y2 4dup 兩點向 \ x1 y1 x2 y2 向1 >r \ x1 y1 x2 y2 2swap 兩點向 \ 向2 r> r> * * ; \ p0 x0,y0 到 任意點 p x,y 的 距離 : r \ x0 y0 -- r y - dup * swap x - dup * + sqrt ; \ p0 x0,y0 到 任意點 p x,y 的 角度 : a \ x0 y0 -- a y swap - swap x swap - atan2 2pi / ; \ 中心點 p0 及 測試點 p1 p2 p3 : p0 mx my ; : p1 .6 .8 ; : p2 .1 mx + .2 my + ; : p3 .7 .2 ; 0 \ 紅色亮度 0 \ ( 測試0 底圖 10*10 格線 : 底圖格線 x 10 摺 .05 < y 10 摺 .05 < + ; 底圖格線 + \ ) \ ( 測試1 p1 與 p2 的連線 p1 p2 兩點連線 + \ ) \ ( 測試2 p0 線 與 p1 到 p2 同方向 : a1 p1 p2 兩點角 ; p0 a1 \ t 10 / + \ 順時鐘慢轉 點角線 \ p0 r .5 < * \ 長度 .5 + \ ) \ ( 測試3 p2 與 p3 的連線 p2 p3 兩點線 p2 p3 兩點向 p3 p2 兩點向 * * + \ ) \ ( 測試4 p1 與 p3 的連線 : a3 p3 p1 兩點角 ; p1 p3 兩點線 p1 a3 點角向 * p3 a3 .5 + 點角向 * + \ ) \ ( 測試5 圓與洞 : 圓 r .03 < ; : 反 1 swap - ; : 洞 圓 反 ; p0 圓 + p1 圓 - p2 圓 - 0 p1 圓 + 0 p2 圓 + 0 p3 洞 + \ )
點線測試 Redux Redux
Anonymous
'24 Oct 19
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : iclip 1 1 clip - * ; : sun ox 0.5 + oy * 4 pow ; : tenth 10 / ; : hundredth 100 / ; : 1arm 5 tenth - abs 1 tenth < ; : 1mask dup 2 tenth > swap 8 tenth < and ; : switzerland 1.0 x mx .5 - - 1arm y my .5 - - 1mask and y my .5 - - 1arm x mx .5 - - 1mask and or dup ; switzerland push push push pop clip pop clip pop clip
Switzerland Redux
Anonymous
'24 Oct 19
: x x .1 - ; : y y .4 - ; : pc x 32 * floor dup 1 + 9 / floor - ; : pr y 32 * floor ; : printrow 2 pc pow / floor 2 mod ; : data 0 swap dup 0 = 31599 * 0 z+ dup 1 = 18724 * 0 z+ dup 2 = 31183 * 0 z+ dup 3 = 31207 * 0 z+ dup 4 = 23524 * 0 z+ dup 6 = 29679 * 0 z+ dup 7 = 31012 * 0 z+ dup 8 = 31727 * 0 z+ dup 9 = 31719 * 0 z+ 5 = 29671 * + 8 rot pow / floor 8 mod ; pr my 100 * 10 mod floor data 16 * pr my 10 * 10 mod floor data + 16 * 16 * 16 * pr mx 100 * 10 mod floor data + 16 * pr mx 10 * 10 mod floor data + printrow dup dup x * swap y *
x y coord
BradN
'24 Oct 19
: square dup * ; : dist square swap square + ; : polar 2dup atan2 -rot dist ; : light 2dup push push push push mx pop - my pop - polar t 50 * sin .01 * + cos + x pop - y pop - polar cos + - abs 1 swap - 10 pow ; .1 -.1 light .5 -.1 light .9 -.1 light
Curvy Lights Crossing
Anonymous
'24 Oct 19
: square dup * ; : dist square swap square + ; : polar 2dup atan2 -rot dist ; : light 2dup push push push push mx pop - my pop - polar + x pop - y pop - polar + - abs 1 swap - 10 pow ; .1 -.1 light .5 -.1 light .9 -.1 light
Light Rings
BradN
'24 Oct 19
: light 2dup push push push push mx pop - my pop - atan2 x pop - y pop - atan2 - abs 1 swap - 10 pow ; .1 -.1 light .5 -.1 light .9 -.1 light
Light Beams
BradN
'24 Oct 19
x mx * t + 10 * sin .2 * y my - - abs .5 swap - : x x mx * ; x mx * t + 10 * sin .2 * y my - - abs .5 swap - : y y my / ; x mx * t + 10 * sin .2 * y my - - abs .5 swap -
Rainbow Scope
BradN
'24 Oct 19
x y + 16 16 / *
Untitled
Anonymous
'24 Oct 19
x y x 5 * sin y 5 * sin * x .5 - dup * y .5 - dup * + .25 <
Color Ball Redux
陳爽
'24 Oct 19
x y x 5* sin y 5 * sin * + x .5 - dup * y .5 - dup * + .25 <
Color Ball
Anonymous
'24 Oct 19
: ^ 2 ** ; : b dup x .5 - ^ y ^ + sqrt dup rot > swap rot .05 + < * * + ; 0 .56 .2 b .29 .25 b 1 .4 b 1 .45 b 1 .5 b 0 1 .35 b 1 .4 b 0.5 .45 b 0 1 .2 b .51 .25 b 1 .3 b
rainbow
boomlinde
'24 Oct 19
: xo .5 ; : yo .7 ; : h - y yo - atan2 pi 2 * / .5 + yo y - 2 ** xo x - 2 ** + sqrt + .5 < ; : heart x xo h xo x h + ; heart
heart
陳爽
'24 Oct 19
\ 設中心為座標原點 : x x .5 - ; : y y .5 - ; \ 中心到 x,y 距離 : r x x * y y * + sqrt ; \ 中心到 x,y 角的徑度 : a y x atan2 ; : spiral a over / r + * sin ; 99 spiral 96 spiral 93 spiral
Look into my Eyes Redux
陳爽
'24 Oct 19
Next