Return to Statement

Indicate Generic Point Example

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

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

Use of the GPOS Statement to Create a Rectangle