KFK2666.pdf

12-11 -627-
Nach dem %INCLUDE auf QQPLOT sind folgende Werte zugreifbar, die
Eigenschaften des Plotters beschreiben:
QQDEVICE (CHAR(B)) Plotter-Kennzeichnung: CALCOMP, STATOS,
XYNETICS oder TEKTRONIX
QQHEIGHT (DEC FLOAT(6)) Höhe des Zeichenpapiers in Meter
QQLENGTH (DEC FLOAT(6)) Länge (Breite) des Zeichenpapiers in Meter
Beispiel
xMODUL PLOT;
PLOT: PROC(X,Y,N);
DCL (X, Y) (x)DEC FLOAT(6);
%INCLUDE QQMAC(QQPLOT);
Ix Zeichenfähigkeiten werden benutzt xl
QQLEN=2000;
Ix Ändern der Pufferlänge xl
%INCLUDE QQMAC(QQCALCIN);
Ix Initialisieren der Plotroutinen xl
%INCLUDE QQMAC(QQLINE,QQAXIS);
Ix LI NE und AXIS werden benutzt xl
DCL SMOOT ENTRY(DEC FLOAT(6),
DEC FLOAT(6), BIN FIXED(31)) OPTIONS (FORTRAN) EXTERNAL;
Ix Auch SMOOT wird benötigt xl
BREITE=QQHEIGHT;
Ix Zeichenpapierhöhe xl
CALL FACTOR(BREITE/100.);
Ix FACTOR darf nicht deklariert werden xl
CALL LINE(X,Y,N, ... );
CALL AXIS( ... );
CALL SMOOT (... ) ;
END PLOT;