PC Pro 1998 November

home *** CD-ROM | disk | FTP | other *** search

/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / RevSurf.scr < prev next >

Wrap

Text File | 1998-03-18 | 10.3 KB | 855 lines

;--------------------------------------------- ;File name: RevSurf.SCR ;Purpose: Demonstrate revsurf ; ;Last Modified: 3/18/98 ;--------------------------------------------- CMDECHO 0 PICKBOX 3 APERTURE 10 ;settings erase all ; Turn blips off blipmode off ; Set the current layer to zero. layer s 0 ;--------------------------------------------- color bylayer ; Setting all the other necessary system variables: vpoint 0,0,1 ; Zoom to a window at least 100 x 100 (if it were square). zoom c 100,100 220 elev 0 0 gridmode 0 fillmode 1 snapmode 0 linetype s bylayer ; ---------------------------------------------- ; Draw a grid for reference ; ---------------------------------------------- layer m splinegrid c white line 0,0 0,250 250,250 250,0 0,0 line 0,50 250,50 line 0,100 250,100 line 0,150 250,150 line 50,0 50,250 line 100,0 100,250 line 150,0 150,250 line 0,200 250,200 line 0,200 250,200 line 200,250 200,0 layer s 0 ; this is where I zoom in grid zoom w -14,250 277,-2.84 layer m Revsurf c blue ; ---------------------------------------------- ; Revsurf using lines text 2.0000,202.0000 2.5 0 1) Revsurf w/ Lines line 24.0000,244.0000 23.0000,210.0000 u 24.0000,212.0000 30.0000,233.0000 38.0000,233.0000 38.0000,228.0000 28.0000,228.0000 28.0000,222.0000 34.0000,222.0000 34.0000,217.0000 28.0000,213.0000 revsurf 33.0000,233.0000 23.0000,235.0000 revsurf 36.0000,231.0000 37.0000,230.0000 revsurf 37.0000,231.0000 37.0000,230.0000 23.0000,228.0000 surftab1 surftab2 6 revsurf 27.0000,225.0000 23.0000,220.0000 revsurf 30.0000,222.0000 23.0000,216.0000 Revsurf 34.0000,220.0000 23.0000,218.0000 revsurf 29.0000,214.0000 23.0000,213.0000 ; ---------------------------------------------- ; Revsurf using Arcs text 52.0000,202.0000 2) Revsurf w/ ars arc 83.0000,241.0000 94.0000,233.0000 89.0000,211.0000 85.0000,232.0000 90.0000,225.0000 86.0000,219.0000 line 72.0000,246.0000 72.0000,209.0000 revsurf 89.0000,238.0000 71.0000,232.0000 revsurf 89.0000,225.0000 73.0000,224.0000 ; ---------------------------------------------- ; Revsurf with Circle text 102.0000,202.0000 3) Revsurf w/ circle circle 139.0000,240.0000 143.0000,237.0000 139.0000,216.0000 146.0000,214.0000 line 105.0000,229.0000 147.0000,229.0000 revsurf 141.0000,237.0000 128.0000,229.0000 revsurf 141.0000,209.0000 125.0000,229.0000 ; ---------------------------------------------- ; Revsurf with 2D pline text 152.0000,202.0000 4) Revsurf w/ 2Dpline pline 182.0000,245.0000 189.0000,241.0000 185.0000,238.0000 191.0000,235.0000 186.0000,232.0000 a 193.0000,227.0000 196.0000,225.0000 187.0000,217.0000 188.0000,212.0000 line 174.0000,248.0000 174.0000,211.0000 revsurf 187.0000,224.0000 174.0000,225.0000 ; ---------------------------------------------- ; Revsurf with 3Dpline text 202,202 5) Revsurf with 3Dpline 3dpoly 228,243 239,243 239,232 244,226,5 239,220,-5 234,214 line 223,248 223,210 revsurf 239,237 223,234 layer m with_arcs c red ; ---------------------------------------------- ; Revsurf Lines around 2Dpline text 1.6232,151.2344 2.5 0 6) Lines using 2Dpline pline 24.8331,194.1974 18.9072,184.8147 14.4627,176.9134 20.3887,169.5060 26.3146,174.4443 22.8578,180.3702 line 34.2159,192.2221 40.6356,185.8023 40.6356,176.9134 35.6973,176.9134 35.6973,170.9875 revsurf 36.6850,190.2468 21.3763,189.7530 revsurf 40.6356,181.3579 18.9072,185.8023 revsurf 36.1912,173.4566 18.4134,172.9628 ; ---------------------------------------------- ; Revsurf Arcs around plines text 51.4998,151.2344 7) Arcs with 2Dpline pline 54.4628,189.2591 63.3517,177.4073 a 75.2036,174.9381 88.0431,166.5430 arc 65.3270,188.2715 77.1789,190.2468 83.5987,184.3209 arc 67.7962,167.0369 74.2159,159.1356 82.6110,162.5924 revsurf 75.4299,190.7690 63.3517,177.4073 revsurf 73.2283,159.6295 84.5863,173.9505 ; ---------------------------------------------- ; Revsurf Circles around pline text 102.8580,151.2344 8) Circles with 2Dpline pline 102.3641,169.0122 104.8333,182.8394 108.7839,161.6048 111.2530,177.9011 115.2037,163.5801 116.6852,174.9381 122.6111,159.1356 126.0679,173.9505 130.0185,167.0369 133.9691,172.9628 140.3889,162.0986 144.8334,172.9628 circle 111.2530,189.2591 116.6852,186.7900 118.6605,188.2715 122.6111,188.2715 126.5617,189.2591 131.9938,189.2591 134.4630,188.2715 138.4136,188.2715 revsurf 108.7839,184.8147 105.8209,179.3826 revsurf 120.1420,185.8023 125.0802,167.5307 revsurf 135.9445,185.3085 138.9074,163.5801 ; ---------------------------------------------- ; Revsurf pline around pline text 151.7470,152.2220 9) 2Dpline w/2Dpline pline 185.3273,192.2221 193.7223,189.7530 188.2902,184.3209 193.7223,180.3702 185.8211,177.9011 194.2162,171.4813 186.8088,168.5184 195.2038,163.5801 pline 172.4878,193.2158 185.3273,187.7836 185.3273,170.9935 173.4754,165.5614 167.5495,172.9688 revsurf 191.2532,182.8394 183.3520,188.2715 ; ---------------------------------------------- ; 3Dpline with 2Dpline text 201.6236,152.2220 10) 3Dpline w/2Dpline pline 217.9199,190.7406 a s 219.4014,162.0986 205.0804,159.6295 3dpoly 233.7224,183.3332 233.7224,175.9258 242,174,5 235,168,-5 230.0000,168.0000 revsurf 234.0000,181.0000 224.0000,168.0000 layer m 3Dpoly c green ; ---------------------------------------------- ; Revsurf lines with 3Dpoly text 1.0000,102.0000 11) Lines with 3Dpoly 3dpoly 17.0000,138.0000 23,130,5 16,124,-5 20.0000,114.0000 copy 19.0000,127.0000 m 19.0000,127.0000 75.0000,127.0000 128.0000,127.0000 177.0000,127.0000 223.0000,127.0000 line 26.0000,137.0000 34.0000,137.0000 34.0000,132.0000 28.0000,132.0000 28.0000,126.0000 37.0000,126.0000 37.0000,120.0000 28.0000,115.0000 zoom w 12.8004,111.537 38.5967,139.606 revsurf 30.0000,137.0000 20.0000,134.0000 revsurf 34.0000,134.5000 20.0000,134.0000 revsurf 31.0000,132.0000 20.0000,134.0000 revsurf 28.0000,129.0000 20.0000,134.0000 revsurf 32.5000,126.0000 18.0000,119.0000 revsurf 37.0000,123.0000 18.0000,119.0000 revsurf 32.5000,117.5000 18.0000,119.0000 zoom p ; ---------------------------------------------- ; Revsurf arcs with 3Dpoly text 51.0000,101.0000 12) Arcs with 3Dpoly arc 84.0000,139.0000 89.0000,136.0000 87.0000,131.0000 85,124,5 90.0000,118.0000 84.0000,112.0000 revsurf 87.0000,135.0000 88.0000,135.0000 76.0000,134.0000 89.0000,119.0000 73.0000,119.0000 ; ---------------------------------------------- ; Revsurf circles with 3Dpoly text 103.0000,102.0000 13) Circles with 3Dpoly circle 134.0000,137.0000 139.0000,136.0000 circle 129,121,5 135.0000,121.0000 revsurf 137.0000,141.0000 131.0000,130.0000 revsurf 135.0000,121.0000 126.0000,121.0000 ; ---------------------------------------------- ; Revsurf 2dpline with 3Dpoly text 153.0000,102.0000 14) 2Dpline with 3Dpline pline 180.0000,145.0000 186.0000,144.0000 187.0000,139.0000 182.0000,139.0000 182.0000,135.0000 186.0000,135.0000 183,125,5 187.0000,122.0000 187.0000,116.0000 182.0000,112.0000 revsurf 183.0000,140.0000 179.0000,133.0000 revsurf 187.0000,121.0000 176.0000,116.0000 ; ---------------------------------------------- ; Revsurf 3Dpoly with 3Dpoly text 203.0000,102.0000 15) 3Dpline with 3Dpline 3dpoly 227.0000,141.0000 237.0000,141.0000 237,133,5 232,130,-5 236.0000,122.0000 revsurf 233.0000,129.0000 222.0000,126.0000 layer m angles c yellow ; ---------------------------------------------- ; Positive start angle text 1.5805,51.4025 2.5 0 16) Positive start angle line 19.9529,93.3967 19.9529,61.9010 pline 24.7648,92.9592 32.6387,92.9592 32.6387,87.7100 26.0771,87.7100 26.0771,80.7109 31.3264,80.7109 31.3264,73.7119 25.2022,73.7119 revsurf 29.3579,87.7100 19.9529,83.7730 45 ; ---------------------------------------------- ; Positive start angle, positive angle text 51.4486,50.9651 17) + 45, +100 line 72.8831,95.5839 72.8831,65.8380 pline 77.0000,93.0000 85.0000,93.0000 85.0000,85.0000 a 91.0000,81.0000 l 91.0000,69.0000 revsurf 85.0000,89.0000 73.0000,85.0000 45 100 ; ---------------------------------------------- ; Positive start, negative angle text 101.0000,51.0000 18) + 45, -90 line 108.0000,79.0000 143.0000,79.0000 arc 113.0000,90.0000 122.0000,96.0000 132.0000,91.0000 revsurf 127.0000,95.0000 127.0000,79.0000 45 -90 ; ---------------------------------------------- ; Negative start, default angle text 151.0000,51.0000 19) - 45, default line 161.0000,72.0000 186.0000,90.0000 pline 161.0000,80.0000 a 165.0000,89.0000 175.0000,91.0000 180.0000,93.0000 revsurf 168.0000,93.0000 173.0000,81.0000 -45 text 202.0000,51.0000 20) -45, +100 line 208.0000,66.0000 234.0000,87.0000 pline 206.0000,72.0000 a 207.0000,84.0000 205.0000,80.0000 220.0000,85.0000 229.0000,87.0000 revsurf 215.0000,82.0000 220.0000,76.0000 -45 100 ; ---------------------------------------------- ; Negative start, negative angle text 2.0000,2.0000 21) - 45, -90 line 35.0000,16.0000 15.0000,37.0000 pline 24.0000,40.0000 38.0000,42.0000 38.0000,23.0000 30.0000,45.0000 revsurf 33.0000,35.0000 23.0000,28.0000 -45 -90 layer m 3Dpoints c magenta ; ---------------------------------------------- ; Use a 3D axis line text 52.0000,2.0000 22) 3D axis line 75,45,5 75,14 pline 83.0000,41.0000 87.0000,33.0000 81.0000,27.0000 89.0000,20.0000 revsurf 86.0000,33.0000 76.0000,32.0000 45 90 ; ---------------------------------------------- ; 3D axis/3dpline text 102.0000,2.0000 23) 3D axis/3dpline line 107,42 134,16,10 3dpoly 120,43,5 132,39,-10 134.0000,27.0000 revsurf 131.0000,39.0000 120.0000,29.0000 ; ---------------------------------------------- ;Now for the grand finale TEXT -39.8278,152 3 0 Done! zoom e ; ----------------------------------------------