glass '] GLASS DESIGN  1983  ,23658j\,8:236099\,502: ;x(x,y )=x*(0.5236 L+y*2*/segments) ;y(x,y )=x*(0.5236 L+y*2*/segments) (8a(x,y)=x*(0.5236 L+y*2*/lines) 28b(x,y)=x*(0.5236 L+y*2*/lines) <lines=6 Fsegments=12 Presolution=20 Zstep=2*/resolution dpaper=7 n ink=0 xpoints=0 +9900&: title page main menu paper:ink:paper: 6;"** GLASS DESIGN **" 5,0;"MENU.." '7,5;"1 Design new shape" !9 ,5;"2 View shape" V11 ,5;"3 Change resolution/number";12 ,7;"of vertical lines" $(14,5;"4 See instructions" .#16,5;"5 Set colours" 3(18,5;"6 Stop the program" 8#21,6;"press 1-6" B!z$=:z$<"1"z$>"6"1090B L z$="1"8000@:6000p `z$="2"points6000p e~Z$="2"POINTS:5,0;"You need to design a shape"''"before you can view it.":10 :9800H&:1000 jz$="3"2000 tz$="4"9000(# ~z$="5"3000  z$="6"  1000 change lines and points  !0,8;"GLASS DESIGN" 85,0;"The two variables you can changeare" B'"1 no of steps in horizontal direction now ";segments ?'"2 no of vertical lines now ";lines (''"press 1 2 or Q to quit"  *z$=:z$"1"z$"2"z$"Q"2060   z$="1"21004:2000  z$="2"2200:2000 * 4 >!"Change no of horizontal steps" H6''"A 6 steps"'"B 12 steps"'"C 18 steps"'"D 24 steps" R&''"press A,B,C or D" \!z$=:z$<"A"z$>"D"2140\ fQsegments=(6z$="A")+(12 z$="A")+(18z$="C")+(24z$="D") p)'"no of horizontal steps now ";segments z9800H&:  "Change no of vertical lines" 6''"A 6 steps"'"B 12 steps"'"C 18 steps"'"D 24 steps" &''"press A,B,C or D" !z$=:z$<"A"z$>"D"2240 Nlines=(6z$="A")+(12 z$="B")+(18z$="C")+(24z$="D") $'"no of vertical lines now ";lines 9800H&: change colours  #0,6;"Change colours" 15,0;"type in paper colour (0-7) "; !A$=:A$>"7"A$<"0"3025 a$:paper=a$ ""3035 210 ,0;"type in ink colour (0-7) "; !A$=:A$>"7"A$<"0"3050 a$:ink=a$ ink=paper17,0;1;"YOU CANT HAVE PAPER AND INK COLOURS THE SAME !! ":9800H&:3000 R17,0;"Paper ";paper;" ink ";ink:9800H&:23658j\,8  n odraw shape p z6;"GLASS DESIGN" 5,0;"What angle of tilt do you want to view at?"'"Type in any angle between 0 and 90 degrees and press ENTER" a$:a$=""6030 ^i1=0:i2=0:n=1̱a$:(a$(n)<"0"a$(n)>"9")a$(n)" "a$(n)"."6030 !a$(n)" "a$(n)"."i1=1 2a$(n)="."i2=i2+1:i2>16030 n:i16030 5angle=a$:angle<0angle>90Z6030 ''angle;" degrees" ""6060  9800H&  ,tiltx=6*(angle*2*/360h) ,tilty=6*(angle*2*/360h) n=1points g128+6*x(p(n,1),1),70F+tilty*y(p(n,1),1)+tiltx*p(n,2) m=2segments o6*(x(p(n,1),m)-x(p(n,1),m-1)),tilty*(y(p(n,1),m)-y(p(n,1),m-1)) m y6*(x(p(n,1),1)-x(p(n,1),segments)),tilty*(y(p(n,1),1)-y(p(n,1),segments)) n 8n=1lines Bm128+6*a(p(1,1),n),70F+tilty*b(p(1,1),n)+tiltx*p(1,2) Lm=2points V6*(a(p(m,1),n)-a(p(m-1,1),n)),tilty*(b(p(m,1),n)-b(p(m-1,1),n))+tiltx*((p(m,2)-p(m-1,2))) `m jn 9800H&: ?design side view @&:0,6;"** G L A S S **" J%0,38&:255,0 T+16,5;"t9876543210123456789t" ^Qn=012 :15-n,4-(n>9 );n;15-n,26;n:n h18,0;"Use cursor keys to move pointer P to plot next point Q to start again F to finish." p(12 ,2) points=0 x=0:y=0 %15-y,15+x;1;"" ""8210 z$=:z$=""8220 &lz$="8"z$="5"15-y,15+x;1;"":x=x+(z$="8"x<10 )-(z$="5"x>0):8200 0lz$="6"z$="7"15-y,15+x;1;"":y=y+(z$="7"y<12 )-(z$="6"y>0):8200 D'z$="P".1}L,24:8700! N&z$="Q".1}L,6:8000@ X$z$"F"points<12 8210 b[.1}L,32 :n=1820:n,0;" ";:n l:21,0;"press ENTER to see the 3-D shape" v""8310v =""8320   !%15-y,15+x;1;"" "Apoints=points+1:p(points,1)=x:p(points,2)=y "D21,15;points;" point"+("s"points>1);" plotted" "points>1n=-112:123{+8*n*p(points-1,1),524+8*p(points-1,2):8*n*(p(points,1)-p(points-1,1)),8*(p(points,2)-p(points-1,2)):n "$%15-y,15+x;1;"" ". #'instructions #( #2'0,6;"** GLASS DESIGN **" #!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookeglass XSUUUUUUUժժUUUBfZBBBBbRJFB