0026307: Minor improvements in snowflake sample
authorabv <abv@opencascade.com>
Wed, 3 Jun 2015 07:21:23 +0000 (10:21 +0300)
committerbugmaster <bugmaster@opencascade.com>
Thu, 4 Jun 2015 11:40:14 +0000 (14:40 +0300)
- background is set to while, and lines are black
- dimension line added
- category is corrected

samples/tcl/snowflake.tcl
src/DrawResources/DrawTK.tcl

index 7c8e15a..3b50252 100644 (file)
@@ -1,10 +1,12 @@
 # Creation of 2d drawing
 
-#Category: Modeling 
-#Title: Snowflake - creation of 2d geometry
+#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
@@ -121,10 +123,22 @@ eval compound [explode scale w] scale
 eval compound [explode mass w] mass
 compound sample occ name material sheets scale mass text
 
-compound snowflake frame text drawing
+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
\ No newline at end of file
+vfit
+
+# add dimension
+explode snowflake v
+vdimension length -length -shapes snowflake_93 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"
+}
index 44c0170..9e75673 100644 (file)
@@ -236,10 +236,10 @@ proc vsamples {} {
     set istitlefound 0
     while {[gets $chan line] >= 0} {
       if {[lindex [split $line " "] 0] == "#Category:"} {
-        set acategory [string trimleft $line "#Category: "]
+        set acategory [string trim [string trimleft $line "#Category: "]]
       }
       if {[lindex [split $line " "] 0] == "#Title:"} {
-        set atitle [string trimleft $line "#Title: "]
+        set atitle [string trim [string trimleft $line "#Title: "]]
         lappend alistofthree $acategory $atitle $fname
         incr istitlefound
         break