home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / MCAD254.ZIP / SPIRAL.MCD < prev    next >
Encoding:
Text File  |  1989-06-21  |  640 b   |  27 lines
  1. .MCD 25000 0
  2. .CMD SURFACEFORMAT rot=10 tilt=35 vScale=20 size=15,30
  3. .CMD SKETCHFORMAT mag=1.000000,1.000000 center=0.500000,0.500000 size=15,30 box=y
  4. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  5. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  6. .CMD SET ORIGIN 0
  7. .CMD SET TOL 0.001000
  8. .CMD MARGIN 0
  9. .CMD LINELENGTH 78
  10. .CMD SET PRNCOLWIDTH 8
  11. .CMD SET PRNPRECISION 4
  12. .TXT 0 5 1 8 
  13. a1,8,6,7
  14. SPIRAL
  15. .EQN 0 25 1 10 
  16. N:6*π
  17. .EQN 0 20 1 15 
  18. s:0,.1;N
  19. .EQN 2 -49 22 56 
  20. N&-N&s*sin(s){1,1,21,45,l}@N&-N&s*cos(s)
  21. .TXT 6 59 4 16 
  22. a4,16,14,54
  23. To see more or 
  24. fewer curls, 
  25. change the 
  26. value of N.
  27.