2 puts "OCC25777: Draw Harness, ViewerTest - make commands defining standard views to match their names"
6 pload MODELING VISUALIZATION
8 box b0 -70 -70 -70 140 140 140
11 text2brep top Top -height 30 -aspect bold -halign center -valign center -pos 0 30 70 -plane 0 0 1 1 0 0 -composite on
13 prism ptop top 0 0 -10
16 text2brep bottom Bottom -height 30 -aspect bold -halign center -valign center -pos 0 -30 -70 -plane 0 0 -1 1 0 0 -composite on
18 prism pbottom bottom 0 0 10
21 text2brep front Front -height 30 -aspect bold -halign left -valign top -pos -70 -70 65 -plane 0 -1 0 1 0 0 -composite on
23 prism pfront front 0 10 0
26 text2brep back Back -height 30 -aspect bold -halign left -valign bottom -pos 70 70 -60 -plane 0 1 0 -1 0 0 -composite on
28 prism pback back 0 -10 0
31 text2brep right Right -height 30 -aspect bold -halign left -valign top -pos 70 -60 65 -plane 1 0 0 0 1 0 -composite on
33 prism pright right -10 0 0
36 text2brep left Left -height 30 -aspect bold -halign left -valign bottom -pos -70 60 -60 -plane -1 0 0 0 -1 0 -composite on
38 prism pleft left 10 0 0
42 bcut cutbox cutbox pbottom
43 bcut cutbox cutbox pfront
44 bcut cutbox cutbox pback
45 bcut cutbox cutbox pleft
46 bcut cutbox cutbox pright
59 vdump $imagedir/${casename}_new_0_axo.png
63 xwd $imagedir/${casename}_old_0_axo.png
70 vdump $imagedir/${casename}_new_1_front.png
74 xwd $imagedir/${casename}_old_1_front.png
78 vdump $imagedir/${casename}_new_2_back.png
82 xwd $imagedir/${casename}_old_2_back.png
86 vdump $imagedir/${casename}_new_3_right.png
90 xwd $imagedir/${casename}_old_3_right.png
94 vdump $imagedir/${casename}_new_4_left.png
98 xwd $imagedir/${casename}_old_4_left.png
102 vdump $imagedir/${casename}_new_5_top.png
106 xwd $imagedir/${casename}_old_5_top.png
110 vdump $imagedir/${casename}_new_6_bottom.png
114 xwd $imagedir/${casename}_old_6_bottom.png