home *** CD-ROM | disk | FTP | other *** search
- #!/bin/csh -f
- # @(#) $Header: fstocards,v 1.1 90/06/11 02:56:00 jef Exp $
- #
- # fstocards - turn a FaceSaver file into PostScript for a page of fake IDs
- #
- # Copyright (C) 1990 by Jef Poskanzer. All rights reserved.
-
- if ( $#argv != 0 && $#argv != 1 && $#argv != 2 ) then
- echo "usage: fstocards [fsfile [cardfile]]"
- exit 1
- endif
-
- if ( $#argv == 0 ) then
- set fs=/tmp/fstocards$$
- rm -f $fs
- cat > $fs
- else
- set fs="$1"
- endif
-
- if ( $#argv == 2 ) then
- set cards="$2"
- else
- set cards=( *.card )
- endif
-
- # Add initialization.
- cat utils.ps cards.ps
-
- foreach i ( $cards )
- # Add card.
- cat $i
- # Add image data.
- cat $fs
- # Add padding.
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- echo '0000000000000000000000000000000000000000000000000000000000000000'
- end
-
- # All done.
- echo 'showpage'
- if ( $#argv == 0 ) then
- rm -f $fs
- endif
-