Let It Snow, Let It Snow, Let It...!

At last a lot of snow yesterday (Sunday, January 18th 2009) here...


Picture made by free programme below... you lucky humans!

rem Welcome to the world of Geesls

rem My own idea originally written in Amos Basic (for Amiga)

rem Written in yabasic (from http://www.yabasic.de ) ,free download!

rem Free of use (or no use)

rem Depending on the size of your screen...

open window 900,600

rem open "gsl105.jpg" for writing as #1

rem could not save file for display - worked in Amos Basic, though!

clear screen

q=0

for i=0 to 600

p1=0:p2=0

for j=0 to 900

a=cos((j+i)*pi/180):b=sin((j+i)*pi/180)

f=sin((j-i)*pi/180):g=cos((j-i)*pi/180)

rem Feel free to choose other (symmetric) values of x and y

x=a*g+f*f*g:y=f*b+a*a*

bc=sqr(x*x+y*y)*16.0

d=c

while (c>16.0)

c=c-8.0

wend

if (c>0.000 and c<0.025) then
coa=64:cob=127:coc=32
endif
if (c>0.025 and c<0.050) then
coa=32:cob=64:coc=127
endif
if (c>0.050 and c<0.075) then
coa=127:cob=32:coc=64
endif
if (c>0.075 and c<0.100) then
coa=32:cob=127:coc=64
endif
if (c>0.100 and c<0.125) then
coa=64:cob=32:coc=127
endif
if (c>0.125 and c<0.150) then
coa=127:cob=64:coc=32
endif
if (c>0.150 and c<0.200) then
coa=255:cob=127:coc=64
endif
if (c>0.200 and c<0.250) then
coa=255:cob=64:coc=127
endif
if (c>0.250 and c<0.300) then
coa=127:cob=64:coc=255
endif
if (c>0.300 and c<0.350) then
coa=127:cob=255:coc=64
endif
if (c>0.350 and c<0.400) then
coa=64:cob=255:coc=127
endif
if (c>0.400 and c<0.450) then
coa=64:cob=127:coc=255
endif
if (c>0.450 and c<0.500) then
coa=32:cob=64:coc=255
endif
if (c>0.500 and c<1.000) then
coa=255:cob=255:coc=255
endif
if (c>1.0 and c<2.0) then
coa=0:cob=0:coc=0
endif
if (c>2.0 and c<4.0) then
coa=255:cob=255:coc=127
endif
if (c>4.0 and c<6.0) then
coa=255:cob=127:coc=255
endif
if (c>6.0 and c<8.0) then
coa=127:cob=255:coc=255
endif
if (c>8.0 and c<10.0) then
coa=255:cob=127:coc=127
endif
if (c>10.0 and c<11.0) then
coa=127:cob=127:coc=64
endif
if (c>11.0 and c<12.0) then
coa=127:cob=64:coc=127
endif
if (c>12.0 and c<13.0) then
coa=64:cob=127:coc=127
endif
if (c>13.0 and c<14.0) then
coa=64:cob=255:coc=64
endif
if (c>14.0 and c<15.0) then
coa=64:cob=64:coc=255
endif
if (c>15.0 and c<16.0) then
coa=255:cob=64:coc=64
endif

rem colour choice - feel free to choose others to draw with!

colour coa,cob,coc

p2=p2+1

line p1,q+d to p2,q+d

rem print at (p1,p2);

rem didn't get a file for display

p1=p2

next j

q=q+1

next i

rem close #1 - that didn't work, you know...

rem A pity we can't save the pictures, otherwise OK

rem perhaps somebody will fix this in the future...?

rem save this to a " ".txt file

rem now you use "save as" to save it to a " ".yab file

rem run then the " ".yab file

rem use a camera to take a picture of window (like the one ahead of this)

rem import the picture to your computer