/usr/share/doc/libplplot12/examples/tcl/x18 is in plplot-tcl-dev 5.10.0+dfsg2-0.1ubuntu2.
This file is owned by root:root, with mode 0o755.
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 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | #!/bin/sh
#--------------------------------*- Tcl -*------------------------------------#
# $Id: x18 11447 2011-01-07 07:46:45Z arjenmarkus $
#
# Maurice LeBrun
# 12/24/02
#
# A front-end to x18.tcl for running directly from the command line, locating
# pltcl via PATH.
# Handles all usual plplot command arguments. See "pltcl -h" for info.
#-----------------------------------------------------------------------------#
#\
exec pltcl -f "$0" ${1+"$@"}
#
# This example uses UTF-8 characters, placed directly in the source code
#
if { [encoding system] != "utf-8" } {
if { [package vsatisfies [info patch] 8.5] } {
source -encoding utf-8 x18.tcl
} else {
#
# Pre-Tcl 8.5
#
set infile [open "x18.tcl"]
set contents [read $infile]
close $infile
eval [encoding convertfrom utf-8 \
[encoding convertto [encoding system] $contents]]
}
} else {
#
# Plain source will do
#
source x18.tcl
}
plinit
x18
plend
|