Return to Statement


Ordinate Dimension Example

The following example uses the ODIM, OODIM, and OOMGN statements together.

   ENTITY/CIR(3),LIN(4),ORD_ORG,MGN_HORZ,MGN_VERT, $
DIM(3)

CIR(1) = CIRCLE/3.0,8.0,1.5
CIR(2) = CIRCLE/6.0,5.0,1.0,START,0,END,270
CIR(3) = CIRCLE/9.5,6.0,1.5

LIN(1) = LINE/1,1,12,1
LIN(2) = LINE/1,10,12,10
LIN(3) = LINE/1,1,1,10
LIN(4) = LINE/12,1,12,10
ORD_ORG = OODIM/ENDOF,XSMALL,LIN(1),QUAD,5, $
ARROWS,NAME,'EX_ORIGIN',SYMBOL,1

MGN_HORZ = OOMGN/HORIZ,ORD_ORG,LIN(1),-1
MGN_VERT = OOMGN/VERT,ORD_ORG,LIN(4),1

DIM(1) = ODIM/4.0,8.0,MGN_HORZ,CENTER,CIR(1), $
DOGLEG,60,3.0,APPEND,'EX_APPTXT'
DIM(2) = ODIM/6.0,8.0,MGN_HORZ,ENDOF,YSMALL,CIR(2), $
'EX_DIMTXT'
DIM(3) = ODIM/9.0,8.0,MGN_VERT,TANTO,CIR(3)

HALT


Example of ODIM, OODIM, and OOMGN