mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
ac84fcf602
Add new class Font_BRepTextBuilder for generation of formatted BRep text. Delete method Font_BRepFont::RenderText(), which should be replaced by Font_BRepTextBuilder::Perform().
145 lines
3.7 KiB
Tcl
145 lines
3.7 KiB
Tcl
# Creation of 2d drawing
|
|
|
|
#Category: Modeling
|
|
#Title: Snowflake - creation of 2d drawing
|
|
|
|
pload MODELING AISV
|
|
|
|
puts "Generating sample drawing of snowflake..."
|
|
|
|
# make circular elements
|
|
circle c11 5 5 0 5
|
|
circle c12 5 5 0 3
|
|
circle c21 18 7 0 7
|
|
circle c22 18 7 0 5
|
|
circle c31 28.5 5 0 5
|
|
circle c32 28.5 5 0 3
|
|
trim c21 c21 pi/4 -pi/4
|
|
trim c22 c22 pi/4 -pi/4
|
|
trim c31 c31 pi/4 -pi/4
|
|
trim c32 c32 pi/4 -pi/4
|
|
line l21 18 7 0 1 1 0
|
|
line l22 18 7 0 1 -1 0
|
|
line l31 28.5 5 0 1 1 0
|
|
line l32 28.5 5 0 1 -1 0
|
|
trim l21 l21 5 7
|
|
trim l22 l22 5 7
|
|
trim l31 l31 3 5
|
|
trim l32 l32 3 5
|
|
line l1 -6 0 0 0.86602540378443864 0.5 0
|
|
line l2 -6 1 0 1 0 0
|
|
trim l1 l1 0 30
|
|
trim l2 l2 0 45
|
|
mkedge c11 c11
|
|
mkedge c12 c12
|
|
mkedge c21 c21
|
|
mkedge c22 c22
|
|
mkedge c31 c31
|
|
mkedge c32 c32
|
|
mkedge l21 l21
|
|
mkedge l22 l22
|
|
mkedge l31 l31
|
|
mkedge l32 l32
|
|
mkedge l1 l1
|
|
mkedge l2 l2
|
|
wire b11 c11
|
|
wire b12 c12
|
|
orientation b12 R
|
|
|
|
# build one ray
|
|
plane p -6 0 0 0 0 1
|
|
mkface f1 p b11
|
|
add b12 f1
|
|
wire b2 c21 l21 c22 l22
|
|
mkface f2 p b2
|
|
wire b3 c31 l31 c32 l32
|
|
mkface f3 p b3
|
|
prism f5 l1 -5 8.6602540378443864 0
|
|
prism f4 l2 0 -1 0
|
|
compound f1 f2 f3 bc
|
|
bfuse r bc f4
|
|
explode r Sh
|
|
renamevar r_1 r
|
|
bcut r r f5
|
|
explode r Sh
|
|
renamevar r_1 r
|
|
explode r e
|
|
wire w r_4 r_1 r_7 r_8 r_9 r_10 r_11 r_12 r_13 r_14 r_22 r_23 r_24 r_25 r_19 r_20 r_21 r_26 r_35 r_31 r_32 r_33 r_34 r_36 r_37
|
|
tcopy w w1
|
|
tmirror w1 -6 0 0 0 1 0
|
|
wire w w w1
|
|
mkface w p w
|
|
donly w
|
|
|
|
# construct complete snowflake
|
|
tcopy w w1
|
|
tcopy w w2
|
|
tcopy w w3
|
|
tcopy w w4
|
|
tcopy w w5
|
|
trotate w1 -6 0 0 0 0 1 60
|
|
trotate w2 -6 0 0 0 0 1 120
|
|
trotate w3 -6 0 0 0 0 1 180
|
|
trotate w4 -6 0 0 0 0 1 240
|
|
trotate w5 -6 0 0 0 0 1 300
|
|
bfuse w w w1
|
|
bfuse w w w2
|
|
bfuse w w w3
|
|
bfuse w w w4
|
|
bfuse w w w5
|
|
unifysamedom r w
|
|
|
|
# keep only wires in compound
|
|
eval compound [explode r w] snowflake
|
|
tscale snowflake -6 0 0 1.5
|
|
|
|
# draw frame loosely following GOST 2.104-68
|
|
polyline frame -100 -100 0 172 -100 0 172 100 0 -100 100 0 -100 -100 0
|
|
polyline t1 52 -100 0 52 -45 0 172 -45 0
|
|
polyline t2 52 -60 0 172 -60 0
|
|
polyline t3 52 -85 0 172 -85 0
|
|
polyline t4 122 -100 0 122 -60 0
|
|
polyline t5 122 -80 0 172 -80 0
|
|
polyline t6 122 -65 0 172 -65 0
|
|
polyline t7 142 -80 0 142 -85 0
|
|
polyline t8 137 -80 0 137 -60 0
|
|
polyline t9 154 -80 0 154 -60 0
|
|
compound frame t1 t2 t3 t4 t5 t6 t7 t8 t9 lines
|
|
|
|
# add text
|
|
text2brep sample "SAMPLE" -font Arial -height 10 -pos 90 -55 0 -aspect bolditalic
|
|
text2brep occ "Open CASCADE" -font Times -height 6 -pos 125 -95 0
|
|
text2brep name "Snowflake" -font Courier -height 7 -pos 65 -75 0 -aspect italic
|
|
text2brep material "Ice" -font Courier -height 7 -pos 75 -95 0 -aspect italic
|
|
text2brep sheets "Sheets 1" -font Courier -height 3.5 -pos 145 -83 0 -aspect italic
|
|
text2brep scale "Scale\n\n1:100" -font Courier -height 3.5 -pos 157 -63 0 -aspect italic -valign topfirstline
|
|
text2brep mass "Mass\n\n1 mg" -font Courier -height 3.5 -pos 140 -63 0 -aspect italic -valign topfirstline
|
|
eval compound [explode sample w] sample
|
|
eval compound [explode occ w] occ
|
|
eval compound [explode name w] name
|
|
eval compound [explode material w] material
|
|
eval compound [explode sheets w] sheets
|
|
eval compound [explode scale w] scale
|
|
eval compound [explode mass w] mass
|
|
compound sample occ name material sheets scale mass text
|
|
|
|
compound snowflake lines text drawing
|
|
|
|
# display in 3d view
|
|
vinit Driver1/Viewer1/View1 w=1024 h=768
|
|
vdisplay snowflake lines text
|
|
vsetcolor snowflake 0 0 0
|
|
vsetcolor lines 0 0 0
|
|
vsetcolor text 0 0 0
|
|
vsetcolorbg 255 255 255
|
|
vtop
|
|
vfit
|
|
|
|
# add dimension
|
|
explode snowflake v
|
|
vdimension length -length -shapes snowflake_89 snowflake_15 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh
|
|
|
|
if { [regexp HAVE_GL2PS [dversion]] } {
|
|
puts "You can use command vexport to generate PDF: vexport your_file_path.pdf"
|
|
}
|