perm filename DPY.SAI[GEM,BGB] blob
sn#092037 filedate 1974-03-18 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN
C00004 ENDMK
C⊗;
BEGIN
REQUIRE "DPYSUB.HDR[1,PDQ]" SOURCE_FILE;
INTEGER ARRAY DPYBUF[0:1000];
INTEGER X,Y,I,J;
PROCEDURE SQUARE (INTEGER X,Y,S);
BEGIN
AIVECT (X+S, Y+S);
AVECT (X+S, Y-S);
AVECT (X-S, Y-S);
AVECT (X-S, Y+S);
AVECT (X+S, Y+S);
END;
PROCEDURE CIRCLE (INTEGER CX,CY,S);
BEGIN
INTEGER X,Y;
X←S;Y←0;
AIVECT (CX+X,CY+Y);
FOR I←1 STEP 1 UNTIL 100 DO
BEGIN
X←X-Y/16;
Y←Y+X/16;
AVECT (CX + X, CY + Y);
END;END;
DPYSET (DPYBUF);
SQUARE (0,0,300);
SQUARE (0,0,100);
CIRCLE (0,0,100); CIRCLE (100,100,400);
DPYOUT (0);
INCHRW;
FOR X←20 STEP 10 UNTIL 400 DO
BEGIN SQUARE (X, X/2,X/10); DPYOUT (0);
END;
INCHRW;
END;