Kaypro 10 - Page 83

To observe the use of these procedures, we recommend that you run the follow-
ing program: $INCLUDE GRAPHICS VAR
V1, H1 , RADIUS = INTEGER
VAR V2, H2, HEIGHT, WIDTH = INTEGER
VAR V3 , H3, LENGTH = INTEGER
VAR V4,H4,H, W, V.PERSP, H.PERSP, INT, DEPTH = INTEGER
V1 = 15
H1 = 15
RADIUS = 10
CIRCLE V1, H1, RADIUS
V2 = 30
H2 = 10
HEIGHT = 20
WIDTH = 40
RECTANGLE V2, H2, HEIGHT, WIDTH
V3 = 60
H3 = 20
LENGTH = 30
SQUARE V3 , H3, LENGTH
V4 = 80
H4 = 80
H = 50
W = 15
DEPTH = 8
V.PERSPECTIVE = - 1
H.PERSPECTIVE = 1
INTERIOR = 0
BAR V4, H4, H, W, DEPTH, INT, V.PERSP, H.PERSP
V4 = 20
H4 = 130
H = 50
W = 10
DEPTH = 15
V.PERSPECTIVE = 1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INT, V.PERS, H.PERSP
71