Return to Statement

Indicate Screen Position Point Example

This example demonstrates the creation of a rectangle using the POS statement which prompts the user to indicate the diagonal corner screen position points.

$$
$$ Declarations
$$
   ENTITY/L(4)
   L10:POS/'IND FIRST CORNER POINT',X1VAL,Y1VAL,Z1VAL,RS
   JUMP/L10:,TERM:,,,,RSP
   $$
   L20:POS/'IND SECOND CORNER POINT',X2VAL,Y2VAL,Z2VAL,RSP
   JUMP/L20:,TERM:,,,,RSP
   $$
   L(1)=LINE/X1VAL,Y1VAL,X2VAL,Y1VAL
   L(2)=LINE/X2VAL,Y1VAL,X2VAL,Y2VAL
   L(3)=LINE/X2VAL,Y2VAL,X1VAL,Y2VAL
   L(4)=LINE/X1VAL,Y2VAL,X1VAL,Y1VAL
   $$
   TERM:HALT

Use of the POS statement to create a rectangle