Agilent Technologies 8712ET User's Handbook Supplement

7-12 HP IBASIC Supplement
Graphics and Display Techniques
Drawing Figures
Drawing Figures
Some IBASIC keywords listed below may be used to simplify drawings
and setup diagrams. See “Graphics Exceptions” on page 7-14.
POLYGON Draws all or part of a regular polygon.
RECTANGLE Draws a rectangle.
LABEL Produces alphanumeric labels.
CSIZE Sets size and aspect ratio of labels.
LDIR Defines the angle at which a label is to be drawn.
LORG Defines the relative origin of a label.
These keywords are used in the “BARCODE” program example listed in
the Example Programs Guide, and on the Example Programs Disk. The
keywords appear in the subprograms “Box”, “Circle”, and “Label”
described below.
1700 Box:SUB Box(Xpos,Ypos,Xsize,Ysize)
1710 COM /Scale/ Sc,INTEGER X,Y
1720 MOVE X+(Xpos-Xsize/2)*Sc,Y+(Ypos-Ysize/2)*Sc
1730 RECTANGLE Xsize*Sc,Ysize*Sc
1740 SUBEND
1750 !
1760 Circle:SUB Circle(Xpos,Ypos,Radius)
1770 COM /Scale/ Sc,INTEGER X,Y
1780 MOVE X+Xpos*Sc,Y+Ypos*Sc
1790 POLYGON Radius*Sc,16,16
1800 SUBEND
1810 !
1820 Connect:SUB Connect(X1,Y1,X2,Y2,How)
1830 COM /Scale/ Sc,INTEGER X,Y
1840 MOVE X+X1*Sc,Y+Y1*Sc
1850 SELECT How
1860 CASE 1 !...diagonal
1870 DRAW X+X2*Sc,Y+Y2*Sc
1880 CASE 0
1890 DRAW X+X1*Sc,Y+Y2*Sc
1900 DRAW X+X2*Sc,Y+Y2*Sc
1910 CASE -1
1920 DRAW X+X2*Sc,Y+Y1*Sc
1930 DRAW X+X2*Sc,Y+Y2*Sc
1940 END SELECT
1950 SUBEND
1960 !
1970 Label:SUB Label(Text$,Xpos,Ypos,Size,Lorg,Ldr,Pen)
1980 COM /Scale/ Sc,INTEGER X,Y
1990 LORG Lorg
2000 LDIR Ldr

Agilent Technologies 8712ET Specifications

General

Brand	Agilent Technologies
Model	8712ET
Category	Measuring Instruments
Language	English