0027338: Minor corrections in Tcl samples and documentation
[occt.git] / samples / tcl / pencil.tcl
1 # Sample demonstrating assignment of colors to faces in XDE
2
3 #Category: XDE
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
30 text2brep text "CAD Assistant" -font Times -height 10
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
61 vrenderparams -msaa 8
62 vsetcolorbg 255 255 255
63
64 #param write.iges.brep.mode 1
65 #WriteIges D d:/pencil3.igs