#!/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
