home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / demo / wgelectr / cameval / cam31 / misc.z / DEMOSCR.SCR < prev    next >
Text File  |  1995-12-15  |  18KB  |  801 lines
  1. ; Advanced CAM Technologies Macro Revision: 1.0
  2. ; Demo feature script
  3.  
  4. 100
  5. setnewfile@
  6. setopenfile@ ".\demoscr\act.pcb"
  7. view_all@
  8. delay 3000
  9.  
  10. setnewfile@
  11. ;SETUP
  12. gosub 500
  13.  
  14. setdcode@ 100
  15. addtext@ -425.,100.,452.2686,-200.,"        Bringing\Design & Manufacturing\     together with..."
  16. end@
  17. view_all@
  18. delay 3000
  19. undo@
  20. addtext@ -300.,175.,395.4513,175.,"The CAM350 Family\    Version 3.0"
  21. end@
  22. view_all@
  23. delay 3000
  24.  
  25. setnewfile@
  26. ;SETUP
  27. gosub 500
  28.  
  29. ; DRAW BOX
  30. gosub 510
  31.  
  32. setdcode@ 100
  33. textheight@ 50
  34. add_text@
  35. addtext@ -775.,550.,-456.8197,-50.,"Powerful CAM:\Robust photoplotter\support:\274, 274X\Fire 9xxx and\Barco DPF."
  36. delay 3000
  37. addtext@ -.015,-.1,.675,-.3,"With step & repeat\and raster polygons..."
  38. end@
  39. delay 3000
  40. textjust@ 17
  41. textfitting@ 0
  42. textcspace@ 0.0000
  43. textlspace@ 25.0000
  44. undo@
  45. undo@
  46. textjust@ 20
  47. textheight@ 100
  48. delay 1000
  49. addtext@ -0.0,643.4000,-38.5000,543.4000,"Version 3.0 has:"
  50. end@
  51. delay 2000
  52.  
  53. textheight@ 50
  54. textjust@ 17
  55. textfitting@ 0
  56. textcspace@ 0.0000
  57. textlspace@ 25.0000
  58. addtext@ -627.1000,507.4000,-627.1000,407.4000,"OPTIONAL DXF IMPORT/EXPORT:"
  59. delay 2000
  60. addtext@ -600.,394.9000,647.8719,394.9000,"* Supports any DXF file."
  61. delay 1500
  62. addtext@ -600.,270.7000,-317.3886,170.7000,"* Builds aperture table automatically,\  can even build customs too."
  63. delay 1500
  64. addtext@ -600.,63.,517.4113,63.6000,"* Bi-Directional support."
  65. delay 1500
  66. addtext@ -600.,-22.,116.5020,-99.1000,"* Builds part footprints for CAM350."
  67. DELAY 1500
  68. addtext@ -600.,-173.0000,504.7484,-173.0000,"FAST, ACCURATE, and EASY-TO-USE!"
  69. delay 3000
  70. undo@
  71. undo@
  72. undo@
  73. undo@
  74. undo@
  75. undo@
  76. setopenfile@ ".\demoscr\mtrcycle.pcb"
  77. delay 3000
  78. view_zoomin@
  79. axy@ 400,10900
  80. delay 3000
  81.  
  82. setnewfile@
  83. ;SETUP
  84. gosub 500
  85.  
  86. ;DRAW BOX
  87. gosub 510
  88.  
  89. textjust@ 20
  90. textheight@ 100
  91. delay 1000
  92. addtext@ -0.0,643.4000,-38.5000,543.4000,"Version 3.0 has:"
  93. end@
  94. delay 3000
  95. textheight@ 50
  96. textjust@ 17
  97. textfitting@ 0
  98. textcspace@ 0.0000
  99. textlspace@ 25.0000
  100. addtext@ -627.1000,507.4000,-627.1000,407.4000,"INFINITE NUMBER OF LAYERS:"
  101. delay 2000
  102. addtext@ -600.,394.9000,647.8719,394.9000,"* Really, its true!"
  103. delay 1500
  104. addtext@ -600.,270.7000,-317.3886,170.7000,"Lets quickly add 25 layers..."
  105. delay 1500
  106. edit_layer@ 2,4,4,4,0,"Layer_3"
  107. edit_layer@ 3,5,5,4,0,"Layer_4"
  108. edit_layer@ 4,6,6,4,0,"Layer_5"
  109. edit_layer@ 5,7,7,4,0,"Layer_6"
  110. edit_layer@ 6,8,8,4,0,"Layer_7"
  111. edit_layer@ 7,9,9,4,0,"Layer_8"
  112. edit_layer@ 8,10,10,4,0,"Layer_9"
  113. edit_layer@ 9,11,11,4,0,"Layer_10"
  114. edit_layer@ 10,12,12,4,0,"Layer_11"
  115. edit_layer@ 11,13,13,4,0,"Layer_12"
  116. edit_layer@ 12,14,14,4,0,"Layer_13"
  117. edit_layer@ 13,15,15,4,0,"Layer_14"
  118. edit_layer@ 14,2,2,4,0,"Layer_15"
  119. edit_layer@ 15,3,3,4,0,"Layer_16"
  120. edit_layer@ 16,4,4,4,0,"Layer_17"
  121. edit_layer@ 17,5,5,4,0,"Layer_18"
  122. edit_layer@ 18,6,6,4,0,"Layer_19"
  123. edit_layer@ 19,7,7,4,0,"Layer_20"
  124. edit_layer@ 20,8,8,4,0,"Layer_21"
  125. edit_layer@ 21,9,9,4,0,"Layer_22"
  126. edit_layer@ 22,10,10,4,0,"Layer_23"
  127. edit_layer@ 23,11,11,4,0,"Layer_24"
  128. edit_layer@ 24,12,12,4,0,"Layer_25"
  129. edit_layer@ 25,13,13,4,0,"Layer_26"
  130. edit_layer@ 26,14,14,4,0,"Layer_27"
  131. setlayer@ 27
  132. addtext@ -600.,63.,517.4113,63.6000,"Pretty simple -- right!"
  133. delay 3000
  134. addtext@ -600.,-22.,116.5020,-99.1000,"Now lets remove them ..."
  135. DELAY 3000
  136. edit_removelyr@ 2
  137. edit_removelyr@ 3
  138. edit_removelyr@ 4
  139. edit_removelyr@ 5
  140. edit_removelyr@ 6
  141. edit_removelyr@ 7
  142. edit_removelyr@ 8
  143. edit_removelyr@ 9
  144. edit_removelyr@ 10
  145. edit_removelyr@ 11
  146. edit_removelyr@ 12
  147. edit_removelyr@ 13
  148. edit_removelyr@ 14
  149. edit_removelyr@ 15
  150. edit_removelyr@ 16
  151. edit_removelyr@ 17
  152. edit_removelyr@ 18
  153. edit_removelyr@ 19
  154. edit_removelyr@ 20
  155. edit_removelyr@ 21
  156. edit_removelyr@ 22
  157. edit_removelyr@ 23
  158. edit_removelyr@ 24
  159. edit_removelyr@ 25
  160. edit_removelyr@ 26
  161. edit_removelyr@ 27
  162. setlayer@ 2
  163. addtext@ -600.,-173.0000,504.7484,-173.0000,"Never run out of layers again!"
  164. delay 3000
  165.  
  166. setnewfile@
  167. ;SETUP
  168. gosub 500
  169.  
  170. ;DRAW BOX
  171. gosub 510
  172.  
  173. textjust@ 20
  174. textheight@ 100
  175. delay 1000
  176. addtext@ -0.0,643.4000,-38.5000,543.4000,"Version 3.0 has:"
  177. end@
  178. delay 2000
  179. textheight@ 50
  180. textjust@ 17
  181. textfitting@ 0
  182. textcspace@ 0.0000
  183. textlspace@ 25.0000
  184. addtext@ -627.1000,507.4000,-627.1000,407.4000,"AUTOIMPORT:"
  185. delay 2000
  186. addtext@ -600.,394.9000,647.8719,394.9000,"* Automatically detects file formats."
  187. delay 1500
  188. addtext@ -600.,270.7000,-317.3886,170.7000,"* Automatically converts aperture\  tables."
  189. delay 1500
  190. addtext@ -600.,63.,517.4113,63.6000,"Read in all your files in seconds !"
  191. delay 1500
  192. addtext@ -600.,-22.,116.5020,-99.1000,"Save lots of time ..."
  193. DELAY 1500
  194. addtext@ -600.,-173.0000,504.7484,-173.0000,"NO MORE TRIAL AND ERROR ..."
  195. delay 3000
  196.  
  197.  
  198. setnewfile@
  199. setopenfile@ ".\demoscr\fonts.pcb"
  200. ;SETUP
  201. gosub 500
  202.  
  203. ;DRAW BOX
  204. gosub 510
  205.  
  206. textjust@ 20
  207. textheight@ 100
  208. delay 1000
  209. addtext@ -0.0,643.4000,-38.5000,543.4000,"Version 3.0 has:"
  210. end@
  211. delay 2000
  212. textheight@ 50
  213. textjust@ 17
  214. textfitting@ 0
  215. textcspace@ 0.0000
  216. textlspace@ 25.0000
  217. axy@ -600.0000,500.0000
  218. add_text@
  219. addtext@ -600.0000,500.0000,718.1528,500.0000,"TRUETYPE FONT SUPPORT:"
  220. delay 2000
  221. addtext@ -600.0000,300.0000,738.6069,300.0000,"* Use any Windows Truetype font"
  222. delay 1500
  223. addtext@ -600.0000,200.0000,-79.5569,200.0000,"* Plot them to film using RS274-X,\  Fire9XXX, or Barco DPF"
  224. delay 1500
  225. textheight@ 75.0000
  226. textfont@ "WINGDING.TTF"
  227. textlspace@ 10.0000
  228. addtext@ -700.0000,-25.0000,741.9735,-85.0000,"ABCDEFGHIJKLMNOPQRSTUVWXYZ\1234567890!@#$%^&*()-"
  229. textfont@ "BRUSHSCI.TTF"
  230. textheight@ 100.0000
  231. addtext@ -350.0000,-250.0000,405.7913,-250.0000,"Imagine the possibilities!"
  232. back@
  233. delay 3000
  234. undo@
  235. undo@
  236. undo@
  237. undo@
  238. undo@
  239. delay 1000
  240. textfont@ "SIMPLE.EFN"
  241. textheight@ 50.0000
  242. textlspace@ 25.0000
  243. addtext@ -600.0000,500.0000,447.7042,500.0000,"UNIVERSAL APERTURE CONVERTER:"
  244. delay 2000
  245. addtext@ -600.0000,300.0000,456.7949,300.0000,"* Totally user programmable."
  246. delay 1500
  247. addtext@ -600.0000,200.0000,-600.0000,0.0000,"* Teach the system to read your\  files."
  248. delay 1500
  249. addtext@ -600.0000,0.0000,602.2462,0.0000,"* Uses Aperture Rule Files (.ARL)"
  250. delay 1500
  251. addtext@ -600.0000,-100.0000,374.9785,-100.0000,"* Also used by AutoImport."
  252. delay 3000
  253. undo@
  254. undo@
  255. undo@
  256. undo@
  257. undo@
  258. delay 1000
  259. addtext@ -600.0000,500.0000,86.3485,500.0000,"INTELLIGENT PANELIZATION:"
  260. delay 2000
  261. addtext@ -600.0000,300.0000,249.9813,300.0000,"* Allows Repanelization."
  262. delay 1500
  263. addtext@ -600.0000,200.0000,254.5266,200.0000,"* Allows Unpanelization."
  264. delay 1500
  265. addtext@ -600.0000,100.0000,724.9708,100.0000,"* Change parameters after the fact."
  266. delay 1500
  267. addtext@ -600.0000,0.0000,227.2545,0.0000,"* Enter values directly."
  268. delay 1500
  269. addtext@ -600.0000,-100.0000,509.0665,-100.0000,"* Supports merged databases."
  270. delay 3000
  271. undo@
  272. undo@
  273. undo@
  274. undo@
  275. undo@
  276. undo@
  277. delay 1000
  278. addtext@ -600.0000,500.0000,147.7108,500.0000,"PLATFORM INDEPENDENCE:"
  279. delay 2000
  280. addtext@ -600.0000,300.0000,181.8009,300.0000,"* Single source code."
  281. delay 1500
  282. addtext@ -600.0000,200.0000,63.6217,200.0000,"* PC, HP, SUN or IBM."
  283. delay 1500
  284. addtext@ -600.0000,100.0000,-161.3733,100.0000,"* Windows or OSF Motif."
  285. delay 1500
  286. addtext@ -600.0000,0.0000,368.1605,0.0000,"* Indentical user interface."
  287. delay 1500
  288. addtext@ -600.0000,-100.0000,774.9697,-100.0000,"* All platforms updated automatically."
  289. delay 3000
  290. undo@
  291. undo@
  292. undo@
  293. undo@
  294. undo@
  295. undo@
  296. delay 1000
  297. addtext@ -600.0000,500.0000,718.1528,500.0000,"INTELLIGENT DRAW TO FLASH:"
  298. delay 2000
  299. addtext@ -600.0000,300.0000,738.6069,300.0000,"* Converts entire board in one pass."
  300. delay 1500
  301. addtext@ -600.0000,200.0000,-79.5569,200.0000,"* Much faster."
  302. delay 1500
  303. addtext@ -600.0000,100.0000,206.8004,0.0000,"* Handles all shapes, even pads \  made up of flashes."
  304. delay 3000
  305. undo@
  306. undo@
  307. undo@
  308. undo@
  309. delay 1000
  310. addtext@ -600.0000,500.0000,718.1528,500.0000,"NEW, LAYER BAR:"
  311. delay 2000
  312. addtext@ -600.0000,300.0000,738.6069,300.0000,"* Displays Draw & Flash Colors"
  313. delay 1500
  314. addtext@ -600.0000,200.0000,-79.5569,200.0000,"* Simple and Fast"
  315. delay 1500
  316. addtext@ -600.0000,100.0000,206.8004,0.0000,"* Add Layers at the click of a button"
  317. delay 3000
  318. undo@
  319. undo@
  320. undo@
  321. undo@
  322. delay 1000
  323. addtext@ -600.0000,500.0000,718.1528,500.0000,"NEW, DRILL TOOL REORDER:"
  324. delay 2000
  325. addtext@ -600.0000,300.0000,738.6069,300.0000,"* User can control tool order"
  326. delay 1500
  327. addtext@ -600.0000,200.0000,-79.5569,200.0000,"* Simple and Fast"
  328. delay 3000
  329. undo@
  330. undo@
  331. undo@
  332. delay 1000
  333. addtext@ -600.0000,500.0000,718.1528,500.0000,"USER DEFINABLE TEARDROPS:"
  334. delay 2000
  335. addtext@ -600.0000,300.0000,738.6069,300.0000,"* Set any line length"
  336. delay 1500
  337. addtext@ -600.0000,200.0000,-79.5569,200.0000,"* Runs DRC automatically"
  338. delay 1500
  339. addtext@ -600.0000,100.0000,206.8004,0.0000,"* Will not create DRC violation"
  340. delay 3000
  341. undo@
  342. undo@
  343. undo@
  344. undo@
  345.  
  346. setopenfile@ ".\demoscr\demodum.pcb"
  347. ;SETUP
  348. gosub 500
  349. layer_alloff@ 1
  350. setlayer@ 1
  351. setlayer@ 2
  352. end@
  353. view_window@
  354. axy@ 1450.,4625.
  355. axy@ 3000.,3250.
  356. add_text@
  357. setdcode@ 100
  358. textheight@ 50.
  359. addtext@ 1600.,4450.,2181.8154,4300.,"Powerful Polygon\Pouring."
  360. back@
  361. back@
  362. delay 3000
  363. undo@
  364. setlayer@ 1
  365. polylayer@ 1
  366. polyfilldcode@ 10
  367. polyclearance@ 20.
  368. polyfillpattern@ "SOLID"
  369. polyfillmethod@ "RASTER"
  370. polyaddtype@ "DRAWBORDER"
  371. add_pouring@
  372. axy@ 1650.,3700.
  373. axy@ 1650.,4475.
  374. axy@ 2600.,4475.
  375. axy@ 2600.,3700.
  376. back@
  377. delay 3000
  378. undo@
  379. end@
  380. add_text@
  381. end@
  382. setlayer@ 2
  383. textheight@ 50.
  384. add_text@
  385. addtext@ 1625.,4525.,2197.7213,4275.,"Raster polygons are\fast & keep the file\size small."
  386. delay 3000
  387. undo@
  388. addtext@ 1600.,4500.,2496.5815,4375.,"But polygons can have\patterns as well:"
  389. back@
  390. back@
  391. delay 3000
  392. undo@
  393. setlayer@ 1
  394. polylayer@ 1
  395. polyfilldcode@ 10
  396. polyclearance@ 20.
  397. polyfillpattern@ "HATCHED"
  398. polypatdcode@ 0,10
  399. polypatangle@ 0,0
  400. polypatstep@ 0,40.
  401. polypatdcode@ 1,10
  402. polypatangle@ 1,45
  403. polypatstep@ 1,40.
  404. polypatdcode@ 2,10
  405. polypatangle@ 2,90
  406. polypatstep@ 2,40.
  407. polyfillmethod@ "VECTOR"
  408. polyaddtype@ "DRAWBORDER"
  409. add_pouring@
  410. axy@ 1650.,3700.
  411. axy@ 1650.,4475.
  412. axy@ 2600.,4475.
  413. axy@ 2600.,3700.
  414. back@
  415. back@
  416. delay 3000
  417. end@
  418.  
  419. layer_alloff@ 0
  420. Print_msg "Step & Repeat makes panelization FAST !!!"
  421. end@
  422. delay 3000
  423. close_msg
  424. panel_spread@ 0,4
  425. panel_spacing@ 500.,500.,500.,500.,0
  426. panel_dimension@ 64000.,48000.
  427. panel_outline@ 0,10,3,0.
  428. panelization@
  429. back@
  430. delay 3000
  431. end@
  432.  
  433. setnewfile@ 
  434. setopenfile@ ".\demoscr\demodum.pcb"
  435. ;SETUP
  436. gosub 500
  437. delay 1000
  438. textheight@ 50.
  439. print_msg "Lets create some drill data and then sort across the panel."
  440. delay 3000
  441. close_msg
  442. util_drill_create@
  443. drill_create@ 4,"drill_5.dpt"
  444. panel_spread@ 0,5
  445. panel_spacing@ 500.,500.,500.,500.,0
  446. panel_dimension@ 64000.,48000.
  447. panel_outline@ 0,10,3,0.
  448. panelization@ 
  449. drill_firstlast@ 0
  450. drill_sort_set@ 0,10,500.,4
  451. drill_sort@ 0.,0.,0.,0.
  452. delay 3000
  453.  
  454. setnewfile@ 
  455. ;SETUP
  456. gosub 500
  457.  
  458. ;DRAW BOX
  459. gosub 510
  460.  
  461. setdcode@ 100
  462. textheight@ 50.
  463. setgridvis@ 0
  464. add_text@
  465. addtext@ -750.,725.,.700,250,"This is all running at\ACTUAL speed."
  466. delay 3000
  467. add_text@
  468. addtext@ -350.,450.,211.3585,150.,"Powerful Macros and\Scripts make the\real difference."
  469. delay 3000
  470. addtext@ -50.,100.,159.0861,-375.,"You are interacting\with a macro now\called demoscr.scr"
  471. delay 3000
  472. undo@
  473. undo@
  474. undo@
  475. back@
  476. back@
  477. edit_aperture@ 101,1,25.,25.,101,""
  478. setdcode@ 100
  479. add_text@
  480. addtext@ -750.,675.,22.7231,425.,"Macros can:"
  481. delay 1000
  482. setdcode@ 101
  483. add_flash@
  484. axy@ -525.,525.
  485. back@
  486. delay 500
  487. setdcode@ 100
  488. addtext@ -400.,500.,909.0833,250.,"Interact with the user."
  489. delay 1000
  490. setdcode@ 101
  491. add_flash@
  492. axy@ -525.,350.
  493. back@
  494. delay 500
  495. setdcode@ 100
  496. addtext@ -400.,325.,422.7220,75.,"Make decisions."
  497. delay 1000
  498. setdcode@ 101
  499. add_flash@
  500. axy@ -525.,175.
  501. back@
  502. delay 500
  503. setdcode@ 100
  504. addtext@ -400.,150.,-9.0942,-250.,"And Query the database."
  505. back@
  506. back@
  507. delay 3000
  508.  
  509. setnewfile@
  510. ;SETUP
  511. gosub 500
  512.  
  513. print_msg "Lets load a database and then query it."
  514. view_all@
  515. delay 3000
  516. end@
  517. setnewfile@ 
  518. setopenfile@ ".\demoscr\demodum.pcb"
  519. print_msg "Current minimum x is: ",dbminx!
  520. delay 1000
  521. print_msg "Current maximum x is: ",dbmaxx!
  522. delay 1000
  523. print_msg "Current minimum y is: ",dbminy!
  524. delay 1000
  525. print_msg "Current maximum y is: ",dbmaxy!
  526. delay 1000
  527. print_msg "Current database name: ",dbname!
  528. delay 1000
  529. print_msg "Current film size min. x: ",filmminx!
  530. delay 1000
  531. print_msg "Current film size max. x: ",filmmaxx!
  532. delay 1000
  533. print_msg "Current film size min. y: ",filmminy!
  534. delay 1000
  535. print_msg "Current film size max. y: ",filmmaxy!
  536. delay 1000
  537. print_msg "First blank Dcode: ",blankdcode!
  538. delay 1000
  539. print_msg "Highest used Dcode is: ",highestdcode!
  540. delay 1000
  541. print_msg "Highest used Padstack is: ",highestpstk!+1
  542. delay 1000
  543. print_msg "First blank Layer: ",blanklayer!+1
  544. delay 1000
  545. print_msg "Current active Dcode: ",activedcode!
  546. delay 1000
  547. print_msg "Current active Layer: ",activelayer!+1
  548. delay 1000
  549. print_msg "Current Dcode Shape: ",dcodeshape!
  550. delay 1000
  551. print_msg "Current Dcode Size X: ",dcodesizex!
  552. delay 1000
  553. print_msg "Current Dcode Size Y: ",dcodesizey!
  554. delay 1000
  555. print_msg "Current Drill Layer: ",drilllayer!
  556. delay 1000
  557. print_msg "Drill Tool: ",drilltool!
  558. delay 1000
  559. print_msg "Drill Legend: ",drilllegend!
  560. delay 1000
  561. print_msg "Border Layer: ",borderlayer!
  562. delay 1000
  563. print_msg "Number of flashes using current Dcode: ",numflashes!
  564. delay 1000
  565. print_msg "Number of Draws using active Dcode: ",numdraws!
  566. delay 1000
  567. print_msg "What time is it?: ",time!
  568. delay 3000
  569. end@
  570.  
  571. setnewfile@ 
  572. ;SETUP
  573. gosub 500
  574.  
  575. setdcode@ 100
  576. addtext@ -7500.,675.,681.8109,125.,"CAM350 can convert\Gerber files to an\intelligent database..."
  577. end@
  578. view_all@
  579. delay 3000
  580.  
  581. setnewfile@ 
  582. ;SETUP
  583. gosub 500
  584.  
  585. ;DRAW BOX
  586. gosub 510
  587.  
  588. edit_aperture@ 101,1,25.,25.,101,""
  589. textheight@ 50.
  590. setgridvis@ 0
  591. setdcode@ 100
  592. addtext@ -750.,675.,63.6320,125.,"CAM350's database is a CAD database\that understands:"
  593. back@
  594. delay 2000
  595. setdcode@ 101
  596. add_flash@
  597. axy@ -525.,425.
  598. back@
  599. back@
  600. delay 500
  601. setdcode@ 100
  602. addtext@ -400.,400.,109.0871,-25.,"True nets..."
  603. back@
  604. back@
  605. delay 1000
  606. setdcode@ 101
  607. add_flash@
  608. axy@ -525.,250.
  609. back@
  610. back@
  611. delay 500
  612. setdcode@ 100
  613. addtext@ -400.,225.,886.3561,-200.,"True parts (centroids)"
  614. back@
  615. back@
  616. delay 1000
  617. setdcode@ 101
  618. add_flash@
  619. axy@ -525.,75.
  620. back@
  621. back@
  622. delay 500
  623. setdcode@ 100
  624. addtext@ -400.,50.,522.,-375.,"True padstacks..."
  625. back@
  626. back@
  627. delay 3000
  628. setopenfile@ ".\demoscr\demoint.pcb"
  629. setlayer@ 2
  630. textheight@ 150.
  631. setdcode@ 10
  632. add_text@
  633. addtext@ 4250.,2850.,4972.7239,2550.,"This file is now\fully CAD\intelligent."
  634. view_all@
  635. delay 3000
  636. undo@
  637. textheight@ 150.
  638. setdcode@ 10
  639. addtext@ 4275.,2850.,5165.9049,2700.,"Lets QUERY\some nets..."
  640. delay 3000
  641. end@
  642. query_net@
  643. axy@ 2175.,3700.
  644. delay 1500
  645. axy@ 2500.,3725.
  646. delay 1500
  647. axy@ 3650.,1250.
  648. delay 1500
  649. axy@ 1300.,1750.
  650. delay 1500
  651. back@
  652. back@
  653. undo@
  654. textheight@ 150.
  655. setdcode@ 10
  656. addtext@ 4275.,2850.,5165.9049,2700.,"NETCHECKING is Fast!"
  657. delay 3000
  658. end@
  659. util_net_check@
  660. setnetextrparm@ 0
  661. setnetcheckparm@ 1,0
  662. undo@
  663. textheight@ 150.
  664. setdcode@ 10
  665. add_text@
  666. addtext@ 4225.,2900.,4724.9976,2600.,"Now lets\QUERY some\parts..."
  667. delay 3000
  668. end@
  669. query_part@
  670. axy@ 1850.,4175.
  671. delay 1500
  672. axy@ 4425.,3450.
  673. delay 1500
  674. axy@ 1225.,2300.
  675. delay 1500
  676. axy@ 4475.,775.
  677. delay 1500
  678. back@
  679. back@
  680. end@
  681.  
  682. setopenfile@ ".\demoscr\demoint.pcb"
  683. Print_msg "And lets see the part Centroids"
  684. delay 3000
  685. close_msg
  686. view_setpartcentroid@ 1
  687. setlayer@ 9
  688. layer_alloff@ 1
  689. view_redraw@
  690. delay 3000
  691. setlayer@ 2
  692.  
  693. 8textheight@ 150.
  694. setdcode@ 10
  695. add_text@
  696. addtext@ 3625.,2950.,4752.2702,2800.,"There are 3 on-line\editors."
  697. view_all@
  698. delay 2000
  699. addtext@ 3650.,2400.,5790.9018,2600.,"The main CAM Editor."
  700. delay 2000
  701. addtext@ 3650.,2100.,5359.0857,2400.,"The CAP Editor."
  702. delay 2000
  703. end@
  704. util_caped@
  705. openlibitem@ 1,"DATUM501"
  706. print_msg "The CAP Editor (Custom Apertures) is graphical"
  707. delay 2000
  708. print_msg "Both positive and negative data can be drawn"
  709. delay 2000
  710. close_msg
  711. view_redraw@
  712. add_line@
  713. setpolarity@ 2
  714. axy@ -12.,12.
  715. axy@ 12.,-12.
  716. back@
  717. view_redraw@
  718. delay 3000
  719. end@
  720. util_camed@
  721. delay 3000
  722. add_text@
  723. addtext@ 3675.,1800.,5715.9023,2200.,"And the Part Editor."
  724. delay 2000
  725. end@
  726. util_parted@
  727. openlibitem@ 2,"Dip14"
  728. delay 2000
  729. util_camed@
  730.  
  731. setnewfile@ 
  732. ;SETUP
  733. gosub 500
  734.  
  735. ;DRAW BOX
  736. gosub 510
  737.  
  738. setdcode@ 100
  739. setlayer@ 2
  740. textheight@ 50.
  741. setgridvis@ 0
  742. add_text@
  743. addtext@ -750.,700.,-270.4574,300.,"There is much more to CAM350..."
  744. delay 3000
  745. addtext@ -550.,350.,390.9032,-25.,"Barco DPF has been improved."
  746. delay 1000
  747. addtext@ -500.,0.,-431.8202,-350.,"Graphics redraw is faster."
  748. delay 3000
  749. undo@
  750. undo@
  751. setdcode@ 100
  752. addtext@ -700.,350.,104.5409,-200.,"Exploding data has never been easier."
  753. delay 3000
  754. addtext@ -400.,0.,299.9946,-50.,"More sample macros."
  755. delay 3000
  756. undo@
  757. undo@
  758. addtext@ -375.,350.,622.7203,100.,"Upgrading is simple."
  759. delay 3000
  760. addtext@ -375.,0.,622.7203,25.,"Call 408-358-4680"
  761. delay 3000
  762. addtext@ -250,-250.,622.7203,15.,"End of Macro"
  763. view_all@
  764. back@
  765. back@
  766. end@
  767. delay 3000
  768. goto 100
  769.  
  770.  
  771. ;SETUP ENVIRONMENT
  772. 500
  773. util_camed@
  774. setlayer@ 0
  775. setsectorize@ 0,1000
  776. textheight@ 100.
  777. textangle@ 0
  778. textmirror@ 0
  779. textjust@ 17
  780. textfitting@ 0
  781. textcspace@ 0.
  782. textlspace@ 25.
  783. setgridvis@ 0
  784. edit_layer@ 2,6,6,4,0,"Layer_2"
  785. setlayer@ 2
  786. edit_aperture@ 100,1,5.,5.,100,""
  787. update_dcodebar@
  788. setdcode@ 100
  789. axy@ 0.,0.
  790. end@
  791. return
  792.  
  793. ;DRAW BOX SUBROUTINE
  794. 510
  795. setdcode@ 100
  796. add_rectangle@
  797. axy@ -800.0000,800.0000
  798. axy@ 800.0000,-298.0000
  799. back@
  800. view_all@
  801. return