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
