local/transcript/src/psgrind.c
/* put out a page heading to the PS file */
put out a page heading to the PS file
put out a page heading to the PS file
private InitPage () {
    char    *basename();
    char    header[200];
    register int  OldFont = CurFont;
    TotalPages++;
    fprintf(OutFile, "%%%%Page: ? %d\n", TotalPages);
    fprintf(OutFile, "StartPage\n");
    LinesLeft = 64;
    SeenText = 0;
    cX = cY = -1;
    showpending = 0;
    FirstCol = 1;
    lX = dX = UperInch;
    lY = dY = PageLength - UperHLine * 3 / 2;
    if (Rotated) {
        fprintf(OutFile, "Landscape\n");
	lX = dX = UperInch / 4;
    }
    movepending = None;
    cX = dX; cY = dY;
    if (!NoTitle) {
	SetFont (HeaderFont);
        fprintf(OutFile, "%d %d ", cX, cY);
        movepending = AbsXY;
	if (UsersHeader) {
	    if (*UsersHeader == 0) {
		fprintf(OutFile,"()B\n");
		movepending = None;
		showpending = 0;
	    }
	    else ShowStr (UsersHeader);
	}
	else {
	    Page++;
	    if (FileName == 0)
		    sprintf(header, "Page %d", Page);
	    else
	    sprintf (header, "%s,  page %d", basename(FileName), Page);
	    ShowStr (header);
	}
	FlushShow();
	dX = lX = lX + crX * 3;
	dY = lY = lY + crY * 3;
    }
    else {
	cX = cY = 0;
    }
    SetFont (OldFont);
}
private InitPage ( ) { char * basename ( ) ; char header [ 200 ] ; register int OldFont = CurFont ; TotalPages ++ ; fprintf ( OutFile , " \n " , TotalPages ) ; fprintf ( OutFile , " \n " ) ; LinesLeft = 64 ; SeenText = 0 ; cX = cY = -1 ; showpending = 0 ; FirstCol = 1 ; lX = dX = UperInch ; lY = dY = PageLength - UperHLine * 3 / 2 ; if ( Rotated ) { fprintf ( OutFile , " \n " ) ; lX = dX = UperInch / 4 ; } movepending = None ; cX = dX ; cY = dY ; if ( ! NoTitle ) { SetFont ( HeaderFont ) ; fprintf ( OutFile , " " , cX , cY ) ; movepending = AbsXY ; if ( UsersHeader ) { if ( * UsersHeader == 0 ) { fprintf ( OutFile , " \n " ) ; movepending = None ; showpending = 0 ; } else ShowStr ( UsersHeader ) ; } else { Page ++ ; if ( FileName == 0 ) sprintf ( header , " " , Page ) ; else sprintf ( header , " " , basename ( FileName ) , Page ) ; ShowStr ( header ) ; } FlushShow ( ) ; dX = lX = lX + crX * 3 ; dY = lY = lY + crY * 3 ; } else { cX = cY = 0 ; } SetFont ( OldFont ) ; }
put out a page heading to the PS file
put out a page heading to the PS file
/* fake it to force a moveto */