home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / system / lessons / version7 / learnit2.txt < prev    next >
Text File  |  1992-10-04  |  4KB  |  64 lines
  1. \X PAGE18\ON KEY 7181\ON KEY 14624
  2. \LOC 60,20\WID 520 DOTS CENTERED\TEXT PLANE=1111
  3. HERE'S HOW TO DRAW THE PISTON...
  4. \LOC 60,98\TEXT PLANE=1101\BLANK 60,100,600,192
  5. FIRST, WE'LL WORK ON LARGER VERSION, AND SHRINK IT DOWN LATER...
  6. \BLANK 6,140,634,449
  7. \READ PICEDIT7.PIC\SHOW 108,200,1\SHOW 108,200,2\SHOW 108,180,3\READ FRSTPIST.PIC
  8. \SHOW 220,240,1\LOC 340,247\WID 280 DOTS\TEXT PLANE=1001
  9. Draw the first frame, but don't draw the air and fuel mixture or the exhaust fumes and other details.  We'll add them later.
  10. \BLANK 56,45,633,96
  11. \CALL WAITANDRET\TEXT PLANE=1101
  12. Make 5 copies of the original frame... It's easy!
  13. Just use Function Key 3 to create another frame, and another... (You can automate creating multiple frames with the command \FRAME.)
  14. \LOC 340,247\WID 280 DOTS\TEXT PLANE=1001
  15. The frame should only be as big as you need to animate the image.  After pressing <F3> you can set the size with the mouse or cursor keys.
  16. \LINE 214,238,306,339,15,B\READ SMLPST16.PIC
  17. \SHOW 54,45,1\SHOW 78,45,1\SHOW 102,45,1\SHOW 126,45,1\SHOW 150,45,1
  18. \CALL WAITANDRET\X PAGE30\ON KEY 7181
  19. \TEXT PLANE=1101\BLANK 330,246,630,384\LOC 60,98\WIDTH 520 DOTS CENTERED
  20. To reposition the piston, save rectangles from the original frame and redisplay them lower and lower in the cylinder.
  21. \"
  22. \LINE 214,238,306,339,0,B\DRAW J285,276C14E8G8F8H8R76
  23. \LOC 368,267\TEXT PLANE=1100\DISPL "PISTON"\LINE 242,268,275,281,15,B
  24. \LOC 340,292\WID 280 DOTS\TEXT PLANE=1001
  25. Save a rectangle with <F2>, then repostion the cursor and get the rectangle with <F5>.
  26. \ROUNDS 1 SPEED 58\SHOW LOC=54,45 FRAMES=2,6 MOTION=24,0
  27. \CALL WAITANDRET\TEXT PLANE=1101
  28. After making the piston move down over 6 frames, make 6 more frames.  Just copy the original six frames...in reverse order to make the piston go up again!
  29. \"
  30. \LOC 340,292\WID 280 DOTS\TEXT PLANE=1111
  31. \"
  32. \"
  33. \"
  34. \"
  35. \ROUNDS 1 SPEED 58\SHOW LOC=174,45 FRAMES=6,1 MOTION=-24,0
  36. \"
  37. \CLEAR SHOW\CALL WAITANDRET\TEXT PLANE=1101\LOC 60,98
  38. Now draw the crankshaft and piston rod.  Each position is different and needs to be drawn separately.  The crankshaft makes two complete revolutions during our 24 frame animation.
  39. \"
  40. \DRAW J275,309C14E8G8F8H8R86\LOC 368,300\TEXT PLANE=1100\DISPLA "PISTON ROD"
  41. \DRAW J285,328E8G8F8H8R76\LOC 368,320\DISPLAY "CRANKSHAFT"
  42. \READ SMALLPST.PIC\ROUNDS 1 SPEED 58\SHOW LOC=54,45 FRAMES=2,12 MOTION=24,0
  43. \CALL WAITANDRET\TEXT PLANE=1101
  44. \LOC 60,98
  45. With half the frames partially finished, make 12 more frames.  The crankshaft, piston, and piston rod will be in the same positions as in the first 12, so you can just copy those frames.
  46. \ROUNDS 1 SPEED 58\SHOW LOC=54,45 FRAMES=2,24 MOTION=24,0
  47. \CALL WAITANDRET\TEXT PLANE=1101
  48. The main part of this animation is now complete.  You will need to draw the movement of the valves, and the air and fuel mixture and the exhaust to complete the image.
  49. \"
  50. \BLANK 278,264,515,350\READ FRSTPIST.PIC\SHOW 220,240,2
  51. \DRAW J 318,255C14E8G8F8H8R76\LOC 400,245\TEXT PLANE=1100\DISPLAY "AIR & FUEL"\LOC 410,265\DISPLAY "GOES IN HERE"
  52. \DRAW J205,255H8F8G8E8L20D30\LOC 150,285\DISPLAY "EXHAUST"\LOC 150,305\DISPLAY " COMES"\LOC 150,325\DISLAY "  OUT"\LOC 158,345\DISPLAY " HERE"
  53. \DRAW J251,240H8F8E8G8U17R16D17H8F8E8G8U17R76\LOC 350,215\DISPLAY "VALVES"
  54. \LOCATE 310,288\WIDTH 320 DOTS\TEXT PLANE=1011
  55. The positions of the valves, fuel and exhaust, and the moment of explosion, all need to be hand-drawn as appropriate for the actual stages of the 4-cycle piston engine.
  56. \CALL WAITANDRET\TEXT PLANE=1101
  57. \BLANK 147,213,630,428\BLANK 48,97,610,182\CLEAR SHOW\ROUNDS 1000 SPEED 30\BLANK 100,16,600,40
  58. \READ LEARNIT3.TXT
  59. \END
  60. \X WAITANDRET\LOC 60,450\WID 520 DOTS CENTERED\TEXT PLANE=0100\WAIT NOW 211
  61. Press <RETURN> to continue...
  62. \WAIT NOW -1\BLANK 6,450,634,474\LOC 60,98\RETURN
  63.  
  64.