Return to Statement

Write to Dialog Box Example

This example demonstrates the creation of a sculptured surface. The MESSG statement is used.

$$
$$ Declarations
$$
    ENTITY/L(3),P(4),SPL,SCULPT
$$
$$ Geometry Definition
$$
    L(1)=LINE/0,0,0,4,2,1
    L(2)=LINE/0,0,0,0,4,1
    L(3)=LINE/0,4,1,5,4,2
    P(1)=POINT/ENDOF,XLARGE,L(1)
    P(2)=POINT/4,2,.5
    P(3)=POINT/4.25,3,1
    P(4)=POINT/ENDOF,XLARGE,L(3)
    SPL=SPLINE/P
    DELETE/P
$$
$$ First Message
$$
    MESSG/TEMP,'CALCULATING SURFACE'
    SCULPT=SSURF/PRIMA,L(1),L(3),CROSS,L(2),SPL
$$
$$ Second Message
$$
     MESSG/TEMP,'SURFACE CREATED'
$$
$$ Third Message
$$
    MESSG/'SEL EC TO CONTINUE'

The first MESSG statement displays its message until the surface is created and the second MESSG statement is executed. Since the TEMP minor word is used, the program proceeds automatically. The third MESSG statement does not contain the TEMP minor word, therefore the program pauses until OK is chosen.