+++ /dev/null
-puts "============"
-puts "OCC25777: Draw Harness, ViewerTest - make commands defining standard views to match their names"
-puts "============"
-puts ""
-
-pload MODELING VISUALIZATION
-
-box b0 -70 -70 -70 140 140 140
-
-# Top View
-text2brep top Top -height 30 -aspect bold -halign center -valign center -pos 0 30 70 -plane 0 0 1 1 0 0 -composite on
-explode top Sh
-prism ptop top 0 0 -10
-
-# Bottom View
-text2brep bottom Bottom -height 30 -aspect bold -halign center -valign center -pos 0 -30 -70 -plane 0 0 -1 1 0 0 -composite on
-explode bottom Sh
-prism pbottom bottom 0 0 10
-
-# Front View
-text2brep front Front -height 30 -aspect bold -halign left -valign top -pos -70 -70 65 -plane 0 -1 0 1 0 0 -composite on
-explode front Sh
-prism pfront front 0 10 0
-
-# Back View
-text2brep back Back -height 30 -aspect bold -halign left -valign bottom -pos 70 70 -60 -plane 0 1 0 -1 0 0 -composite on
-explode back Sh
-prism pback back 0 -10 0
-
-# Right View
-text2brep right Right -height 30 -aspect bold -halign left -valign top -pos 70 -60 65 -plane 1 0 0 0 1 0 -composite on
-explode right Sh
-prism pright right -10 0 0
-
-# Left View
-text2brep left Left -height 30 -aspect bold -halign left -valign bottom -pos -70 60 -60 -plane -1 0 0 0 -1 0 -composite on
-explode left Sh
-prism pleft left 10 0 0
-
-# Cut operations
-bcut cutbox b0 ptop
-bcut cutbox cutbox pbottom
-bcut cutbox cutbox pfront
-bcut cutbox cutbox pback
-bcut cutbox cutbox pleft
-bcut cutbox cutbox pright
-
-vclear
-vclose all
-vinit
-
-vtrihedron tr
-vdisplay cutbox
-
-vfit
-
-# Axo View
-vaxo
-vdump $imagedir/${casename}_new_0_axo.png
-
-axo
-fit
-xwd $imagedir/${casename}_old_0_axo.png
-
-vsetdispmode 1
-vmoveto 200 200
-
-# Front View
-vfront
-vdump $imagedir/${casename}_new_1_front.png
-
-front
-fit
-xwd $imagedir/${casename}_old_1_front.png
-
-# Back View
-vback
-vdump $imagedir/${casename}_new_2_back.png
-
-back
-fit
-xwd $imagedir/${casename}_old_2_back.png
-
-# Right View
-vright
-vdump $imagedir/${casename}_new_3_right.png
-
-right
-fit
-xwd $imagedir/${casename}_old_3_right.png
-
-# Left View
-vleft
-vdump $imagedir/${casename}_new_4_left.png
-
-left
-fit
-xwd $imagedir/${casename}_old_4_left.png
-
-# Top View
-vtop
-vdump $imagedir/${casename}_new_5_top.png
-
-top
-fit
-xwd $imagedir/${casename}_old_5_top.png
-
-# Bottom View
-vbottom
-vdump $imagedir/${casename}_new_6_bottom.png
-
-bottom
-fit
-xwd $imagedir/${casename}_old_6_bottom.png