home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / DESIGCAD / DESCAD7P / BASICCAD / DEMO.BS_ / DEMO.bin
Encoding:
Text File  |  1994-08-05  |  2.5 KB  |  130 lines
  1. '==================================================================
  2. 'DEMO.BSC demonstrates many DesignCAD commands
  3. '==================================================================
  4.  
  5. SetPoint "Set 4 points.", 4
  6. if sys(1) <> 4 then end
  7.  
  8. Dim X(5), Y(5)
  9.  
  10. for I = 1 to 4
  11.   PointVal X(I), Y(I), I
  12.   next I
  13.  
  14. >Line
  15.  
  16. 'Select the line in Point Select Mode
  17. >PresetPoint 1
  18. >PointXY 1, [X(1), Y(1)]
  19. >Select-2 0
  20.  
  21. '====================================================================
  22. 'Test PointMove Command
  23. SetPoint "Set a point for the new location for the 1st end-point.", 1
  24. if sys(1) <> 1 then End
  25.  
  26. PointVal XP, YP, 1
  27.  
  28. >DeleteLast
  29.  
  30. IPT = 1
  31. CMD$ = "PointMove"
  32. GoSub Pt2Cmd
  33.  
  34. '====================================================================
  35. 'Test Extend Command
  36. SetPoint "Set a point for extending the last section of the line.", 1
  37. if sys(1) <> 1 then End
  38.  
  39. PointVal XP, YP, 1
  40.  
  41. >DeleteLast
  42.  
  43. IPT = 4
  44. CMD$ = "Extend"
  45. GoSub Pt2Cmd
  46.  
  47. '====================================================================
  48. 'Test Bend Command
  49. SetPoint "Set a point for moving the mid-point of the middle section", 1
  50. if sys(1) <> 1 then End
  51.  
  52. PointVal XP, YP, 1
  53.  
  54. >DeleteLast
  55.  
  56. X(5) = (X(2) + X(3)) / 2
  57. Y(5) = (Y(2) + Y(3)) / 2
  58. IPT = 5
  59. CMD$ = "Bend"
  60. GoSub Pt2Cmd
  61.  
  62. '====================================================================
  63. 'Test CutLine Command
  64. SetPoint "Set a point at the location to be cut.", 1
  65. if sys(1) <> 1 then End
  66.  
  67. PointVal XP, YP, 1
  68.  
  69. >DeleteLast
  70.  
  71. >PresetPoint 1
  72. >LineSnap [XP, YP]
  73.  
  74. PointVal XP, YP, 1
  75.  
  76. >DeleteLast
  77.  
  78. CMD$ = "CutLine"
  79. GoSub Pt1Cmd
  80.  
  81. '====================================================================
  82. 'Test DeletePoint Command
  83. >PresetPoint 2
  84. >PointXY 1, [XP, YP]
  85. >PointRelative 1, 10, 10
  86. >Box
  87.  
  88. 'Select the line in Point Select Mode
  89. >PresetPoint 1
  90. >PointXY 1, [XP + 10, YP + 10]
  91. >Select-2 0
  92.  
  93. SetPoint "Select the point on the box to be deleted.", 1
  94. if sys(1) <> 1 then End
  95.  
  96. PointVal XP, YP, 1
  97.  
  98. >DeleteLast
  99.  
  100. >PresetPoint 1
  101. >Gravity [XP, YP]
  102.  
  103. PointVal XP, YP, 1
  104.  
  105. >DeleteLast
  106.  
  107. CMD$ = "DeletePoint"
  108. GoSub Pt1Cmd
  109.  
  110. '====================================================================
  111. 'Test SelectRotate Command
  112. >SelectRotate 90, [XP, YP]
  113.  
  114. End
  115.  
  116. '====================================================================
  117. Pt1Cmd:
  118.   >PresetPoint 1
  119.   >PointXY 1, [XP, YP]
  120.   >[CMD$]
  121.   return
  122.  
  123. '====================================================================
  124. Pt2Cmd:
  125.   >PresetPoint 2
  126.   >PointXY 1, [X(IPT), Y(IPT)]
  127.   >PointXY 1, [XP, YP]
  128.   >[CMD$]
  129.   Return
  130.