home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / INNER.BAS < prev    next >
BASIC Source File  |  1987-03-26  |  885b  |  48 lines
  1. 'Inner View by Jeff Bretz, John Craig
  2. 'Converted to Quickbasic 2.01 By Dennis Dreyer
  3. 'INNER.BAS
  4.  
  5. CLS
  6. Locate 5,20,0:Print "A Demo of window & view statements."
  7. Locate 8,27:color 4,0,6:Print " In Quickbasic 2.01"
  8. Locate 9,17:print "By Jeff Bretz, John Craig, Dennis Dreyer"
  9. For W= 1 to 8000:next
  10.  
  11.  
  12. Screen 2:cls
  13. window screen (0,0)-(639,199)
  14.  
  15. view (1,1)-(638,198),,1
  16. gosub drawview
  17.  
  18. view(160,50)-(480,150),,1
  19.  
  20. gosub drawview
  21.  
  22. view (240,75)-(400,125),,1
  23.  
  24. gosub drawview
  25.  
  26. QUIT:
  27. locate 20,30:Print "Press any key to Quit!"
  28. IF INKEY$ <>""then end else goto quit
  29.  
  30.  
  31. DRAWVIEW:
  32. cls:n=11:angle=360/n:radians=angle/57.29578
  33.  
  34. for x= 1 to N
  35.     for y=1 to N
  36.       Z=Z+1:if Z mod 4 = 0 then z=z+1
  37.       sx=sin(x*radians)*225+320
  38.       sy=sin(y*radians)*225+320
  39.       cx=cos(x*radians)*95+100
  40.       cy=cos(y*radians)*95+100
  41.       line (sy,cy)-(sx,cx)
  42.     next y
  43. next X
  44.  
  45. return
  46.  
  47.  
  48.