samples/tcl/pencil.tcl

   1 # Sample demonstrating assignment of colors to faces in XDE
   2
   3 #Category: Data Exchange
   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" Times 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 vsetcolorbg 255 255 255
  62
  63 #param write.iges.brep.mode 1
  64 #WriteIges D d:/pencil3.igs