Liren Large Software Subsidy 13/13.iso/p/p230/1.ddi/ALIBF.H

Text File | 1988-01-26 | 3.1 KB | 129 lines

    INTERFACE TO INTEGER*2 FUNCTION ARC[C](X0,Y0,R0,ANG0,ANG1)
    DOUBLE PRECISION X0,Y0,R0,ANG0,ANG1
    END

    INTERFACE TO INTEGER*2 FUNCTION BLOCK[C](BLKNAME[REFERENCE],
     +             XB,YB)
    CHARACTER*1 BLKNAME
    DOUBLE PRECISION XB,YB
    END

    INTERFACE TO INTEGER*2 FUNCTION ATTDEF[C](ANAME[REFERENCE],
     +             ADEFAULT[REFERENCE],APROMPT[REFERENCE],XB,
     +             YB,ASCALE,AANGLE,ALAB)
    CHARACTER*1 ANAME,ADEFAULT,APROMPT
    INTEGER*2 ALAB
    DOUBLE PRECISION XB,YB,ASCALE,AANGLE
    END

    INTERFACE TO INTEGER*2 FUNCTION CIRCLE[C](X0,Y0,R)
    DOUBLE PRECISION X0,Y0,R
    END

    INTERFACE TO INTEGER*2 FUNCTION CLODWG[C]()
    END

    INTERFACE TO INTEGER*2 FUNCTION DOUCIR[C](X0,Y0,IR,OR)
    DOUBLE PRECISION X0,Y0,IR,OR
    END

    INTERFACE TO INTEGER*2 FUNCTION FACE3D[C](XX[REFERENCE],
     +             YY[REFERENCE],ZZ[REFERENCE],N)
    DOUBLE PRECISION XX,YY,ZZ
    INTEGER*2 N
    END

    INTERFACE TO INTEGER*2 FUNCTION INSERT[C](BLKNAME[REFERENCE],
     +    XB,YB,XR,YR,ZR,RO)
    CHARACTER*1 BLKNAME
    DOUBLE PRECISION XB,YB,XR,YR,ZR,RO
    END

    INTERFACE TO INTEGER*2 FUNCTION LAYER[C](LAYERNAME[REFERENCE],
     +    COLOR,LTYPENAME[REFERENCE])
    CHARACTER*1 LAYERNAME,LTYPENAME
    INTEGER*2 COLOR
    END

    INTERFACE TO INTEGER*2 FUNCTION LINE3D[C](X0,Y0,Z0,X1,Y1,Z1)
    DOUBLE PRECISION X0,Y0,Z0,X1,Y1,Z1
    END

    INTERFACE TO INTEGER*2 FUNCTION LINE[C](X0,Y0,X1,Y1)
    DOUBLE PRECISION X0,Y0,X1,Y1
    END

    INTERFACE TO INTEGER*2 FUNCTION OPNDWG[C](DNAME[REFERENCE],
     +             SNAME[REFERENCE])
    CHARACTER*1 DNAME,SNAME
    END

    INTERFACE TO INTEGER*2 FUNCTION PLINE[C](XX[REFERENCE],
     +             YY[REFERENCE],WIDTH,BULGE[REFERENCE],N,C)
    DOUBLE PRECISION XX,YY,WIDTH,BULGE
    INTEGER*2 N,C
    END

    INTERFACE TO INTEGER*2 FUNCTION POINT[C](X0,Y0)
    DOUBLE PRECISION X0,Y0
    END

    INTERFACE TO INTEGER*2 FUNCTION POLINE[C](XX[REFERENCE],
     +             YY[REFERENCE],W0[REFERENCE],W1[REFERENCE],
     +             BULGE[REFERENCE],N,C)
    DOUBLE PRECISION XX,YY,W0,W1,BULGE
    INTEGER*2 N,C
    END

    INTERFACE TO INTEGER*2 FUNCTION SOLID[C](XX[REFERENCE],
     +             YY[REFERENCE],N)
    DOUBLE PRECISION XX,YY
    INTEGER*2 N
    END

    INTERFACE TO INTEGER*2 FUNCTION STYLE[C](STYLENAME[REFERENCE],
     +             SHPF1[REFERENCE],SHPF2[REFERENCE],
     +             HEIGHT,WIDTH,ANGLE,BUD)
    CHARACTER*1 STYLENAME,SHPF1,SHPF2
    DOUBLE PRECISION HEIGHT,WIDTH,ANGLE
    INTEGER*2 BUD
    END

    INTERFACE TO INTEGER*2 FUNCTION TEXT[C](X0,Y0,HEIGHT,
     +             ANGLE,STRING[REFERENCE],BUD)
    DOUBLE PRECISION X0,Y0,HEIGHT,ANGLE
    CHARACTER*1 STRING
    INTEGER*2 BUD
    END

    INTERFACE TO INTEGER*2 FUNCTION TRACE[C](X0,Y0,X1,Y1,W)
    DOUBLE PRECISION X0,Y0,X1,Y1,W
    END

    INTERFACE TO INTEGER*2 FUNCTION WBLOCK[C](WBLKNAME[REFERENCE],
     +             XB,YB)
    CHARACTER*1 WBLKNAME
    DOUBLE PRECISION XB,YB
    END

    INTEGER*2 WBLOCK
    INTEGER*2 TRACE
    INTEGER*2 ATTDEF
    INTEGER*2 TEXT
    INTEGER*2 STYLE
    INTEGER*2 SOLID
    INTEGER*2 POLINE
    INTEGER*2 POINT
    INTEGER*2 PLINE
    INTEGER*2 OPNDWG
    INTEGER*2 LINE
    INTEGER*2 LINE3D
    INTEGER*2 LAYER
    INTEGER*2 INSERT
    INTEGER*2 FACE3D
    INTEGER*2 DOUCIR
    INTEGER*2 CLODWG
    INTEGER*2 CIRCLE
    INTEGER*2 BLOCK
    INTEGER*2 ARC