DEFINITION VDIOutput; (* SJ *) PROCEDURE VArc*(Handle,X,Y,Radius,BegAng,EndAng : INTEGER); PROCEDURE VBar*(Handle,x1,y1,x2,y2 : INTEGER); PROCEDURE VCircle*(Handle,X,Y,Radius : INTEGER); PROCEDURE VContourfill*(Handle,X,Y,BorderColor : INTEGER); PROCEDURE VEllarc*(Handle,X,Y,Xrad,Yrad,BegAng,EndAng : INTEGER); PROCEDURE VEllipse*(Handle,X,Y,Xrad,Yrad : INTEGER); PROCEDURE VEllpie*(Handle,X,Y,Xrad,Yrad,BegAng,EndAng : INTEGER); PROCEDURE VFillarea*(Handle,Count : INTEGER; VAR PxyArray : ARRAY OF INTEGER); PROCEDURE VGtext*(Handle,X,Y : INTEGER; String : ARRAY OF CHAR); PROCEDURE VJustified*(Handle,X,Y : INTEGER; String : ARRAY OF CHAR; Length,WordSpace,CharSpace : INTEGER); PROCEDURE VPieslice*(Handle,X,Y,Radius,BegAng,EndAng : INTEGER); PROCEDURE VPline*(Handle,Count : INTEGER; VAR PxyArray : ARRAY OF INTEGER); PROCEDURE VPmarker*(Handle,Count : INTEGER; VAR PxyArray : ARRAY OF INTEGER); PROCEDURE VRbox*(Handle,x1,y1,x2,y2 : INTEGER); PROCEDURE VRfbox*(Handle,x1,y1,x2,y2 : INTEGER); PROCEDURE VrRecfl*(Handle,x1,y1,x2,y2 : INTEGER); END VDIOutput.