1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#----------------------------------------------------------------------------
# $Id: x10.tcl 8674 2008-08-19 10:54:16Z andrewross $
#----------------------------------------------------------------------------
proc x10 {{w loopback}} {
$w cmd pladv 0
$w cmd plvpor 0.0 1.0 0.0 1.0
$w cmd plwind 0.0 1.0 0.0 1.0
$w cmd plbox bc 0.0 0 bc 0.0 0
$w cmd plsvpa 50.0 150.0 50.0 100.0
$w cmd plwind 0.0 1.0 0.0 1.0
$w cmd plbox bc 0.0 0 bc 0.0 0
$w cmd plptex 0.5 0.5 1.0 0.0 0.5 "BOX at (50,150,50,100)"
# Restore defaults
# $w cmd plcol0 1
}
|
