Haiku Gallery
: 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 14
: 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 14
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 14
: 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 14
: 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 14
: 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 14
: 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 14
x 1.5 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin * dup t 3 * sin *
Disco Redux
Anonymous
'25 Sep 14
1 0.7 0.3
Untitled
Anonymous
'25 Sep 14
0 1 0
Untitled
Anonymous
'25 Sep 14
: 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 14
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 14
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 14
: 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 14
0.1 0.4 dup 0.5 swap t y x 0.45 * atan2 + x 54 + mod -
Haiku Rain
joseLuís
'25 Sep 14
: 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 14
: 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 14
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 14
: 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
'25 Sep 14
\ 點線測試 ( 過兩點直線維持 固定粗細 ) : 線粗 .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
'25 Sep 14
: 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
'25 Sep 14
: 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
'25 Sep 14
: 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
'25 Sep 14
: 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
'25 Sep 14
: 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
'25 Sep 14
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
'25 Sep 14
x y + 16 16 / *
Untitled
Anonymous
'25 Sep 14
x y x 5 * sin y 5 * sin * x .5 - dup * y .5 - dup * + .25 <
Color Ball Redux
陳爽
'25 Sep 14
x y x 5* sin y 5 * sin * + x .5 - dup * y .5 - dup * + .25 <
Color Ball
Anonymous
'25 Sep 14
: ^ 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
'25 Sep 14
: 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
陳爽
'25 Sep 14
\ 設中心為座標原點 : 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
陳爽
'25 Sep 14
\ Hey, upload your best Forth demos to \ www.thesands.ru/forth-demotool/ : x x 200 * t .3 / 9 r@ - * - ; : y y 20 * ; : z1 r@ sin ; : z2 r@ 0.29 / cos ; : z3 r@ 0.31 / sin ; : a1 z1 1.3 / * ; : b1 1.1 / z1 * ; : a2 z2 1.7 / * ; : b2 1.9 / z2 * ; : a3 z3 2.3 / * ; : b3 z3 1.1 * / ; 8 push 0.1 : j x a1 sin b1 x a2 sin b2 - x a3 sin b3 + y r@ - - 0 max 1 min .1 ** r@ / pop .44 - push max ; j j j j j j j j j j j j j pop drop .04 - 3 * sin .7 over - over 3 ** .6 min -rot -rot swap rot over +
Hills Redux - Mountains
Anonymous
'25 Sep 14
: x x t 3.1415 2 * mod + .15 * sin ; : y y .5 - 2 / cos 4 / 2 pow 3 / ; : q ( n -- n ) 256 * 128 - dup x y / pow * ; x x x * y / + q y y y - x / - q + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
HypnoMoireWMAP
DarksrarAG
'25 Sep 14
: x x .5 - ; : y y .47 - ; : a x y atan2 over * .5 + floor swap / ; : f 1 swap - ; : q >r x y .6 a cos 1 a sin z* r> - swap .6 / abs + abs f ; .4 q 4 / .29 q 9 **
閃耀隕石
陳爽
'25 Sep 14
\ 閃亮十字 : x x .5 - 2 * abs ; \ .5移2倍絕 : y y .6 - 2 * abs ; \ .5移2倍絕 : c 1 x y * - swap ** ; \ 十字 1111 c ( 紅 ) 111 c ( 綠 ) 11 c ( 藍 ) 1 c ( 透 )
閃亮十字
陳爽
'25 Sep 14
: x x 0.5 - ; : y y 0.5 - ; : r x x * y y * + sqrt ; : a y x atan2 ; a t 0.7 * 0.1 + sin pi * + abs log a t 1.2 * 0.3 + sin pi * + log abs y x ** log abs * a t 0.5 + sin pi * + log abs x y ** log abs *
lightshow
vcte
'25 Sep 14
my sin y sin / t sin my sin - my sin *
Music synth. (Interactive)
AmrKor
'25 Sep 14
x y t + * sin t x * sin x y * sin
test. Eyesfu**er :D
NoNAmE
'25 Sep 14
: q dup * ; x cos t sin y cos q q q q q x y * -
Untitled
Anonymous
'25 Sep 14
Next