Return to Statement

Solid of Revolution Example

Creating a solid of revolution from a series of curves. The program allows the curves to be selected interactively, then revolves them around the XC axis at an angle of 180°.

$$
$$ Declarations
$$
    ENTITY/OBJ(100),SOLID1
    REJECT1:
    IDENT/'PICK CURVES',OBJ,CNT,NUM,RSP
    JUMP/REJECT1:,TERM:,,RSP
$$
$$ Geometry Definition
$$
    SOLID1=SOLREV/OBJ(1..NUM),ORIGIN,2,2,0,$
    ATANGL,180,AXIS,1,0,0
    TERM: HALT

Solid of Revolution Creation