| | 1 | puts "============" |
| | 2 | puts "CR24293" |
| | 3 | puts "============" |
| | 4 | puts "" |
| | 5 | ####################################################################### |
| | 6 | # Dimension flyout lines don't belong to the dimension sensitive entity. |
| | 7 | ####################################################################### |
| | 8 | |
| | 9 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
| | 10 | |
| | 11 | vinit View1 |
| | 12 | vpoint lengthP1 0 0 0 |
| | 13 | vpoint lengthP2 10 10 10 |
| | 14 | vdimension dim1 -length -plane xoy -shapes lengthP1 lengthP2 -font SansFont |
| | 15 | vfit |
| | 16 | vmoveto 202 191 |
| | 17 | |
| | 18 | set x_coord 272 |
| | 19 | set y_coord 198 |
| | 20 | checkcolor $x_coord $y_coord 0 1 1 |
| | 21 | if { $stat != 1 } { |
| | 22 | puts "Error : Highlighting of length dimension is wrong." |
| | 23 | } |
| | 24 | |
| | 25 | set only_screen 1 |
projects / occt.git / blame_incremental