92ac0eb7 |
1 | # Sample demonstrating assignment of colors to faces in XDE |
2 | |
5bffb882 |
3 | #Category: XDE |
92ac0eb7 |
4 | #Title: Assignment of colors to faces |
5 | |
6 | pload MODELING VISUALIZATION OCAF XDE |
7 | |
8 | box b 0 -20 -10 100 40 20 |
9 | compound b b b a |
10 | explode a |
11 | trotate a_1 0 0 0 1 0 0 60 |
12 | trotate a_2 0 0 0 1 0 0 -60 |
13 | bcommon b a a_1 |
14 | bcommon b b a_2 |
15 | |
16 | pcylinder c 4 100 |
17 | trotate c 0 0 0 0 1 0 90 |
18 | |
19 | psphere s 1.4 |
20 | ttranslate s 99.2 0 0 |
21 | bfuse cx c s |
22 | |
23 | pcone e 60 0.5 101 |
24 | trotate e 0 0 0 0 1 0 90 |
25 | |
26 | bcommon body b e |
27 | bcut body body c |
28 | bcommon core cx e |
29 | |
ac84fcf6 |
30 | text2brep text "CAD Assistant" -font Times -height 10 |
92ac0eb7 |
31 | ttranslate text 10 -4 10 |
32 | prism tr text 0 0 -1 |
33 | bfuse body body tr |
34 | |
35 | donly body core |
36 | |
37 | #vdisplay body core |
38 | #vsetcolor body yellow |
39 | #vsetcolor core red |
40 | |
41 | explode body so |
42 | explode body_1 f |
43 | explode core so |
44 | |
45 | NewDocument D |
46 | XAddShape D body_1 |
47 | XAddShape D core_1 |
48 | |
49 | #XSetColor D body_1 0. 0. 1. |
50 | for {set i 1} {$i <= 26} {incr i} {XSetColor D body_1_$i 0. 0. 1.} |
51 | XSetColor D body_1_1 0.9 0.5 0.4 |
52 | XSetColor D body_1_9 0.9 0.5 0.4 |
53 | for {set i 10} {$i <= 22} {incr i} {XSetColor D body_1_$i 0.6 0.7 0.0} |
54 | XSetColor D core_1 0.1 0.1 1. |
55 | foreach ff [explode core_1 f] { XSetColor D $ff 0.1 0.1 1. ; puts "set color $ff" } |
56 | |
57 | XShow D |
58 | |
59 | vfit |
60 | vsetdispmode 1 |
63fad07e |
61 | vrenderparams -msaa 8 |
293211ae |
62 | vbackground -color WHITE |
92ac0eb7 |
63 | |
64 | #param write.iges.brep.mode 1 |
65 | #WriteIges D d:/pencil3.igs |