home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p038 / 6.ddi / LIB / J201.RHP < prev    next >
Encoding:
Text File  |  1991-08-03  |  737 b   |  34 lines
  1. 8,16,0,0,8,18,0,0,8,20,0,0,8,22,0,0,8,25,0,0
  2. 2,500,500,2,3.14159
  3. 1,A
  4. 200,200,1.573,200
  5. K=.7
  6. X1=X0-B2/2*K
  7. X2=X0+B2/2*K
  8. X=X0-B1*K
  9. Y1=Y0-B1/2*K
  10. Y2=Y0+B1/2*K
  11. Y3=Y0+(B1/2+A)*K
  12. 1,X1,Y1,X1,Y2,X1,Y1,X2,Y3
  13. 2,2,X2,Y3,X1,Y3,X1,Y3,X1,Y2
  14. 8,2,X0,Y3,X2,Y0
  15. 3,8,X+15,Y1+15,X+15,Y2-15,X1+15,Y1+15,X1+15,Y2-15,X1+15,Y3-15,X2-15,Y1+15,X2-15,Y2-15,X2-15,Y3-15
  16. 10,200,Y1,X1,Y1
  17. 10,200,Y2,X1,Y2
  18. 10,X1,Y1,X1,200
  19. 10,X2,Y3,X2,200
  20. 12,200,Y1+11,X+11,Y1+11
  21. 12,200,Y2-11,X+11,Y2-11
  22. 12,X1+11,Y1+11,X1+11,200
  23. 12,X2-11,Y1+11,X2-11,200
  24. 22,X+11,Y1+11,X2-11,Y2-11
  25. 22,X1+11,Y1+11,X2-11,Y3-11
  26. 10,X0,Y0,X,Y3
  27. 10,X,Y3,X-100,Y3
  28. 5,A,X-50,Y3+10,0,15
  29. 7,2,200,Y1,1.573,15,B2*K,A*K
  30. 7,1,X1,200,0,15,B1*K
  31. 7,1,X,800,0,15,X2-X
  32. 71,1,800,Y2,1.573,15,A*K,A
  33.  
  34.