/usr/share/doc/libplplot12/examples/tcl/x10.tcl is in plplot-tcl-dev 5.10.0+dfsg2-0.1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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
}
|