1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
ski 863f782a42 0027146: Create command checkplatform
Command checkplatform was created.
All test cases were updated.

Global variable os_type was eliminated.
New option -osx (MacOS) for procedure checkplatform was added.
2016-04-08 11:42:00 +03:00

26 lines
360 B
Plaintext
Executable File

puts "============"
puts "OCC21091"
puts "OCC21450"
puts "============"
puts ""
if { [array get Draw_Groups "XSTEP-STL/VRML"] == "" } {
pload XSDRAW
}
meshfromstl m [locate_data_file shape.stl]
meshtext m
vsetdispmode m 34
set aFile $imagedir/shape.pdf
set format PDF
if { [checkplatform -windows] } {
set size 154489
} else {
set size 144401
}