Haiku Gallery
: sqr dup * ; : r 0.3 ; : dr t sin r * ; : dx x 0.5 - ; : dy y 0.5 - ; dx sqr dy sqr + sqrt r < dx dr < and
dranik
Anonymous
'24 Apr 26
: sqr dup * ; : r 0.3 ; : alpha t sin pi * ; : dx x 0.5 - ; : dy y 0.5 - ; dx sqr dy sqr + sqrt r < dy dx atan2 x 0 < if pi swap - else then alpha < and
sector
Anonymous
'24 Apr 26
: sq dup * ; : norm * sin 1 + 2 / ; : на x 0.5 - sq ; : мёртвой y 0.5 - sq ; : ветке + ; : чернеет sqrt t sin * ; : ворон. dup 40 norm ; : осенний over 60 norm ; : вечер. rot 80 norm ; на мёртвой ветке чернеет ворон. осенний вечер.
Untitled
Anonymous
'24 Apr 26
: sq dup * ; : norm * sin 1 + 2 / ; : на x 0.5 - sq ; : мёртвой y 0.5 - sq ; : ветке + ; : чернеет sqrt t sin * ; : ворон. dup 40 norm ; : осенний over 60 norm ; : вечер. rot 80 norm ; на мёртвой ветке чернеет вечер. осенний ворон.
Untitled Redux
Anonymous
'24 Apr 26
( color scheme: QuickBasic and MSX2 memories ) 8 180 x .5 - 20 ** y .5 - 20 ** + .05 ** dup -rot / t dup floor - pi * 2 * + sin over 9 * 4 ** ** swap .1 max .1 - * 180 * 5 min .81
liquid tunnel
blank
'24 Apr 26
: v t swap / dup floor - 1.96 * .98 - dup 0 > 2 * 1 - * .01 + ; : px 2.9 v .94 * .025 + ; : py 3.5 v ; : ball px x - 2 ** py y - 2 ** + .5 ** .02 < ; : m .4 * .5 + - ; py .9 * .04 + dup t 3 * sin m px * - y - abs .1 < x .03 < * ball + ball py .9 * .04 + dup t 2 * cos m 1 px - * - y - abs .1 < x .97 > * ball +
PONG game Redux
陳爽
'24 Apr 26
\ all color names defined : rgb rot 255 / rot 255 / rot 255 / ; : snow 255 250 250 rgb ; : pale-turquoise1 187 255 255 rgb ; : ghost-white 248 248 255 rgb ; : pale-turquoise2 174 238 238 rgb ; : white-smoke 245 245 245 rgb ; : pale-turquoise3 150 205 205 rgb ; : gainsboro 220 220 220 rgb ; : pale-turquoise4 102 139 139 rgb ; : floral-white 255 250 240 rgb ; : cadet-blue1 152 245 255 rgb ; : old-lace 253 245 230 rgb ; : cadet-blue2 142 229 238 rgb ; : linen 250 240 230 rgb ; : cadet-blue3 122 197 205 rgb ; : antique-white 250 235 215 rgb ; : cadet-blue4 083 134 139 rgb ; : papaya-whip 255 239 213 rgb ; : turquoise1 000 245 255 rgb ; : blanched-almond 255 235 205 rgb ; : turquoise2 000 229 238 rgb ; : bisque 255 228 196 rgb ; : turquoise3 000 197 205 rgb ; : peach-puff 255 218 185 rgb ; : turquoise4 000 134 139 rgb ; : navajo-white 255 222 173 rgb ; : cyan1 000 255 255 rgb ; : moccasin 255 228 181 rgb ; : cyan2 000 238 238 rgb ; : cornsilk 255 248 220 rgb ; : cyan3 000 205 205 rgb ; : ivory 255 255 240 rgb ; : cyan4 000 139 139 rgb ; : lemon-chiffon 255 250 205 rgb ; : dark-slate-gray1 151 255 255 rgb ; : seashell 255 245 238 rgb ; : dark-slate-gray2 141 238 238 rgb ; : honeydew 240 255 240 rgb ; : dark-slate-gray3 121 205 205 rgb ; : mint-cream 245 255 250 rgb ; : dark-slate-gray4 082 139 139 rgb ; : azure 240 255 255 rgb ; : aquamarine1 127 255 212 rgb ; : alice-blue 240 248 255 rgb ; : aquamarine2 118 238 198 rgb ; : lavender 230 230 250 rgb ; : aquamarine3 102 205 170 rgb ; : lavender-blush 255 240 245 rgb ; : aquamarine4 069 139 116 rgb ; : misty-rose 255 228 225 rgb ; : dark-sea-green1 193 255 193 rgb ; : white 255 255 255 rgb ; : dark-sea-green2 180 238 180 rgb ; : black 000 000 000 rgb ; : dark-sea-green3 155 205 155 rgb ; : dark-slate-gray 047 079 079 rgb ; : dark-sea-green4 105 139 105 rgb ; : dim-grey 105 105 105 rgb ; : sea-green1 084 255 159 rgb ; : slate-grey 112 128 144 rgb ; : sea-green2 078 238 148 rgb ; : light-slate-gray 119 136 153 rgb ; : sea-green3 067 205 128 rgb ; : grey 190 190 190 rgb ; : sea-green4 046 139 087 rgb ; : light-gray 211 211 211 rgb ; : pale-green1 154 255 154 rgb ; : midnight-blue 025 025 112 rgb ; : pale-green2 144 238 144 rgb ; : navy-blue 000 000 128 rgb ; : pale-green3 124 205 124 rgb ; : cornflower-blue 100 149 237 rgb ; : pale-green4 084 139 084 rgb ; : dark-slate-blue 072 061 139 rgb ; : spring-green1 000 255 127 rgb ; : slate-blue 106 090 205 rgb ; : spring-green2 000 238 118 rgb ; : medium-slate-blue 123 104 238 rgb ; : spring-green3 000 205 102 rgb ; : light-slate-blue 132 112 255 rgb ; : spring-green4 000 139 069 rgb ; : medium-blue 000 000 205 rgb ; : green1 000 255 000 rgb ; : royal-blue 065 105 225 rgb ; : green2 000 238 000 rgb ; : blue 000 000 255 rgb ; : green3 000 205 000 rgb ; : dodger-blue 030 144 255 rgb ; : green4 000 139 000 rgb ; : deep-sky-blue 000 191 255 rgb ; : chartreuse1 127 255 000 rgb ; : sky-blue 135 206 235 rgb ; : chartreuse2 118 238 000 rgb ; : light-sky-blue 135 206 250 rgb ; : chartreuse3 102 205 000 rgb ; : steel-blue 070 130 180 rgb ; : chartreuse4 069 139 000 rgb ; : light-steel-blue 176 196 222 rgb ; : olive-drab1 192 255 062 rgb ; : light-blue 173 216 230 rgb ; : olive-drab2 179 238 058 rgb ; : powder-blue 176 224 230 rgb ; : olive-drab3 154 205 050 rgb ; : pale-turquoise 175 238 238 rgb ; : olive-drab4 105 139 034 rgb ; : dark-turquoise 000 206 209 rgb ; : dark-olive-green1 202 255 112 rgb ; : medium-turquoise 072 209 204 rgb ; : dark-olive-green2 188 238 104 rgb ; : turquoise 064 224 208 rgb ; : dark-olive-green3 162 205 090 rgb ; : cyan 000 255 255 rgb ; : dark-olive-green4 110 139 061 rgb ; : light-cyan 224 255 255 rgb ; : khaki1 255 246 143 rgb ; : cadet-blue 095 158 160 rgb ; : khaki2 238 230 133 rgb ; : medium-aquamarine 102 205 170 rgb ; : khaki3 205 198 115 rgb ; : aquamarine 127 255 212 rgb ; : khaki4 139 134 078 rgb ; : dark-green 000 100 000 rgb ; : light-goldenrod1 255 236 139 rgb ; : dark-olive-green 085 107 047 rgb ; : light-goldenrod2 238 220 130 rgb ; : dark-sea-green 143 188 143 rgb ; : light-goldenrod3 205 190 112 rgb ; : sea-green 046 139 087 rgb ; : light-goldenrod4 139 129 076 rgb ; : medium-sea-green 060 179 113 rgb ; : light-yellow1 255 255 224 rgb ; : light-sea-green 032 178 170 rgb ; : light-yellow2 238 238 209 rgb ; : pale-green 152 251 152 rgb ; : light-yellow3 205 205 180 rgb ; : spring-green 000 255 127 rgb ; : light-yellow4 139 139 122 rgb ; : lawn-green 124 252 000 rgb ; : yellow1 255 255 000 rgb ; : green 000 255 000 rgb ; : yellow2 238 238 000 rgb ; : chartreuse 127 255 000 rgb ; : yellow3 205 205 000 rgb ; : med-spring-green 000 250 154 rgb ; : yellow4 139 139 000 rgb ; : green-yellow 173 255 047 rgb ; : gold1 255 215 000 rgb ; : lime-green 050 205 050 rgb ; : gold2 238 201 000 rgb ; : yellow-green 154 205 050 rgb ; : gold3 205 173 000 rgb ; : forest-green 034 139 034 rgb ; : gold4 139 117 000 rgb ; : olive-drab 107 142 035 rgb ; : goldenrod1 255 193 037 rgb ; : dark-khaki 189 183 107 rgb ; : goldenrod2 238 180 034 rgb ; : pale-goldenrod 238 232 170 rgb ; : goldenrod3 205 155 029 rgb ; : lt-goldenrod-yello 250 250 210 rgb ; : goldenrod4 139 105 020 rgb ; : light-yellow 255 255 224 rgb ; : dark-goldenrod1 255 185 015 rgb ; : yellow 255 255 000 rgb ; : dark-goldenrod2 238 173 014 rgb ; : gold 255 215 000 rgb ; : dark-goldenrod3 205 149 012 rgb ; : light-goldenrod 238 221 130 rgb ; : dark-goldenrod4 139 101 008 rgb ; : goldenrod 218 165 032 rgb ; : rosy-brown1 255 193 193 rgb ; : dark-goldenrod 184 134 011 rgb ; : rosy-brown2 238 180 180 rgb ; : rosy-brown 188 143 143 rgb ; : rosy-brown3 205 155 155 rgb ; : indian-red 205 092 092 rgb ; : rosy-brown4 139 105 105 rgb ; : saddle-brown 139 069 019 rgb ; : indian-red1 255 106 106 rgb ; : sienna 160 082 045 rgb ; : indian-red2 238 099 099 rgb ; : peru 205 133 063 rgb ; : indian-red3 205 085 085 rgb ; : burlywood 222 184 135 rgb ; : indian-red4 139 058 058 rgb ; : beige 245 245 220 rgb ; : sienna1 255 130 071 rgb ; : wheat 245 222 179 rgb ; : sienna2 238 121 066 rgb ; : sandy-brown 244 164 096 rgb ; : sienna3 205 104 057 rgb ; : tan 210 180 140 rgb ; : sienna4 139 071 038 rgb ; : chocolate 210 105 030 rgb ; : burlywood1 255 211 155 rgb ; : firebrick 178 034 034 rgb ; : burlywood2 238 197 145 rgb ; : brown 165 042 042 rgb ; : burlywood3 205 170 125 rgb ; : dark-salmon 233 150 122 rgb ; : burlywood4 139 115 085 rgb ; : salmon 250 128 114 rgb ; : wheat1 255 231 186 rgb ; : light-salmon 255 160 122 rgb ; : wheat2 238 216 174 rgb ; : orange 255 165 000 rgb ; : wheat3 205 186 150 rgb ; : dark-orange 255 140 000 rgb ; : wheat4 139 126 102 rgb ; : coral 255 127 080 rgb ; : tan1 255 165 079 rgb ; : light-coral 240 128 128 rgb ; : tan2 238 154 073 rgb ; : tomato 255 099 071 rgb ; : tan3 205 133 063 rgb ; : orange-red 255 069 000 rgb ; : tan4 139 090 043 rgb ; : red 255 000 000 rgb ; : chocolate1 255 127 036 rgb ; : hot-pink 255 105 180 rgb ; : chocolate2 238 118 033 rgb ; : deep-pink 255 020 147 rgb ; : chocolate3 205 102 029 rgb ; : pink 255 192 203 rgb ; : chocolate4 139 069 019 rgb ; : light-pink 255 182 193 rgb ; : firebrick1 255 048 048 rgb ; : pale-violet-red 219 112 147 rgb ; : firebrick2 238 044 044 rgb ; : maroon 176 048 096 rgb ; : firebrick3 205 038 038 rgb ; : medium-violet-red 199 021 133 rgb ; : firebrick4 139 026 026 rgb ; : violet-red 208 032 144 rgb ; : brown1 255 064 064 rgb ; : magenta 255 000 255 rgb ; : brown2 238 059 059 rgb ; : violet 238 130 238 rgb ; : brown3 205 051 051 rgb ; : plum 221 160 221 rgb ; : brown4 139 035 035 rgb ; : orchid 218 112 214 rgb ; : salmon1 255 140 105 rgb ; : medium-orchid 186 085 211 rgb ; : salmon2 238 130 098 rgb ; : dark-orchid 153 050 204 rgb ; : salmon3 205 112 084 rgb ; : dark-violet 148 000 211 rgb ; : salmon4 139 076 057 rgb ; : blue-violet 138 043 226 rgb ; : light-salmon1 255 160 122 rgb ; : purple 160 032 240 rgb ; : light-salmon2 238 149 114 rgb ; : medium-purple 147 112 219 rgb ; : light-salmon3 205 129 098 rgb ; : thistle 216 191 216 rgb ; : light-salmon4 139 087 066 rgb ; : snow1 255 250 250 rgb ; : orange1 255 165 000 rgb ; : snow2 238 233 233 rgb ; : orange2 238 154 000 rgb ; : snow3 205 201 201 rgb ; : orange3 205 133 000 rgb ; : snow4 139 137 137 rgb ; : orange4 139 090 000 rgb ; : seashell1 255 245 238 rgb ; : dark-orange1 255 127 000 rgb ; : seashell2 238 229 222 rgb ; : dark-orange2 238 118 000 rgb ; : seashell3 205 197 191 rgb ; : dark-orange3 205 102 000 rgb ; : seashell4 139 134 130 rgb ; : dark-orange4 139 069 000 rgb ; : antique-white1 255 239 219 rgb ; : coral1 255 114 086 rgb ; : antique-white2 238 223 204 rgb ; : coral2 238 106 080 rgb ; : antique-white3 205 192 176 rgb ; : coral3 205 091 069 rgb ; : antique-white4 139 131 120 rgb ; : coral4 139 062 047 rgb ; : bisque1 255 228 196 rgb ; : tomato1 255 099 071 rgb ; : bisque2 238 213 183 rgb ; : tomato2 238 092 066 rgb ; : bisque3 205 183 158 rgb ; : tomato3 205 079 057 rgb ; : bisque4 139 125 107 rgb ; : tomato4 139 054 038 rgb ; : peach-puff1 255 218 185 rgb ; : orange-red1 255 069 000 rgb ; : peach-puff2 238 203 173 rgb ; : orange-red2 238 064 000 rgb ; : peach-puff3 205 175 149 rgb ; : orange-red3 205 055 000 rgb ; : peach-puff4 139 119 101 rgb ; : orange-red4 139 037 000 rgb ; : navajo-white1 255 222 173 rgb ; : red1 255 000 000 rgb ; : navajo-white2 238 207 161 rgb ; : red2 238 000 000 rgb ; : navajo-white3 205 179 139 rgb ; : red3 205 000 000 rgb ; : navajo-white4 139 121 094 rgb ; : red4 139 000 000 rgb ; : lemon-chiffon1 255 250 205 rgb ; : deep-pink1 255 020 147 rgb ; : lemon-chiffon2 238 233 191 rgb ; : deep-pink2 238 018 137 rgb ; : lemon-chiffon3 205 201 165 rgb ; : deep-pink3 205 016 118 rgb ; : lemon-chiffon4 139 137 112 rgb ; : deep-pink4 139 010 080 rgb ; : cornsilk1 255 248 220 rgb ; : hot-pink1 255 110 180 rgb ; : cornsilk2 238 232 205 rgb ; : hot-pink2 238 106 167 rgb ; : cornsilk3 205 200 177 rgb ; : hot-pink3 205 096 144 rgb ; : cornsilk4 139 136 120 rgb ; : hot-pink4 139 058 098 rgb ; : ivory1 255 255 240 rgb ; : pink1 255 181 197 rgb ; : ivory2 238 238 224 rgb ; : pink2 238 169 184 rgb ; : ivory3 205 205 193 rgb ; : pink3 205 145 158 rgb ; : ivory4 139 139 131 rgb ; : pink4 139 099 108 rgb ; : honeydew1 240 255 240 rgb ; : light-pink1 255 174 185 rgb ; : honeydew2 224 238 224 rgb ; : light-pink2 238 162 173 rgb ; : honeydew3 193 205 193 rgb ; : light-pink3 205 140 149 rgb ; : honeydew4 131 139 131 rgb ; : light-pink4 139 095 101 rgb ; : lavender-blush1 255 240 245 rgb ; : pale-violet-red1 255 130 171 rgb ; : lavender-blush2 238 224 229 rgb ; : pale-violet-red2 238 121 159 rgb ; : lavender-blush3 205 193 197 rgb ; : pale-violet-red3 205 104 137 rgb ; : lavender-blush4 139 131 134 rgb ; : pale-violet-red4 139 071 093 rgb ; : misty-rose1 255 228 225 rgb ; : maroon1 255 052 179 rgb ; : misty-rose2 238 213 210 rgb ; : maroon2 238 048 167 rgb ; : misty-rose3 205 183 181 rgb ; : maroon3 205 041 144 rgb ; : misty-rose4 139 125 123 rgb ; : maroon4 139 028 098 rgb ; : azure1 240 255 255 rgb ; : violet-red1 255 062 150 rgb ; : azure2 224 238 238 rgb ; : violet-red2 238 058 140 rgb ; : azure3 193 205 205 rgb ; : violet-red3 205 050 120 rgb ; : azure4 131 139 139 rgb ; : violet-red4 139 034 082 rgb ; : slate-blue1 131 111 255 rgb ; : magenta1 255 000 255 rgb ; : slate-blue2 122 103 238 rgb ; : magenta2 238 000 238 rgb ; : slate-blue3 105 089 205 rgb ; : magenta3 205 000 205 rgb ; : slate-blue4 071 060 139 rgb ; : magenta4 139 000 139 rgb ; : royal-blue1 072 118 255 rgb ; : orchid1 255 131 250 rgb ; : royal-blue2 067 110 238 rgb ; : orchid2 238 122 233 rgb ; : royal-blue3 058 095 205 rgb ; : orchid3 205 105 201 rgb ; : royal-blue4 039 064 139 rgb ; : orchid4 139 071 137 rgb ; : blue1 000 000 255 rgb ; : plum1 255 187 255 rgb ; : blue2 000 000 238 rgb ; : plum2 238 174 238 rgb ; : blue3 000 000 205 rgb ; : plum3 205 150 205 rgb ; : blue4 000 000 139 rgb ; : plum4 139 102 139 rgb ; : dodger-blue1 030 144 255 rgb ; : medium-orchid1 224 102 255 rgb ; : dodger-blue2 028 134 238 rgb ; : medium-orchid2 209 095 238 rgb ; : dodger-blue3 024 116 205 rgb ; : medium-orchid3 180 082 205 rgb ; : dodger-blue4 016 078 139 rgb ; : medium-orchid4 122 055 139 rgb ; : steel-blue1 099 184 255 rgb ; : dark-orchid1 191 062 255 rgb ; : steel-blue2 092 172 238 rgb ; : dark-orchid2 178 058 238 rgb ; : steel-blue3 079 148 205 rgb ; : dark-orchid3 154 050 205 rgb ; : steel-blue4 054 100 139 rgb ; : dark-orchid4 104 034 139 rgb ; : deep-sky-blue1 000 191 255 rgb ; : purple1 155 048 255 rgb ; : deep-sky-blue2 000 178 238 rgb ; : purple2 145 044 238 rgb ; : deep-sky-blue3 000 154 205 rgb ; : purple3 125 038 205 rgb ; : deep-sky-blue4 000 104 139 rgb ; : purple4 085 026 139 rgb ; : sky-blue1 135 206 255 rgb ; : medium-purple1 171 130 255 rgb ; : sky-blue2 126 192 238 rgb ; : medium-purple2 159 121 238 rgb ; : sky-blue3 108 166 205 rgb ; : medium-purple3 137 104 205 rgb ; : sky-blue4 074 112 139 rgb ; : medium-purple4 093 071 139 rgb ; : light-sky-blue1 176 226 255 rgb ; : thistle1 255 225 255 rgb ; : light-sky-blue2 164 211 238 rgb ; : thistle2 238 210 238 rgb ; : light-sky-blue3 141 182 205 rgb ; : thistle3 205 181 205 rgb ; : light-sky-blue4 096 123 139 rgb ; : thistle4 139 123 139 rgb ; : slate-gray1 198 226 255 rgb ; : grey11 028 028 028 rgb ; : slate-gray2 185 211 238 rgb ; : grey21 054 054 054 rgb ; : slate-gray3 159 182 205 rgb ; : grey31 079 079 079 rgb ; : slate-gray4 108 123 139 rgb ; : grey41 105 105 105 rgb ; : light-steel-blue1 202 225 255 rgb ; : grey51 130 130 130 rgb ; : light-steel-blue2 188 210 238 rgb ; : grey61 156 156 156 rgb ; : light-steel-blue3 162 181 205 rgb ; : grey71 181 181 181 rgb ; : light-steel-blue4 110 123 139 rgb ; : gray81 207 207 207 rgb ; : light-blue1 191 239 255 rgb ; : gray91 232 232 232 rgb ; : light-blue2 178 223 238 rgb ; : dark-grey 169 169 169 rgb ; : light-blue3 154 192 205 rgb ; : dark-blue 000 000 139 rgb ; : light-blue4 104 131 139 rgb ; : dark-cyan 000 139 139 rgb ; : light-cyan1 224 255 255 rgb ; : dark-magenta 139 000 139 rgb ; : light-cyan2 209 238 238 rgb ; : dark-red 139 000 000 rgb ; : light-cyan3 180 205 205 rgb ; : light-cyan4 122 139 139 rgb ; : light-green 144 238 144 rgb ; gold
exact color name
陳爽
'24 Apr 26
: x x 2 * 1 - ; : y y 2 * 1 - ; : r x 2 ** y 2 ** + .5 ** ; : a y negate x negate atan2 pi + 2 pi * / ; : s r * t 3 * - ; 1 s cos 2 s 0.8143 * cos 14 s 1.9101 * cos dup a t - 1 mod *
radiations Redux
Anonymous
'24 Apr 26
: d dup y x
brightness out of nowhere
Anonymous
'24 Apr 26
x y sin dup 0.3
()::::::>
Anonymous
'24 Apr 26
: dup x y dup sin did 0.5
through the mist
Anonymous
'24 Apr 26
: center 2 * 1 - ; : xc x center ; : yc y center ; : r xc 2 ** yc 2 ** + sqrt ; : s r * t 3 * - ; 1 s 1.0139 * pi 9 / + cos 2 s 0.8143 * cos 14 s 1.9101 * pi + cos dup
radiations of the untitled redux
Anonymous
'24 Apr 26
x y dup sin 0.3
watre metre oftre watrementre
unknown author
'24 Apr 26
x y dup sin
watremelentre
Anonymous
'24 Apr 26
1 y 2 * - x y 2 * 7 ** t 34 / sin * + .5 - abs 2dup > .9 y - * -rot 1 * > 3 1 y 9.8 * - / t 1 mod 6 * + floor 2 mod 1 y 1.8 * - * 4 / * + dup 0 = .5 y - * .75 ** y .5 < * over + over 1 x t 98 / cos + 12 * sin 30 / y .6 - < * + 1.5 y 1.3 * - y .5 > * -
STREAM
Anonymous
'24 Apr 26
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.09 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 21380.9 * ; : m x 10 * + + sin 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -21.57 0.3 l 0.5 0.4 -1.57 a + 0.95 l + 0.5 0.4 -1.57 a + 0.95 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 9.5 0.4 -1.57 a - 0.19 p -2 b - 0.8 l + 9.5 9.6 -1.59 a + 0.199 l + 0.5 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 9.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 2 1 t 2 / m 9328 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.89 > * +
STEAM ENGINE
Anonymous
'24 Apr 26
( inspired by "Web Wars" game on Vectrex console ) ( let's discuss Forth Haiku on demoscene.ru forum ) : t t 82 + ; : d dup ; : fract d floor - ; : n 6 ; : xx x .5 - ; : yy y .46 - ; : xw x .99 - 10 * ; : yw y .37 - t 2.5 * 1.1 - sin 90 / - 12 * ; : dx t n / floor sin 2 * ; : dy t n / floor cos 2 * ; : zoom 1 1 t n / fract - 50 * 1 + / ; : phase t fract pi * 2 * ; : wings 1 xw cos t 2.5 * sin * xx abs .5 + * yw - abs - 121 xx 2.08957457 * abs - sqrt * 0 max 8 ** d >r 20 * 4 ** 1 min max r> 9 * 1991 ** 1 min - ; 5 xx d * yy d * + sqrt d -rot / phase + sin abs over 9 * 4 ** ** swap .15 max .15 - * 4 * 12 zoom dx over * xx - d * over dy * yy - d * + sqrt swap 2dup >r >r 7 / - - abs 200 ** 1 min max 1 r> r> 2.2 / - - abs 200 ** - 0 max 1 min wings d d
slither
Anonymous
'24 Apr 26
: r dup y 3 ** * t + sin swap x * cos + 9 mod ; 18 r 22 r dup 89 r /
continental meltdown
Anonymous
'24 Apr 26
: web push push x 123.5 + y 3.23 + * pop * sin 0 max x 0.3 + y 0.123 + * pop * sin 0 max + ; 31 21 web 17 17 web * x + 23 31 web 19 19 web * y x * + 12343 31 web 532 5 web * y +
Untitled
Anonymous
'24 Apr 26
: z t 1 + cos 4 + 3 / * ; : a 1.1 x .5 - y .5 - atan2 t ; : b * dup sin swap 2 / t 5 * + cos t 3 / sin 2 / 1 + * - 1990 / x .5 - z 2 ** y .5 - z 2 ** + + - 4 ** ; a 1.7 / + 10 b t cos 1 + 12 / + a 1.9 / - 8 b a 19.1 / - 6 b t 2.7 * cos 1 + 5 / +
the sun
Anonymous
'24 Apr 26
x 9.91372012 * sin y 321.1432 * sin t 4 * sin * * dup t 3 * sin * dup t 809 * sin *
cracker packs by Anonymous
Anonymous
'24 Apr 26
x y sin floor 0.89 sin 0.9231 x y sin floor 0.89 sin 0.9231
pink
Anonymous
'24 Apr 26
: n 29 ; : ox x n * floor n / ; : oy y n * floor n / ; : dd ox dup * oy dup * + sqrt ; : ddd dd dup n * floor n / / / ; x ox ddd - n * .231 - abs .9 < y oy ddd - n * .123 - abs .9 < *
patch
Anonymous
'24 Apr 26
: web push push x 123.5 + y 3.23 + * pop * sin 0 max x 0.3 + y 0.123 + * pop * sin 0 max + ; 31 21 web 17 17 web * x + 23 31 web 19 19 web * y x * + 12343 31 web 532 5 web * y +
oh, can you see the stars?
Anonymous
'24 Apr 26
: scale ( x y z sx sy sz - x' y' z' ) ; : translate ( x y z dx dy dz - x' y' z' ) ; : rotatex ( x y z alpha - x' y' z' ) ; : rotatey ( x y z alpha - x' y' z' ) ; : rotatez ( x y z alpha - x' y' z' ) ; : x x .5 - ; : y y .5 - ; : n 1 + 2 / ; : f ( - ) x y t cos * + 251343124983912353234124 * sin x t cos * y - 25 * sin * n ; : depth f ; depth dup dup dup
no connection possible
Anonymous
'24 Apr 26
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 9 * x 09 * floor 5 / + 4 * c 12 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 76.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.2 - d * + 366 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.9
shakedy dots
Anonymous
'24 Apr 26
: d dup ; : ' .-3 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .7 * ; : m lr / * 8 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .12123 + .4 r 40 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
thundering sun
Anonymous
'24 Apr 26
: x' x 0.5 - t sin 32.2 * + ; : y' y 0.5 - t 1.5 * cos 0.03 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 32 mod ; : m 2091 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 562 * t 100 * + 231 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 2332 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
lightning
anonymous
'24 Apr 26
\ 顯示 圓心 x0,y0 半徑 r0 的 圓形 : 圓 ( x0 y0 r0 -- 圓形 ) >r \ ( x0 y0 ) 暫存 r0 到回返堆疊 y - 2 ** \ ( x0 (y0-y)**2 ) swap \ ( (y0-y)**2 x0 ) x - 2 ** \ ( (y0-y)**2 (x0-x)**2 ) + \ ( (y0-y)**2+(x0-x)**2 ) .5 ** \ ( ((y0-y)**2+(x0-x)**2)**.5 ) r> \ ( ((y0-y)**2+(x0-x)**2)**.5 r0 ) 取回 r0 < \ ( ((y0-y)**2+(x0-x)**2)**.5<r0 ) ; .45 .55 .4 圓 \ 顯示 紅色 圓形 .40 .35 .3 圓 \ 顯示 綠色 圓形 .75 .38 .2 圓 \ 顯示 藍色 圓形 .50 .50 .5 圓 \ 從半徑 .5 的圓透視
圓形
陳爽
'24 Apr 26
: n 10 ; : ox x n * floor n / ; : oy y n * floor n / ; : dd ox dup * oy dup * + sqrt ; : ddd dd dup n * floor n / / / ; x ox ddd - n * .5 - abs .1 < y oy ddd - n * .5 - abs .1 < *
Spray
Anonymous
'24 Apr 26
: scale ( x y z sx sy sz - x' y' z' ) ; : translate ( x y z dx dy dz - x' y' z' ) >r rot >r z+ r> r> + ; : rotate ( x y a - x' y' ) dup push sin pop cos z* ; : rotatex ( x y z alpha - x= y' z' ) rotate ; : rotatey ( x y z alpha - x' y= z' ) rot >r rotate r> swap ; : rotatez ( x y z alpha - x' y' z= ) swap >r rotate r> ; : x x .5 - ; : y y .5 - ; : n 1 + 2 / ; : f ( - ) x y 0 cos * + 25 * sin x 0 cos * y - 25 * sin * ; : depth x y f ( 2 2 2 scale ) t sin 2 * t cos 2 * .5 translate t cos rotatex t cos rotatey t sin rotatez ; depth
DepthFieldShader3
DarkstarAG
'24 Apr 26
: scale ( x y z sx sy sz - x' y' z' ) ; : translate ( x y z dx dy dz - x' y' z' ) ; : rotatex ( x y z alpha - x' y' z' ) ; : rotatey ( x y z alpha - x' y' z' ) ; : rotatez ( x y z alpha - x' y' z' ) ; : x x .5 - ; : y y .5 - ; : n 1 + 2 / ; : f ( - ) x y t cos * + 25 * sin x t cos * y - 25 * sin * n ; : depth f ; depth dup dup dup
DepthFieldShader2
DarkstarAG
'24 Apr 26
: x x .5 - ; : y y .5 - ; : n 1 + 2 / ; : f ( - ) x y t cos * + 25 * sin x t cos * y - 25 * sin * abs ; : depth f ; depth dup dup dup
DepthFieldShader
DarkstarAG
'24 Apr 26
: cell 64 * 1 mod ; : col0 y cell dup .5 < if .25 < if 1 else 25 then else .75 < if 7 else 31 then then ; : col1 y cell dup .5 < if .25 < if 17 else 9 then else .75 < if 23 else 15 then then ; : col2 y cell dup .5 < if .25 < if 5 else 29 then else .75 < if 3 else 27 then then ; : col3 y cell dup .5 < if .25 < if 21 else 13 then else .75 < if 19 else 11 then then ; x cell dup .5 < if .25 < if col0 else col1 then else .75 < if col2 else col3 then then 32 / x y bwsample < dup dup
Ordered
FSD
'24 Apr 26
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt 50000 / ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * cos .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 8 * sin .15 * .85 + .4 r 40 * sin 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
rotating
duriz
'24 Apr 26
\ 顯示 左下角 x0,y0 右上角 x1,y1 的矩形 : 矩 ( x0 y0 x1 y1 -- 矩形 ) y > ( x0 y0 x1 y1>y ) rot ( x0 x1 y1>y y0 ) y < ( x0 x1 y1>y y0<y ) * ( x0 x1 y1>y*y0<y ) >r ( x0 x1 ) x > ( x0 x1>x ) swap ( x1>x x0 ) x < ( x1>x x0>x ) * ( x1>x*x0>x ) r> ( x1>x*x0>x y1>y*y0<y ) * ( x1>x*x0>x*y1>y*y0<y ) ; \ 顯示 相反亮度 : 反 ( 亮度 -- 相反亮度 ) 0 max \ 若亮度小於0, 就將亮度變為0 1 min \ 若亮度大於1, 就將亮度變為1 1 swap - \ 亮度0的地方變為1, 1的地方變為0 ; \ 紅 橫矩形 .10 .20 .90 .80 矩 \ 綠 豎矩形 .20 .10 .80 .90 矩 \ 藍 框 .01 .01 .99 .99 矩 .09 .09 .91 .91 矩 反 *
矩形
陳爽
'24 Apr 26
: nip swap drop ; : 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : gap maxmin - ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : reddish 3dup 3max nip nip = ; : greenish 3dup 3max nip = nip ; : bluish 3dup 3max = nip nip ; : hue 3dup maxmin = if 3drop 0 else 3dup reddish if 3dup gap >r - nip r> / else 3dup greenish if 3dup gap >r nip swap - r> / 2 + else 3dup gap >r drop - r> / 4 + then then then ; : hsl 3dup lum >r 3dup sat >r hue r> r> ; x y sample hsl rot 6 / -rot
Hassle 2
FSD
'24 Apr 26
: nip swap drop ; : 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : reddish 3dup 3max nip nip = ; : greenish 3dup 3max nip = nip ; : bluish 3dup 3max = nip nip ; x y sample 3dup bluish >r 3dup greenish >r reddish r> r>
Reggie B.
FSD
'24 Apr 26
: 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : hsl 3dup lum >r 3dup sat >r 3drop .5 r> r> ; x y sample hsl
Hassle
FSD
'24 Apr 26
: 2drop drop drop ; : contrast .4 - 20 * negate exp 1 + 1 swap / ; : flicker t 16 * 1 mod .25 > .3 * .7 + ; : classic bwsample contrast flicker * dup dup ; x y classic
Silent
FSD
'24 Apr 26
Next