Demonstrates the ENCONT major word.
ENTITY/LIN(4),CUBE,MYPT
NUMBER/VAL
$$
LIN(1) = LINE/-1,-1,0,-1,1,0
LIN(2) = LINE/-1,1,0,1,1,0
LIN(3) = LINE/1,1,0,1,-1,0
LIN(4) = LINE/1,-1,0,-1,-1,0
$$
$$ CREATE SOLID, POINT, THEN PERFORM A ENCONT
$$
CUBE = SOLEXT/LIN(1..4),HEIGHT,2,AXIS,0,0,1
MYPT = POINT/.5,.5,.25
VAL = ENCONT/MYPT,CUBE
MESSG/ ' (1=IN, 2=OUT, 3=ON) Returned '+ISTR(VAL)
HALT