0024201: Remove TODO "Tcl Exception: File aaa.stl could not be found" and similar...
[occt.git] / tests / 3rdparty / export / A1
1 puts "============"
2 puts "OCC21091"
3 puts "OCC21450"
4 puts "============"
5 puts ""
6
7 if { [array get Draw_Groups "XSTEP-STL/VRML"] == "" } {
8     pload XSDRAW
9 }
10
11 meshfromstl m [locate_data_file shape.stl]
12
13 meshdispmode m 34
14
15 set aFile $imagedir/shape.pdf
16
17 set format PDF
18
19 set size 154489