Haiku Gallery
\ Hey, upload your best Forth demos to \ www.thesands.ru/forth-demotool/ : x x 9 * t 3 / 9 r@ - * - ; : y y 15 * ; : z1 r@ sin ; : z2 r@ 2.9 / cos ; : z3 r@ 3.1 / 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
Hills
Manwe
'25 Feb 07
: x x 40 * floor 40 / ; : x x y 3 * sin + ; : y y x 3 * sin + ; x y x sin y sin z* 2dup z* / dup x / over y /
Saturnia Lowres
BradN
'25 Feb 07
: x x y 3 * sin + ; : y y x 3 * sin + ; x y x sin y sin z* 2dup z* / dup x / over y /
Saturnia
BradN
'25 Feb 07
X y 2dup swap /
Complent
Anonymous
'25 Feb 07
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.05 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > * + + d d
PONG game Redux
Anonymous
'25 Feb 07
\ water fall : flip 1 swap - ; : fall t .3 * + x .3 + mod flip ; y .3 * \ red y flip .6 * \ green y fall .9 * \ blue
water fall
陳爽
'25 Feb 07
\ take the center as origin : o .5 .5 ; \ half band width : w .25 ; \ covert degree to radius : deg> pi 180 / * ; \ the band at p of deg and width : b ( p deg width -- band ) >r deg> >r y swap - r@ cos * swap x swap - r> sin * - abs r> < ; \ the distance to center : r y - 2 ** swap x - 2 ** + sqrt ; \ convert radius to degree : >deg 180 pi / * ; \ the degree of angle at center : a y - swap x - atan2 >deg 360 mod ; \ take degree for cos : cos deg> cos ; o 0 w b o a cos -.5 > * o 60 w b o a 120 + cos -.5 > * o -60 w b o a 120 - cos -.5 > * o r .5 <
my RGB
陳爽
'25 Feb 07
: f ( r x y - k ) -.5 -.5 z+ 2dup z* + sqrt - t sin * sin ; x x 40 - * y + -40 + t * sin x y f 3 * x y * t + sin x x * y y * f max
Red Rain with Sounds
DarkstarAG
'25 Feb 07
: xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
Untitled
Anonymous
'25 Feb 07
: f 1 ; : g 0 ; : x > 0.5 c if f else g then ; c
Untitled
Anonymous
'25 Feb 07
x y 0
Untitled
Anonymous
'25 Feb 07
\ 紅綠藍的糾纏 陳爽 20160119 : 2pi 2 pi * ; \ 兩倍圓周率 : n \ 每秒反覆變化 值域 0 到 3 t sin pi / 1 + 1.5 * ; : o .5 .5 ; \ 中心座標 : d ( x0 y0 -- 指定點到x,y距離 ) y - 2 ** swap x - 2 ** + sqrt ; : a ( x0 y0 -- 指定點到x,y角度 ) y swap - swap ( y-y0 x0 ) x swap - ( y-y0 x-x0 ) atan2 ( 角" ) \ 值域-pi~pi 2pi / ( 角' ) \ 值域-.5~.5 1 mod ( 角 ) \ 值域0~1 ; : p ( 0~1之間的色相角度 -- 亮度 ) o a + \ 中心到x,y角度 -pi ~ pi t 2pi / + \ 每秒轉動1圈 sin .5 * .5 + \ 值域 -1 ~ 1 .333 - abs 3 * \ 值域 0 ~ 1/3 o d * n * \ 值域 0 ~ nr/3 2pi * sin ; \ : 層 dup >r * .00 p \ 紅光亮度 .33 p \ 綠光亮度 .66 p \ 藍光亮度 o d .5 < \ 透視圓 y .5 > .5 * - \ 上半透視減半
紅綠藍的糾纏
陳爽
'25 Feb 07
: n t sin 2 + ; \ 每秒 1到3 變化 : x x .5 - ; : y y .5 - ; \ 中心 : s n * pi * sin ; \ n pi 正旋 : r ( x y -- r ) \ 中心到x,y距離 2 ** swap 2 ** + sqrt ; x s y s r \ 模糊菱格 9999 ** \ 強化對比
菱格
陳爽
'25 Feb 07
: ^2 dup * ; : z- -1 0 z* z+ ; : r ( xy-r ) ^2 swap ^2 + sqrt ; : d (x1y1 x2y2 - d ) z- r ; 0 1 x 25 * sin y 25 * sin r 1.7 * 3 pow - 0.2 + 0
Горох
DarkstarAG
'25 Feb 07
: n 7 ; : r .4 ; : x x .5 - ; : y y .5 - ; \ 改以 中心 為 座標原點 : a x y atan2 ; \ 中心到 x,y 的角度 : d x dup * y dup * + sqrt ; \ 中心到 x,y 的距離 : b t * a n * - sin r * d ; : q 2 b ; : p 23 b ; q - 10 * q > * p - 10 * p > * + q > over + swap p > over .5 * + q - 99 * q > * p - 99 * p > * +
Iambically Redux
陳爽
'25 Feb 07
\ 以 中心原點至 x,y 的 距離 作圖 \ 半徑 .25 的 紅圓 y .5 - 2 ** x .5 - 2 ** + sqrt .25 < \ 定義 r 為 中心原點至 x,y 距離 : r y .5 - 2 ** x .5 - 2 ** + sqrt ; \ 至少 完整的 4 圈 綠漸層 r 8 * 1 mod \ 半徑 .75 的 藍洞 r .4 >
紅綠藍漸層
科科
'25 Feb 07
: x x .5 - ; : y y .5 - ; : x1 t sin x * t cos y * + ; : y1 t cos x negate * t sin y * + ; : x x1 ; : y y1 ; : ang x y atan2 ; : dist x dup * y dup * + ; : bump ang 5 * sin .2 * dist ; : bump2 ang 5 * pi + sin .2 * dist ; bump - 7 * bump > * bump2 - 7 * bump2 > * + bump > over + swap bump2 > over .5 * + bump - 50 * bump > * bump2 - 50 * bump2 > * +
Iambically Rotation
DarkstarAG
'25 Feb 07
: x x .5 - ; : y y .5 - ; : ang x y atan2 ; : dist x dup * y dup * + ; : bump ang 5 * sin .2 * dist ; : bump2 ang 5 * pi + sin .2 * dist ; bump - 7 * bump > * bump2 - 7 * bump2 > * + bump > over + swap bump2 > over .5 * + bump - 50 * bump > * bump2 - 50 * bump2 > * +
Iambically
BradN
'25 Feb 07
: m .8 - +5 / ; .3 x m pi * t 2 / + tan y m + t 2 * + tan .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
Untitled
陳庭誼
'25 Feb 07
t x + 10 * sin y / tan t y + 11 * sin x / cos t x y - + 5 * sin x y + / cos
我要過 Redux
410227886
'25 Feb 07
0 4 x .5 - 30 ** y .5 - 10 ** + .05 ** dup -rot / t dup floor - pi * 2 * + tan over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .3
Untitled
蔡宛渝
'25 Feb 07
: m .8 - +5 / ; .3 x m pi * t 2 / + tan y m + t 2 * + tan .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
Untitled
蔡宛渝
'25 Feb 07
x 9 * tan y 20 * sin t 20 * sin * * dup t 9 * sin *
李亞芸
'25 Feb 07
: wifi push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 wifi 1 x - y 10 wifi x 1 y - 10 wifi
RGB
林冠儒
'25 Feb 07
t x + 9 * sin y / tan t y + 11 * sin x / cos t x y - + 5 * sin x y + / cos
我要過
陳彥廷
'25 Feb 07
( color scheme: QuickBasic and MSX2 memories ) 0 5 x .5 - 10 ** y .5 - 10 ** + .05 ** dup -rot / t dup floor - pi * -1 * + sin over 9 * 4 ** ** swap .1 max .1 - * 5 * 1 min .9
Square Tunnel back
410227886
'25 Feb 07
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 + pop + t + 100 + tan ; x y spiral dup x * over y *
彩色風車
陳天愛
'25 Feb 07
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 ripple 1 x - 1 y - 10 ripple + 1 x - y 10 ripple 1 x - 1 y - 10 ripple 2 / + x 1 y - 10 ripple
彩色波紋
陳天愛
'25 Feb 07
: ripple push dup * swap dup * + sqrt t pop / - 32 * sin ; x y 10 ripple 1 x - y 10 ripple x 1 y - 10 ripple 1 x - 1 y - 10 ripple
好玩
miemie
'25 Feb 07
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 + pop + t + 100 + tan ; x y spiral dup x * over y *
資傳三B 康芸瑄 Redux
陳天愛
'25 Feb 07
: s * sin * ; 3 x 15 s y 15 s t 3 s dup x * over y *
Untitled Redux Redux
miemie
'25 Feb 07
: s .21 ; : c t * 1 mod 2 s - * 1 s - - dup 0 > 2 * 1 - * 0.01 + ; : x c 1 s 2 * - * s + x - ; : y c 1 s 2 * - * s + y - ; : r x dup * swap y dup * + sqrt ; : b r s < ; .25 .33 b .1 .3 b .2 .44 b
rgb Redux
miemie
'25 Feb 07
: c 0.5 - ; : s dup * ; : d x c s y c s + ; : cir d > swap d < and ; : draw dup 0.09 + cir ; t 10 mod 20 / draw x 90 * tan y 90 * tan t 5 * sin * * dup t 1 * tan * dup t 1 * tan *
擴散
李明儒
'25 Feb 07
: s * sin * ; 3 x 15 s y 15 s t 3 s dup dup
Untitled Redux Redux
sophie
'25 Feb 07
: x x .5 - ; : y 0 y .3 - - ; 1 .143 x x * y y * + sqrt 22 * t .7 * + sin x y atan2 4 ** t .33 * + sin - abs / - dup x * over y *
Test Redux
sophie
'25 Feb 07
\ 參考Eye - DarkstarAG \ 參考Up and to the Right haiku - adg \ 參考Audio 6 - Anonymous : sq t * cos 0 > ; 8 sq .8 * 4 sq .5 * + 2 sq .3 * + 1 sq .2 * + .1 + : ' .5 - 1 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ^2 ; r^2 dup y .5 - * 65 * cos swap 2< * : f 80 * floor 1 / ; x f y f max t cos abs mod
期末
吳采霖33
'25 Feb 07
: s * sin * ; 3 x 15 s y 15 s t 3 s dup t 3 s dup t 15 s
Untitled Redux
蘇家平
'25 Feb 07
: 閃耀星星 >r 1024 / 1 swap - y - abs swap 1024 / x - abs + 20 * 0.3 ** r> ** 1 - negate 20 * t 10 * x y + 10 * + sin 1.5 + 3 / * ; : ! max ; : c 256 / * ; : 雨從天降 x .5 - dup * y .0 - dup * + sqrt ; : 閃亮晶晶 x y ** 90 * sin t sqrt 100 / * 40 swap * dup swap floor - 1000 * 999 - 0 max ; : g dup x pi * * cos abs .992 > swap y pi * * cos abs .992 > or ; 19 g : f ( n y -- ) swap 2dup 19 / > -rot 1 + 19 / < and ; : h ( y -- ) y f or ; 0 h 18 h : v ( x -- ) x f or ; 0 v 18 v : p ( x y -- ) y f swap x f and or ; \ 3 5 p : 橫 ( x y n -- ) swap ( x n y ) y over 19 / > ( x n y f ) y rot 1 + 19 / < and ( x n f ) -rot ( x f n ) >r ( f x ) x over 19 / > ( f x f ) x rot r> + 19 / < ( f f f ) and and or ; : 直 ( x y n -- ) rot ( y n x ) x over 19 / > ( y n x f ) x rot 1 + 19 / < and ( y n f ) -rot ( y f n ) >r ( f y ) y over 19 / > ( f x f ) y rot r> + 19 / < ( f f f ) and and or ; : 城城是你 2 6 3 橫 2 8 3 橫 3 6 4 直 6 4 1 直 7 11 9 橫 7 8 3 橫 7 4 8 直 10 6 3 直 13 4 10 直 14 4 1 橫 15 13 1 橫 12 6 1 橫 14 6 1 橫 ; 0 城城是你 閃亮晶晶 ( 閃耀星星的亮點 ) 0 320 160 .1 閃耀星星 250 c ! 590 520 .1 閃耀星星 250 c ! 100 700 .1 閃耀星星 250 c ! 880 270 .1 閃耀星星 250 c ! 820 800 .1 閃耀星星 250 c ! + + dup rot t sin 5 / 0.9 + y t + x 0.2 + mod - ( Reference from Orion Blink , chinese 中 , 彩虹雨 , 星際透視鐘 )
雨中漫步見金城
CSIE105A 410125791 sheep
'25 Feb 07
x 50 - dup * y 70 - * 10 t * t + cos 10
閃爍
陳璟毓
'25 Feb 07
\ 參考自彩虹雨 part 2 - 黃綺萱 \ 及星際透視鐘 - 陳爽 : 繁星 x y ** 900 * sin t sqrt 100 / * 31 swap * dup swap floor - 1000 * 999 - 0 max ; : r y dup * x x * + 3 ** ; \ 彩虹半徑 r 0.6 繁星 + < r 0.5 繁星 - > r 0.35 繁星 + < r 0.3 繁星 + > and or and r 0.55 繁星 t * + < r 0.4 繁星 + > and r 0.45 繁星 + < r 0.3 繁星 + > 繁星 + and
彩虹她懂得夜的黑 Redux
SOPHIE
'25 Feb 07
Next