; Slant calibration data. function SLTtype ;/* IMAGE data. */ SLTstructure = { $ nc:0L,$ image: PTR_NEW() $; image data } return, SLTstructure end ;/* Slant calibration data. */ ;struct SLTstructure { ; int nc; /* number of columns */ ; float *image; /* image data */ ;}; ;typedef struct SLTstructure SLTtype;