home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tryqb / examples / cube.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1989-12-04  |  1.1 KB  |  15 lines
  1. APage
  2. VPage
  3. Angle
  4.  The macro string to draw the cube and paint its sides:
  5. BR30 BU25 C1 R54 U45 L54 D45 BE20 P1,1 G20 C2 G20"m
  6. R54 E20 L54 BD5 P2,2 U5 C4 G20 U45 E20 D45 BL5 P4,4"
  7.  Initialize values for the active and visual
  8.  pages, as well as the angle of rotation.u
  9.  Draw to the active page while showing
  10.  the visual page:v
  11.  Rotate the cube "Angle%" degrees:
  12.  Angle% is some multiple of 15 degrees:
  13.  Switch the active and visual pages:
  14.  A key press ends the program.
  15.