// Adv. Fab32 V2.1 3/19/92 Macro File
// \cone_cyl.mcl
// CREATED: 03/19/1992
//  
//  
#BASEEL=1000000
#END=1000000
#END=TOTEL()
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
#elv12=#EL
// re-assign spacing values, count is the default
IF (#spctype=0)
#sp=1
ENDIF
IF (#spctype=1)
#sp=0
ENDIF
// arcs can't be on the same level
IF(#2ndzcen=#1stzcen)
PAUSE[TX="  ERROR:  Z Values can not be the same.  ", SR=2,SC=40,PT=0]
GOTO(EXIT)    //quit the macro
ENDIF
// insert at end to make grouping easy
ELMT_SEQ[BA=1, EL=#END, ME=0]
ON_LAYER[LY=#cyl_lay, PT=?]
// make 1st arc
ARC[DR=0, XC=#1stxcen, YC=#1stycen, RA=#1strad, AS=0, AE=0, SE=2, 
    SS=2, SI=2, SC=2, LV=#1stzcen]
// make 2nd arc
ARC[DR=0, XC=#2ndxcen, YC=#2ndycen, RA=#2ndrad, AS=0, AE=0, SE=2, 
    SS=2, SI=2, SC=2, LV=#2ndzcen]
//
GET_VIEW[VN="ISO"]
FULL[]
// create ruled
FABRULE[E1=(#EL-1), E2=(#EL-1), E3=#EL, E4=#EL, PD=0, SP=#sp, SV=#facets,
    ZT=0, DI=1, DV=10, GC=0, OF=0, OA=0, CM=1]
// group
#BASEEL=TOTEL()
RANGE_GRP[E1=(#END+1),E2=#BASEEL,AR=0]

//
// test for unfolding
IF(#FOLD=1)

UNFOLD[BE=(#BASEEL-2), BS=0, ML=0, CP=1, AM=0, IR=0, KF=0, HC=0, MT=0, AD=0]
// re-group for undo
NEW_GRP[]

RANGE_GRP[E1=(TOTEL()),E2=(#elv12+1),AR=0]
ENDIF
//
// set up undo
GRP_DELETE[]
UNDO[]
@EXIT