| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- # Sample demonstrating assignment of colors to faces in XDE
- #Category: XDE
- #Title: Assignment of colors to faces
- pload MODELING VISUALIZATION OCAF XDE
- box b 0 -20 -10 100 40 20
- compound b b b a
- explode a
- trotate a_1 0 0 0 1 0 0 60
- trotate a_2 0 0 0 1 0 0 -60
- bcommon b a a_1
- bcommon b b a_2
- pcylinder c 4 100
- trotate c 0 0 0 0 1 0 90
- psphere s 1.4
- ttranslate s 99.2 0 0
- bfuse cx c s
- pcone e 60 0.5 101
- trotate e 0 0 0 0 1 0 90
- bcommon body b e
- bcut body body c
- bcommon core cx e
- text2brep text "CAD Assistant" -font Times -height 10
- ttranslate text 10 -4 10
- prism tr text 0 0 -1
- bfuse body body tr
- donly body core
- #vdisplay body core
- #vsetcolor body yellow
- #vsetcolor core red
- explode body so
- explode body_1 f
- explode core so
- NewDocument D
- XAddShape D body_1
- XAddShape D core_1
- for {set i 1} {$i <= 26} {incr i} {XSetColor D body_1_$i BLUE}
- XSetColor D body_1_1 E68066
- XSetColor D body_1_9 E68066
- for {set i 10} {$i <= 22} {incr i} {XSetColor D body_1_$i 99B300}
- XSetColor D core_1 1A1AFF
- foreach ff [explode core_1 f] { XSetColor D $ff 1A1AFF ; puts "set color $ff" }
- vclear
- vinit View1
- XDisplay -dispMode 1 D -explore
- vfit
- vrenderparams -msaa 8
- vbackground -color WHITE
- #param write.iges.brep.mode 1
- #WriteIges D d:/pencil3.igs
|
