home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / graph-3d.zip / GRAPH01.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  1.2 KB  |  41 lines
  1. 0 dim a(32):key off:screen 2
  2. 40 cls:locate 10,30:input "Line density (MAX=8)";ld$:ld=val(ld$):if ld=0 then ld=3
  3. 55 locate 12,33:input "Dot density";dd$:dd=val(DD$):if dd=0 then dd=32
  4. 65 locate 14,30:print"Seclect Viewing Angle":print tab(30)"   0 degrees is from overheard":print tab(30)"  90 degrees is from the side"
  5. 66 locate 18,30:input "Angle in degrees";a$:a=val(a$):if a=0 then a=75
  6. 90 a=a*3.14159/180:s=sin(a):c=cos(a):cls
  7. 110 for i=-4*dd to 0
  8. 115 max=-200:min=200:x=i/dd:x1=int(30*x+.5)
  9. 120 nl=int(sqr(16-x*x)*ld)
  10. 125 for k=-nl to 0
  11. 130 y=k/ld
  12. 135 gosub 1000
  13. 140 a(-k)=z
  14. 145 gosub 2000
  15. 150 next k
  16. 155 gosub 3000
  17. 160 next i
  18. 175 sound 1000,2:t=timer:while t+1.5>timer:wend
  19. 185 if inkey$="" then 175
  20. 190 locate 25,1:print"Press <R>epeat or <E>xit";
  21. 195 a$=inkey$:if a$="R" or A$="r" then 40 else if a$<>"E" and a$<>"e" then 195
  22. 200 end
  23. 1000 r=.75*sqr(x*x+y*y)
  24. 1010 z=1+cos(r)-cos(2*r)/2
  25. 1020 return
  26. 2000 y=int(30*(c*y+s*z)+.5)
  27. 2005 if m=4 then 2050
  28. 2010 if y<min then min=y else 2050
  29. 2030 pset(320+x1,100-y)
  30. 2040 pset(320-x1,100-y)
  31. 2050 if y>max then max=y else return
  32. 2060 pset(320+x1,100-y)
  33. 2070 pset(320-x1,100-y)
  34. 2090 return
  35. 3000 for k=0 to nl
  36. 3010 z=a(k)
  37. 3020 y=k/ld
  38. 3040 gosub 2000
  39. 3050 next k
  40. 3060 return
  41.