CALCOMP
PostScript Emulation of some CALCOMP Plotting Commands.

CALCOMP is a FORTRAN77 program which accepts several calls to Calcomp plotter routines, and tries to create a PostScript file corresponding to the desired image.

The Calcomp plotter was an ancient pen and paper plotting device. One memorable feature of the accompanying software was the strange use of the PLOT command, which had arguments X, Y, and IPEN. When IPEN was 2 or 3, the command resulted in pen drawing or movement, but other values of IPEN had special meanings. In particular, the value of 999 was used to terminate the plot. It's bizarre and clunky features like this that stick in one's memory.

This library assumes that the user's input data has been scaled to fit on a standard "portrait style" page of dimensions 8.5 by 11 inches. If the user's data does not fall within this range, the plot will not be drawn correctly.

Related Data and Programs:

PS is a data directory which contains some information about and examples of PostScript graphics files.

PS_WRITE is a FORTRAN90 library of routines that can be used to create a PostScript graphics file.

TOMS626 is a FORTRAN77 library of routines for computing contour lines of data associated with a triangulated set of points; the contour lines are drawn using calls to Calcomp plotter software.

Reference:

1. Calcomp Graphics Functional Software,
   1969

Source Code:

• calcomp.f, the source code.
• calcomp.csh, commands to compile the source code.

Examples and Tests:

• calcomp_prb.f, a sample calling program.
• calcomp_prb.csh, commands to compile and run the sample program.
• calcomp_prb.out, the output from a run of the sample program.
• calcomp_001.ps, the PostScript file created.
• calcomp_001.png, a PNG image of the plot.

List of Routines:

• CH_IS_DIGIT returns TRUE if a character is a decimal digit.
• CH_TO_DIGIT returns the integer value of a base 10 digit.
• DIGIT_INC increments a decimal digit.
• DIGIT_TO_CH returns the character representation of a decimal digit.
• FILE_NAME_INC generates the next filename in a series.
• GET_UNIT returns a free FORTRAN unit number.
• NUMBER draws a number at a given location.
• PLOT moves the plotting pen to a new position.
• PLOTS is called to initialize a plot.
• S_LEN_TRIM returns the length of a string to the last nonblank.
• SYMBOL plots a symbol.
• TEXT plots text.
• TIMESTAMP prints out the current YMDHMS date as a timestamp.

You can go up one level to the FORTRAN77 source codes.