85a975f1 |
1 | puts "============" |
2 | puts "CR26035" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Drawing dimension between edge and point |
7 | ####################################################################### |
8 | |
6fb1a930 |
9 | vfont add [locate_data_file DejaVuSans.ttf] SansFont |
10 | |
85a975f1 |
11 | vinit View1 |
12 | vclear |
13 | vaxo |
14 | |
15 | vertex v1 10 -10 0 |
16 | vertex v2 10 10 0 |
17 | edge e v1 v2 |
18 | vdisplay e |
19 | |
20 | vpoint p 10 0 10 |
21 | |
6fb1a930 |
22 | vdimension len -length -shapes e p -plane yoz -font SansFont |
85a975f1 |
23 | |
24 | vfit |
25 | |
26 | set only_screen 1 |
27 | |