#!/bin/csh -f

# Constructor to aid input script rotate-4dtorusBpp (this directory)
# April 11, 1996
# Rob Scharein


# Constructor arguments:
#    $0 Constructor executable file (this file).
#    $1 First file read by KnotPlot (the prefile).
#    $2 Second file read by KnotPlot (the postfile).
#    $3 The type of machine we're running on (sgi, ibm, etc...)
#    $4 A flag either 0 or 1.
#    $5 Name of constructor.
#       Anymore more arguments are the arguments to the contructor
#       from the KnotPlot command line.

switch ($4)
case 0:
  
  echo "" > $1

# Find the pixto4dtorus program itself.  Note, the following may not work
# correctly if KnotPlot is run from the demos directory and . is in
# the path before the demos directory.

  set thisfile = $0
  set demos = $thisfile:h
  set kphome = $demos:h

# Input file is an Alias 8-bit matte (pix) file.  Contact me
# for the source to pixto4dtorus if you're interested.

  set prog = $kphome/resource/$3/pixto4dtorus
  $prog $kphome/resource/images/mystery-text.matte > $1".4d"
  echo sload $1".4d" > $2

  breaksw
endsw

