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