![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to lasergnu CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot|
Return to lasergnu CVS log | Up to [local] / OpenXM_contrib / gnuplot |
1.1 ! maekawa 1: #!/bin/csh -f
! 2: #
! 3: # $Id: lasergnu,v 1.5 1994/01/29 16:27:12 alex Exp $
! 4: #
! 5: # Print gnuplot output on an Imagen or Postscript laser printer.
! 6:
! 7: set print_banner = on # Print a banner page unless told otherwise.
! 8: set input_files = () # the plot input command files
! 9: set lpr_opts = () # options to lpr
! 10:
! 11: # Default printer set by shell variable PRINTER.
! 12: if (! $?PRINTER) then
! 13: if ($?LASER) then
! 14: set PRINTER=$LASER
! 15: else
! 16: set PRINTER="lw0"
! 17: endif
! 18: endif
! 19: set printer = (-P$PRINTER)
! 20:
! 21: # File for plot commands, and for plot output
! 22: set TMP=/tmp/plot$$
! 23: set outfile=$TMP.out # the output file
! 24: onintr cleanup
! 25:
! 26: # default is Imagen mode for Imagen printer; see -p option
! 27: set setterm="set terminal imagen"
! 28: set LANG="-Limpress"
! 29:
! 30: # Loop through the command-line arguments.
! 31:
! 32: top:
! 33: if ($#argv > 0) then
! 34:
! 35: switch ("$argv[1]")
! 36:
! 37: case -b*: # Do not print a banner page.
! 38: case -J*: # Compatible with imprint.
! 39: set print_banner = off
! 40: set lpr_opts=($lpr_opts -h)
! 41: shift argv
! 42: goto top
! 43:
! 44: case -f?*: # Specify file containing plot commands
! 45: set input_files = ($input_files `echo $argv[1] | sed 's/^-f//'`)
! 46: shift argv
! 47: goto top
! 48:
! 49: case -f: # Specify file containing plot commands
! 50: shift argv
! 51: if ($#argv > 0) then
! 52: set input_files = ($input_files $argv[1])
! 53: shift argv
! 54: else
! 55: echo "Usage: -f file ..."
! 56: echo "Type lasergnu -help for help."
! 57: exit (1)
! 58: endif
! 59: goto top
! 60:
! 61: case -F?*: # Specify font
! 62: set fontsize = `echo $argv[1] | sed 's/^-F//'`)
! 63: shift argv
! 64: goto top
! 65:
! 66: case -F: # Specify font
! 67: shift argv
! 68: if ($#argv > 0) then
! 69: set font = $argv[1]
! 70: shift argv
! 71: else
! 72: echo "Usage: -F font"
! 73: echo "Type lasergnu -help for help."
! 74: exit (1)
! 75: endif
! 76: goto top
! 77:
! 78: case -t?*: # Specify title of plot
! 79: echo set title \""`echo $argv[1] | sed 's/^-t//'`"\" >> $TMP
! 80: shift argv
! 81: goto top
! 82:
! 83: case -t: # Specify title of plot
! 84: shift argv
! 85: if ($#argv > 0) then
! 86: echo set title \""$1"\" >> $TMP
! 87: shift argv
! 88: else
! 89: echo "Usage: -t title ..."
! 90: echo "Type lasergnu -help for help."
! 91: exit (1)
! 92: endif
! 93: goto top
! 94: case -help:
! 95: goto usage
! 96:
! 97: case -P?*: # Set the printer, exactly as by itroff.
! 98: set printer = $argv[1]
! 99: shift argv
! 100: goto top
! 101:
! 102: case -P: # Set the printer, exactly as by itroff.
! 103: shift argv
! 104: if ($#argv > 0) then
! 105: set printer = (-P$argv[1])
! 106: shift argv
! 107: else
! 108: echo "Usage: -P printer ..."
! 109: echo "Type lasergnu -help for help."
! 110: exit (1)
! 111: endif
! 112: goto top
! 113:
! 114: # use impress
! 115: case -I:
! 116: echo Imagen is the default mode now
! 117: shift argv
! 118: goto top
! 119:
! 120: # use postscript instead of impress language
! 121: case -p:
! 122: set setterm="set term postscript"
! 123: set LANG="-Lpostscript"
! 124: shift argv
! 125: goto top
! 126:
! 127: case -s?*: # Specify scale of plot
! 128: echo set size `echo $argv[1] | sed 's/^-s//'` >> $TMP
! 129: shift argv
! 130: goto top
! 131:
! 132: case -s: # Specify scale of plot
! 133: shift argv
! 134: if ($#argv > 0) then
! 135: echo set size "$1" >> $TMP
! 136: shift argv
! 137: else
! 138: echo "Usage: -s xscale,yscale"
! 139: echo "Type lasergnu -help for help."
! 140: exit (1)
! 141: endif
! 142: goto top
! 143:
! 144: case -w?*: # Specify split page in multiplot (horiz,vertical)
! 145: set windows=`echo "$argv[1]\]" | sed 's/^-s/[/'`
! 146: shift argv
! 147: goto top
! 148:
! 149: case -w: # Specify split page
! 150: shift argv
! 151: if ($#argv > 0) then
! 152: set windows="[$argv[1]]"
! 153: shift argv
! 154: else
! 155: echo "Usage: -w horiz,vertical"
! 156: echo "Type lasergnu -help for help."
! 157: exit (1)
! 158: endif
! 159: goto top
! 160:
! 161: case -O:
! 162: set orientation="portrait"
! 163: shift argv
! 164: goto top
! 165:
! 166: case -?*:
! 167: echo "I do not recognize option $argv[1]."
! 168: goto usage
! 169:
! 170: default:
! 171: echo "$argv[1]" >> $TMP
! 172: shift argv
! 173: goto top
! 174:
! 175: endsw
! 176: endif
! 177:
! 178: # try to devine the printer type
! 179: if ($printer =~ -Plw*) then
! 180: set setterm="set term postscript"
! 181: set LANG="-Lpostscript"
! 182: endif
! 183:
! 184: if ($printer =~ -Pim*) then
! 185: set setterm="set term imagen $windows $orientation $font"
! 186: set LANG="-Limpress"
! 187: endif
! 188:
! 189: # Set up input file
! 190: echo "$setterm" > $TMP.plt
! 191: echo set output \"$outfile\" >> $TMP.plt
! 192: if (-e $TMP) cat $TMP >> $TMP.plt
! 193: grep -v "set te" $input_files | grep -v "set o" >> $TMP.plt
! 194: echo "quit" >> $TMP.plt
! 195: # If input file is specified AND command line contains plot commands, then
! 196: # do command line args first, then plot commands in input file.
! 197: gnuplot $TMP.plt < /dev/null
! 198: #gnuplot $TMP.plt $input_files
! 199:
! 200: if ($status == 0 && -e $outfile && ! -z $outfile) then
! 201: # The printer is whatever printer was last specified,
! 202: # or the default printer if none was specified.
! 203: # Imagen terminal driver support the page header
! 204: if ($LANG == -Limpress) then
! 205: /usr/local/bin/ipr $LANG $printer \
! 206: -D"jobheader $print_banner" \
! 207: -D"pagereversal on" \
! 208: -D"program lasergnu" $outfile
! 209: else if ($LANG == -Lpostscript) then
! 210: lpr $lpr_opts $printer $outfile
! 211: endif
! 212: else
! 213: echo "lasergnu: error in plotting or empty plot; nothing printed."
! 214: endif
! 215:
! 216: cleanup:
! 217: rm -f $TMP* $outfile
! 218: exit
! 219:
! 220: usage:
! 221: echo "usage: lasergnu [-Pprinter] [-F font] [-w nx,ny ] [-s xscale,yscale][-b] [-O] [-p] [-t title] [-f file] ['plot command']...."
! 222: echo " -O : Orientation Portrait (default is Landscape)"
! 223: echo " -F font : fontsize in points for imagen"
! 224: echo " -w nx,ny : split page (nx and ny: no. plots horizontal and vertical)"
! 225: echo " -s xscale,yscale : scaling in horiz, vertical direction"
! 226: echo " -P printer : Printer to send the plot"
! 227: echo " -p : set gnuplot driver to postscript (default is Imagen)"
! 228: echo " -I : set gnuplot terminal driver to imagen (default)"
! 229: echo " -b : don't print jobheader page"
! 230: echo ""