[occt.git] / samples / tcl / pencil.tcl

# 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

#XSetColor D body_1   0. 0. 1.
for {set i 1} {$i <= 26} {incr i} {XSetColor D body_1_$i 0. 0. 1.}
XSetColor D body_1_1 0.9 0.5 0.4
XSetColor D body_1_9 0.9 0.5 0.4
for {set i 10} {$i <= 22} {incr i} {XSetColor D body_1_$i 0.6 0.7 0.0}
XSetColor D core_1 0.1 0.1 1.
foreach ff [explode core_1 f] { XSetColor D $ff 0.1 0.1 1. ; puts "set color $ff" }

XShow D

vfit
vsetdispmode 1
vsetcolorbg 255 255 255

#param write.iges.brep.mode 1
#WriteIges D d:/pencil3.igs
Commit	Line	Data
92ac0eb7	1	# Sample demonstrating assignment of colors to faces in XDE
92ac0eb7	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
	61	vsetcolorbg 255 255 255
	62
	63	#param write.iges.brep.mode 1
	64	#WriteIges D d:/pencil3.igs