home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 13.ddi / ARCA / GRENDER.TBL < prev    next >
Encoding:
Text File  |  1993-08-29  |  15.3 KB  |  1,048 lines
  1. %latrib.ccc
  2.  
  3. * add LOOK attributes to entity in D.B.
  4.  
  5. :j
  6. * check geometric mode activity (c100=' ')
  7. ascii c100 r13
  8. if r13 eq 32 :i
  9. mess illegal command, use \GEOM first !
  10. getwe
  11. goto :j
  12.  
  13. :i
  14. sbreset
  15. c171 4 = 'grl='
  16. mess enter Look attribute description (1-16 char)
  17. * def c175 16
  18. getc c175 16
  19. ascii c175 r9
  20. if r9 eq 32 :i
  21.  
  22. :b
  23. mess attach Look attribute to: y-selection group, n-single entity <n>
  24. r1=0
  25. def 'n'
  26. getyn r1
  27. if r1 eq 0 :a
  28. i1=0
  29. goto :d
  30.  
  31. :a
  32. mess entity to add the Look attribute to
  33. gete i1
  34. mess confirm choice
  35. r1 = 1
  36. def 'y'
  37. getyn r1
  38. unshow i1
  39. if r1 eq 1 :c
  40. goto :a
  41.  
  42. :c
  43. ovl attr
  44. sbreset
  45. repeat :a
  46.  
  47. :d
  48. ovl attr
  49.  
  50. %catrib.ccc
  51.  
  52. * add COLOR attributes to entity in D.B.
  53.  
  54. :j
  55. * check geometric mode activity (c100=' ')
  56. ascii c100 r13
  57. if r13 eq 32 :i
  58. mess illegal command, use \GEOM first !
  59. getwe
  60. goto :j
  61.  
  62. :i
  63. sbreset
  64. c171 4 = 'grc='
  65. mess enter Color attribute (1-16 char) <ENTER> for Dialog Box.
  66. c175 16= '                '
  67. getc c175 16
  68. ascii c175 r9
  69. if r9 eq 32 :1
  70. goto :2
  71.  
  72. :1
  73. i1=-1
  74. r1=1
  75. ovl initcc
  76. c1 8 = 'grcatrib'
  77. c11 8 ='        '
  78. c11 = c69
  79. ovl exec3
  80. ovl termcc
  81. ascii c175 r9
  82. if r9 eq 32 :9
  83. mess Confirm : #c175 16
  84. r1 = 1
  85. def 'y'
  86. getyn r1
  87. if r1 eq 0 :i
  88. goto :2
  89.  
  90. :2
  91. mess attach Color attribute to: y-selection group, n-single entity <n>
  92. r1 = 0
  93. def 'n'
  94. getyn r1
  95. if r1 eq 0 :a
  96. i1=0
  97. goto :d
  98.  
  99. :a
  100. mess entity to add the Color attribute to
  101. gete i1
  102. mess confirm choice
  103. r1 = 1
  104. def 'y'
  105. getyn r1
  106. unshow i1
  107. if r1 eq 1 :c
  108. goto :a
  109.  
  110. :c
  111. ovl attr
  112. sbreset
  113. repeat :a
  114.  
  115. :d
  116. ovl attr
  117.  
  118. :9
  119. %matrib.ccc
  120.  
  121. * add MATERIAL attributes to entity in D.B.
  122.  
  123. :j
  124. * check geometric mode activity (c100=' ')
  125. ascii c100 r13
  126. if r13 eq 32 :i
  127. mess illegal command, use \GEOM first !
  128. getwe
  129. goto :j
  130.  
  131. :i
  132. sbreset
  133. c171 4 = 'grm='
  134. mess enter Material attribute (1-16 char) <ENTER> for Dialog Box.
  135. c175 16= '                '
  136. getc c175 16
  137. ascii c175 r9
  138. if r9 eq 32 :1
  139. goto :2
  140.  
  141. :1
  142. r1=3
  143. ovl initcc
  144. c1 8 = 'grmatrib'
  145. c11 8 ='        '
  146. c11 = c69
  147. ovl exec3
  148. ovl termcc
  149. ascii c175 r9
  150. if r9 eq 32 :9
  151. mess Confirm : #c175 16
  152. r1 = 1
  153. def 'y'
  154. getyn r1
  155. if r1 eq 0 :i
  156. goto :2
  157.  
  158. :2
  159. mess attach Material attribute to: y-selection group, n-single entity <n>
  160. r1 = 0
  161. def 'n'
  162. getyn r1
  163. if r1 eq 0 :a
  164. i1=0
  165. goto :d
  166.  
  167. :a
  168. mess entity to add the Material attribute to
  169. gete i1
  170. mess confirm choice
  171. r1 = 1
  172. def 'y'
  173. getyn r1
  174. unshow i1
  175. if r1 eq 1 :c
  176. goto :a
  177.  
  178. :c
  179. ovl attr
  180. sbreset
  181. repeat :a
  182.  
  183. :d
  184. ovl attr
  185.  
  186. :9
  187. %tatrib.ccc
  188.  
  189. * add TEXTURE attributes to entity in D.B.
  190.  
  191. :j
  192. * check geometric mode activity (c100=' ')
  193. ascii c100 r13
  194. if r13 eq 32 :i
  195. mess illegal command, use \GEOM first !
  196. getwe
  197. goto :j
  198.  
  199. :i
  200. sbreset
  201. c171 4 = 'grt='
  202. mess enter Texture attribute (1-16 char) <ENTER> for Dialog Box.
  203. c175 16= '                '
  204. getc c175 16
  205. ascii c175 r9
  206. if r9 eq 32 :1
  207. goto :2
  208.  
  209. :1
  210. i50=1
  211. r2=0
  212. c141 30  ='                              '
  213. c211 30  ='                              '
  214. r1=2
  215. ovl initcc
  216. c1 8 = 'grtatrib'
  217. c11 8 ='        '
  218. c11 = c69
  219. ovl exec3
  220. ovl termcc
  221. i50=0
  222.  
  223. ascii c175 r9
  224. if r9 eq 32 :9
  225.  
  226. mess Confirm : #c175 16
  227. r1 = 1
  228. def 'y'
  229. getyn r1
  230. if r1 eq 0 :i
  231. goto :2
  232.  
  233. :2
  234. mess attach Texture attribute to: y-selection group, n-single entity <n>
  235. r1 = 0
  236. def 'n'
  237. getyn r1
  238. if r1 eq 0 :a
  239. i1=0
  240. goto :d
  241.  
  242. :a
  243. mess entity to add the Texture attribute to
  244. gete i1
  245. mess confirm choice
  246. r1 = 1
  247. def 'y'
  248. getyn r1
  249. unshow i1
  250. if r1 eq 1 :c
  251. goto :a
  252.  
  253. :c
  254. ovl attr
  255. sbreset
  256. repeat :a
  257.  
  258. :d
  259. ovl attr
  260.  
  261. :9
  262. %grload.ccc
  263. def c141 8 ;
  264. c141='        '
  265. goto :again
  266. mess Rendering file name to load as NEW(1-8 chars.)
  267. :againb
  268. getc+ c2 8
  269. ***if r93 ne 0 :P
  270. * keep the loaded file name
  271. c141=c2;c142=c3;c143=c4;c144=c5;c145=c6;c146=c7;c147=c8;c148=c9
  272. c80=' '
  273. c81 3 ='grt'
  274. c85 =' '
  275. r80=0
  276. r83=0
  277. r88=2
  278. command chkfil
  279. if r83 eq 0 :g
  280. mess Error, invalid file name, enter name again :
  281. goto :againb
  282. :g
  283. if r80 eq 1 :e
  284. mess file " #c2 8 " does not exist, enter another name :
  285. goto :againb
  286. :e
  287. r1=301
  288. ovl grutl3      * load rendering files
  289. if r2 eq -1 :1
  290. if r2 eq -2 :2
  291. goto :9
  292. :1
  293. mess Can't Load Rendering file " #c141 12 " (press<ENTER>)
  294. getc c141 12
  295. goto :again
  296. :2
  297. mess Can not load "new" on itself (press<ENTER>)
  298. getc c141 12
  299. goto :again
  300. :9
  301. %grsave.ccc
  302. def c141 8 ;
  303. c141='        '
  304. :again
  305. mess Rendering file name to save (1-8 char.)
  306. :againb
  307. getc+ c2 8
  308. c141=c2;c142=c3;c143=c4;c144=c5;c145=c6;c146=c7;c147=c8;c148=c9
  309. c80=' '
  310. c81 3 ='grt'
  311. c85 =' '
  312. r80=1
  313. r83=0
  314. r88=2
  315. command chkfil
  316. if r83 eq 0 :g
  317. mess Error, invalid file name, enter name again :
  318. goto :againb
  319. :g
  320. if r80 eq 0 :e
  321. r1 = 0
  322. mess file " #c2 8 " already exists, want to overwrite ? <n>
  323. def 'n'
  324. getyn r1
  325. if r1 eq 0 :again
  326. :e
  327. r1=302
  328. ovl grutl3      * save rendering files
  329. if r2 eq -1 :1
  330. if r2 eq -2 :2
  331. goto :9
  332. :1
  333. mess Can't Save Rendering file " #c141 12 " (press<ENTER>)
  334. getc c141 12
  335. goto :again
  336. :2
  337. mess Can not save "new" into itself (press<ENTER>)
  338. getc c141 12
  339. goto :again
  340. :9
  341. %grclear.ccc
  342. mess confirm erasing rendering file <n>
  343. r1=0 ; def 'n'
  344. getyn r1 ; if r1 eq 1 :y ; goto :9
  345. :y
  346. r1=303
  347. ovl grutl3      * clear rendering files
  348. if r2 eq -1 :1
  349. goto :9
  350. :1
  351. mess Can't Clear Rendering file, Try again
  352. getc c141 12
  353. goto :again
  354. :9
  355. %grna.ccc
  356. mess Not available !
  357. getw
  358.  
  359. %rungrt.ccc
  360. * ovl initcc
  361. * c1 8 = 'gmkrtinp'
  362. * c11 8 ='        '
  363. * ovl exec3
  364. * ovl termcc
  365.  
  366. ovl initcc
  367. c1 8 = 'grtmain '
  368. c11 8 ='        '
  369. c11 = c69
  370. ovl exec3
  371. ovl termcc
  372. %grender.ccc
  373. r1=201
  374. ovl grutl2      * save dl
  375.  
  376. r1 = 40
  377. ovl initcc
  378. c1 8 = 'gmain   '
  379. c11 8 ='        '
  380. c11 = c69
  381. ovl exec3
  382. ovl termcc
  383.  
  384. r1=202
  385. ovl grutl2      * load dl
  386. %greclr.ccc
  387. * edits entity graffiti rendering color attributes
  388. :j
  389. ascii c100 r13
  390. if r13 eq 32 :i
  391. mess illegal command, use \GEOM first !
  392. getwe
  393. goto :j
  394. :i
  395. sbreset
  396. :a
  397. mess choose entity
  398. gete i1
  399. mess confirm choice
  400. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  401. :c
  402. unshow i1
  403. r1=4
  404. ovl initcc
  405. c1  8 = 'grcatrib'
  406. c11 8 = '        '
  407. c11 = c69
  408. ovl exec3
  409. ovl termcc
  410. %grlight.ccc
  411. mess lights (e-edit, s-set active, a-ambient, g-graphic)
  412. def c111 1
  413. getc c111 1
  414. ascii c111 r7
  415. * 'e'
  416. if r7 eq 101 :e
  417. * 's'
  418. if r7 eq 115 :s
  419. * 'a'
  420. if r7 eq  97 :a
  421. * 'g'
  422. if r7 eq 103 :g
  423. goto :9
  424.  
  425. :e
  426. r1 = 7 ; goto :8
  427. :s
  428. r1 = 8 ; goto :8
  429. :a
  430. r1 = 9 ; goto :8
  431. :8
  432. ovl initcc
  433. c1  8 = 'grlights'
  434. c11 8 = '        '
  435. c11 = c69
  436. ovl exec3
  437. ovl termcc
  438. goto :9
  439.  
  440. :g
  441. r1 = 42
  442. ovl initcc
  443. c1  8 = 'gmain   '
  444. c11 8 = '        '
  445. c11 = c69
  446. ovl exec3
  447. ovl termcc
  448. goto :9
  449.  
  450. :9
  451. %grdyned.ccc
  452. r1 = 41
  453. ovl initcc
  454. c1 8 = 'gmain   '
  455. c11 8 ='        '
  456. c11 = c69
  457. ovl exec3
  458. ovl termcc
  459.  
  460. %gremat.ccc
  461. * edits entity graffiti rendering material attributes
  462. :j
  463. ascii c100 r13
  464. if r13 eq 32 :i
  465. mess illegal command, use \GEOM first !
  466. getwe
  467. goto :j
  468. :i
  469. sbreset
  470. :a
  471. mess choose entity
  472. gete i1
  473. mess confirm choice
  474. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  475. :c
  476. unshow i1
  477. r1 = 6
  478. ovl initcc
  479. c1  8 = 'grmatrib'
  480. c11 8 = '        '
  481. c11 = c69
  482. ovl exec3
  483. ovl termcc
  484.  
  485. %gretxt.ccc
  486. * edits entity graffiti rendering texture attributes
  487. :j
  488. ascii c100 r13
  489. if r13 eq 32 :i
  490. mess illegal command, use \GEOM first !
  491. getwe
  492. goto :j
  493. :i
  494. sbreset
  495. :a
  496. mess choose entity
  497. gete i1
  498. mess confirm choice
  499. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  500. :c
  501. unshow i1
  502. r1 = 5
  503. ovl initcc
  504. c1  8 = 'grtatrib'
  505. c11 8 = '        '
  506. c11 = c69
  507. ovl exec3
  508. ovl termcc
  509.  
  510. %grqent.ccc
  511. * query entity graffiti rendering attributes
  512. :j
  513. ascii c100 r13
  514. if r13 eq 32 :i
  515. mess illegal command, use \GEOM first !
  516. getwe
  517. goto :j
  518. :i
  519. sbreset
  520. :a
  521. mess choose entity
  522. gete i1
  523. mess confirm choice
  524. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  525. :c
  526. unshow i1
  527. r1 = 203
  528. ovl grutl2      * query ent
  529. mess grc= #c211 13 ,grt= #c224 23 ,grm= #c141 14
  530. getw
  531. repeat :a
  532.  
  533. %grsqent.ccc
  534. * query solid entity graffiti rendering attributes
  535. :j
  536. ascii c100 r13
  537. if r13 eq 32 :i
  538. mess illegal command, use \GEOM first !
  539. getwe
  540. goto :j
  541. :i
  542. sbreset
  543. :a
  544. mess choose solid entity
  545. gete i1
  546. mess confirm choice
  547. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  548. :c
  549. unshow i1
  550. r1 = 204
  551. ovl grutl2      * query solid ent
  552. if r2 eq -1 :1
  553. if r3 eq 0 :n
  554. mess grc= #c211 13 ,grt= #c224 23 ,grm= #c141 14 ,grs= #r3
  555. getw
  556. repeat :a
  557. :n
  558. mess grc= #c211 13 ,grt= #c224 23 ,grm= #c141 14
  559. getw
  560. repeat :a
  561. :1
  562. mess not belongs to a solid entity, Try again
  563. getc c211 12
  564. repeat :a
  565.  
  566. %grsview.ccc
  567. r1=101
  568. ovl initcc      * save arc view
  569. c1 8 = 'grutl1  '
  570. c11 8 ='        '
  571. ovl exec3
  572. ovl termcc
  573. %greview.ccc
  574. r1 = 43
  575. ovl initcc      *
  576. c1 8 = 'gmain   '
  577. c11 8 ='        '
  578. c11 = c69
  579. ovl exec3
  580. ovl termcc
  581. %grimgset.ccc
  582. r1 = 20
  583. ovl initcc
  584. c1 8 = 'grovl1  '
  585. c11 8 ='        '
  586. c11 = c69
  587. ovl exec3
  588. ovl termcc
  589.  
  590. %grqlty.ccc
  591. r1 = 21
  592. ovl initcc
  593. c1 8 = 'grovl1  '
  594. c11 8 ='        '
  595. c11 = c69
  596. ovl exec3
  597. ovl termcc
  598.  
  599. %grbckgrd.ccc
  600. r1 = 22
  601. ovl initcc
  602. c1 8 = 'grovl1  '
  603. c11 8 ='        '
  604. c11 = c69
  605. ovl exec3
  606. ovl termcc
  607.  
  608. %grfog.ccc
  609. r1 = 23
  610. ovl initcc
  611. c1 8 = 'grovl1  '
  612. c11 8 ='        '
  613. c11 = c69
  614. ovl exec3
  615. ovl termcc
  616.  
  617. %grctbl.ccc
  618. r1 = 24
  619. ovl initcc
  620. c1 8 = 'grovl1  '
  621. c11 8 ='        '
  622. c11 = c69
  623. ovl exec3
  624. ovl termcc
  625.  
  626. %grimgshw.ccc
  627. mess confirm showing last image file <y>
  628. r1=0 ; def 'n'
  629. getyn r1 ; if r1 eq 1 :y ; goto :n
  630. :y
  631. r1=25
  632. ovl initcc
  633. c1 8 = 'grovl1  '
  634. c11 8 ='        '
  635. c11 = c69
  636. ovl exec3
  637. ovl termcc
  638. goto :9
  639. :n
  640. r1=26
  641. ovl initcc
  642. c1 8 = 'grovl1  '
  643. c11 8 ='        '
  644. c11 = c69
  645. ovl exec3
  646. ovl termcc
  647. :9
  648.  
  649. %grabout.ccc
  650. r1 = 27
  651. ovl initcc
  652. c1 8 = 'grovl1  '
  653. c11 8 ='        '
  654. c11 = c69
  655. ovl exec3
  656. ovl termcc
  657.  
  658. %grstvw.ccc
  659. r1 = 28
  660. ovl initcc
  661. c1 8 = 'grovl1  '
  662. c11 8 ='        '
  663. c11 = c69
  664. ovl exec3
  665. ovl termcc
  666.  
  667. %grstde.ccc
  668. r1 = 29
  669. ovl initcc
  670. c1 8 = 'grovl1  '
  671. c11 8 ='        '
  672. c11 = c69
  673. ovl exec3
  674. ovl termcc
  675.  
  676. %grsmth.ccc
  677. * smooth solid entity
  678. :j
  679. ascii c100 r13
  680. if r13 eq 32 :i
  681. mess illegal command, use \GEOM first !
  682. getwe
  683. goto :j
  684. :i
  685. r3 = 120.0
  686. :b
  687. mess enter smooth angle (0 < angle < 180, 0 - no smooth)
  688. def r3 ; getr r3
  689. if r3 lt 0 :b
  690. if r3 ge 180 :b
  691. sbreset
  692. :a
  693. mess choose solid entity
  694. gete i1
  695. mess confirm choice
  696. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  697. :c
  698. unshow i1
  699. r1 = 205
  700. ovl grutl2      * smooth solid ent
  701. if r2 eq -1 :1
  702. repeat :a
  703. :1
  704. mess not belongs to a solid entity, Try again
  705. getc c211 12
  706. repeat :a
  707.  
  708. %statrib.ccc
  709.  
  710. * add TEXTURE attributes to solid entity in D.B.
  711.  
  712. :j
  713. * check geometric mode activity (c100=' ')
  714. ascii c100 r13
  715. if r13 eq 32 :i
  716. mess illegal command, use \GEOM first !
  717. getwe
  718. goto :j
  719.  
  720. :i
  721. sbreset
  722. c171 4 = 'grt='
  723. mess enter Texture attribute (1-16 char) <ENTER> for Dialog Box.
  724. c175 16= '                '
  725. getc c175 16
  726. ascii c175 r9
  727. if r9 eq 32 :1
  728. goto :2
  729.  
  730. :1
  731. i50=1
  732. r2=0
  733. c141 30  ='                              '
  734. c211 30  ='                              '
  735. r1=2
  736. ovl initcc
  737. c1 8 = 'grtatrib'
  738. c11 8 ='        '
  739. c11 = c69
  740. ovl exec3
  741. ovl termcc
  742. i50=0
  743.  
  744. ascii c175 r9
  745. if r9 eq 32 :9
  746.  
  747. mess Confirm : #c175 16
  748. r1 = 1
  749. def 'y'
  750. getyn r1
  751. if r1 eq 0 :i
  752. goto :2
  753.  
  754. :2
  755. mess attach Texture y-solid mapping, n-single mapping <n>
  756. r3 = 0
  757. def 'n'
  758. getyn r3
  759.  
  760. :a
  761. mess solid entity to add the Texture attribute to
  762. gete i1
  763. mess confirm choice
  764. r1 = 1
  765. def 'y'
  766. getyn r1
  767. unshow i1
  768. if r1 eq 1 :c
  769. goto :a
  770.  
  771. :c
  772. r1 = 206
  773. ovl grutl2      * set grt attribute to solid
  774. if r2 eq -1 :e1
  775. if r2 eq -2 :e2
  776. sbreset
  777. repeat :a
  778. :e1
  779. mess not belongs to a solid entity, Try again
  780. getc c211 12
  781. repeat :a
  782. :e2
  783. mess Unable to set attribute of solid entity, Try again
  784. getc c211 12
  785. repeat :a
  786.  
  787. :9
  788. %scatrib.ccc
  789.  
  790. * add COLOR attributes to solid entity in D.B.
  791.  
  792. :j
  793. * check geometric mode activity (c100=' ')
  794. ascii c100 r13
  795. if r13 eq 32 :i
  796. mess illegal command, use \GEOM first !
  797. getwe
  798. goto :j
  799.  
  800. :i
  801. sbreset
  802. c171 4 = 'grc='
  803. mess enter Color attribute (1-16 char) <ENTER> for Dialog Box.
  804. c175 16= '                '
  805. getc c175 16
  806. ascii c175 r9
  807. if r9 eq 32 :1
  808. goto :a
  809.  
  810. :1
  811. i1=-1
  812. r1=1
  813. ovl initcc
  814. c1 8 = 'grcatrib'
  815. c11 8 ='        '
  816. c11 = c69
  817. ovl exec3
  818. ovl termcc
  819. i50=0
  820.  
  821. ascii c175 r9
  822. if r9 eq 32 :9
  823.  
  824. mess Confirm : #c175 16
  825. r1 = 1
  826. def 'y'
  827. getyn r1
  828. if r1 eq 0 :i
  829. goto :a
  830.  
  831. :a
  832. mess solid entity to add the Color attribute to
  833. gete i1
  834. mess confirm choice
  835. r1 = 1
  836. def 'y'
  837. getyn r1
  838. unshow i1
  839. if r1 eq 1 :c
  840. goto :a
  841.  
  842. :c
  843. r1 = 207
  844. ovl grutl2      * set grc attribute to solid
  845. if r2 eq -1 :e1
  846. if r2 eq -2 :e2
  847. sbreset
  848. repeat :a
  849. :e1
  850. mess not belongs to a solid entity, Try again
  851. getc c211 12
  852. repeat :a
  853. :e2
  854. mess Unable to set attribute of solid entity, Try again
  855. getc c211 12
  856. repeat :a
  857.  
  858. :9
  859. %smatrib.ccc
  860.  
  861. * add MATERIAL attributes to solid entity in D.B.
  862.  
  863. :j
  864. * check geometric mode activity (c100=' ')
  865. ascii c100 r13
  866. if r13 eq 32 :i
  867. mess illegal command, use \GEOM first !
  868. getwe
  869. goto :j
  870.  
  871. :i
  872. sbreset
  873. c171 4 = 'grm='
  874. mess enter Material attribute (1-16 char) <ENTER> for Dialog Box.
  875. c175 16= '                '
  876. getc c175 16
  877. ascii c175 r9
  878. if r9 eq 32 :1
  879. goto :a
  880.  
  881. :1
  882. r1=3
  883. ovl initcc
  884. c1 8 = 'grmatrib'
  885. c11 8 ='        '
  886. c11 = c69
  887. ovl exec3
  888. ovl termcc
  889. i50=0
  890.  
  891. ascii c175 r9
  892. if r9 eq 32 :9
  893.  
  894. mess Confirm : #c175 16
  895. r1 = 1
  896. def 'y'
  897. getyn r1
  898. if r1 eq 0 :i
  899.  
  900. :a
  901. mess solid entity to add the Material attribute to
  902. gete i1
  903. mess confirm choice
  904. r1 = 1
  905. def 'y'
  906. getyn r1
  907. unshow i1
  908. if r1 eq 1 :c
  909. goto :a
  910.  
  911. :c
  912. r1 = 208
  913. ovl grutl2      * set grm attribute to solid
  914. if r2 eq -1 :e1
  915. if r2 eq -2 :e2
  916. sbreset
  917. repeat :a
  918. :e1
  919. mess not belongs to a solid entity, Try again
  920. getc c211 12
  921. repeat :a
  922. :e2
  923. mess Unable to set attribute of solid entity, Try again
  924. getc c211 12
  925. repeat :a
  926.  
  927. :9
  928. %grestxt.ccc
  929. * edits entity graffiti rendering texture attributes
  930. :j
  931. ascii c100 r13
  932. if r13 eq 32 :i
  933. mess illegal command, use \GEOM first !
  934. getwe
  935. goto :j
  936. :i
  937. sbreset
  938. :a
  939. mess choose solid entity
  940. gete i1
  941. mess confirm choice
  942. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  943. :c
  944. unshow i1
  945. r1 = 8          * edit solid texture
  946. ovl initcc
  947. c1  8 = 'grtatrib'
  948. c11 8 = '        '
  949. c11 = c69
  950. ovl exec3
  951. ovl termcc
  952. if r2 eq -1 :e1
  953. if r2 eq -2 :e2
  954. goto :9
  955. :e1
  956. mess not belongs to a solid entity, Try again
  957. getc c211 12
  958. repeat :a
  959. :e2
  960. mess Unable to edit attribute of solid entity, Try again
  961. getc c211 12
  962. repeat :a
  963.  
  964. :9
  965. %gresclr.ccc
  966. * edits entity graffiti rendering color attributes
  967. :j
  968. ascii c100 r13
  969. if r13 eq 32 :i
  970. mess illegal command, use \GEOM first !
  971. getwe
  972. goto :j
  973. :i
  974. sbreset
  975. :a
  976. mess choose solid entity
  977. gete i1
  978. mess confirm choice
  979. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  980. :c
  981. unshow i1
  982. r1 = 7          * edit solid color
  983. ovl initcc
  984. c1  8 = 'grcatrib'
  985. c11 8 = '        '
  986. c11 = c69
  987. ovl exec3
  988. ovl termcc
  989. if r2 eq -1 :e1
  990. if r2 eq -2 :e2
  991. goto :9
  992. :e1
  993. mess not belongs to a solid entity, Try again
  994. getc c211 12
  995. repeat :a
  996. :e2
  997. mess Unable to edit attribute of solid entity, Try again
  998. getc c211 12
  999. repeat :a
  1000.  
  1001. :9
  1002. %gresmat.ccc
  1003. * edits entity graffiti rendering material attributes
  1004. :j
  1005. ascii c100 r13
  1006. if r13 eq 32 :i
  1007. mess illegal command, use \GEOM first !
  1008. getwe
  1009. goto :j
  1010. :i
  1011. sbreset
  1012. :a
  1013. mess choose solid entity
  1014. gete i1
  1015. mess confirm choice
  1016. getyn r1 ; if r1 eq 1 :c ; unshow i1 ; goto :a
  1017. :c
  1018. unshow i1
  1019. r1 = 9
  1020. ovl initcc
  1021. c1  8 = 'grmatrib'
  1022. c11 8 = '        '
  1023. c11 = c69
  1024. ovl exec3
  1025. ovl termcc
  1026. if r2 eq -1 :e1
  1027. if r2 eq -2 :e2
  1028. goto :9
  1029. :e1
  1030. mess not belongs to a solid entity, Try again
  1031. getc c211 12
  1032. repeat :a
  1033. :e2
  1034. mess Unable to edit attribute of solid entity, Try again
  1035. getc c211 12
  1036. repeat :a
  1037.  
  1038. :9
  1039. %grimgply.ccc
  1040. r1 = 60
  1041. ovl initcc
  1042. c1 8 = 'grovl2  '
  1043. c11 8 ='        '
  1044. c11 = c69
  1045. ovl exec3
  1046. ovl termcc
  1047.  
  1048.