Example GDL file

/*

#file ......: PMP0001.gd

#ident......: KEST Centrifugal pump, AHLSTROM

#objtype ...: EQUIPMENT

#geotype ...: ---------

#author.....: KMS, MIJ

#date.......: 23 May 1990

*/

PARAMS : DN1, DN2, A, F, H2, E1, E2, X, H, B2, L, L1, L2, d1, d2, mas;

origo = POINT(0,0,0);

x_axis = DIRECTION(1,0,0);

y_axis = DIRECTION(0,1,0);

z_axis = DIRECTION(0,0,1);

x_neg = DIRECTION(-1,0,0);

y_neg = DIRECTION(0,-1,0);

z_neg = DIRECTION(0,0,-1);

t1 = 20;

t2 = 20;

d = (E1 + E2);

vd = (0.55 * d);

hp = 100;

md = (1.7 * (H - 100));

vl = (X + 100);

a = (F - 50);

orig = POINT(origo,z_axis,H);

ml = (((L - a) - vl) - A);

p1 = POINT(orig,x_neg,A);

p2 = POINT(p1,x_axis,t1);

la1 = FLANGE(p1,p2,d1,DN1);

p3 = POINT(orig,x_neg,(A * 0.7));

sucnoz = CYLINDER(p2,p3,(DN1 / 2),(DN1 / 2));

p4 = POINT(orig,z_axis,H2);

p5 = POINT(p4,z_neg,t2);

la2 = FLANGE(p4,p5,d2,DN2);

pressnoz = CYLINDER(orig,p5,(DN2 / 2),(DN2 / 2));

p6 = POINT(orig,x_axis,(A * 0.7));

pump = CYLINDER(p3,p6,(d / 2),(d / 2));

CUT(pressnoz,pump,orig);

p12 = POINT(p1,x_axis,L);

p11 = POINT(p12,x_neg,(ml / 10));

mk1 = CONE(p12,p11,(0.36 * md),(md / 2),(0.36 * md));

p9 = POINT(orig,x_axis,(a + vl));

p10 = POINT(p9,x_axis,(ml / 10));

mk2 = CONE(p9,p10,(md / 3),(md / 2),(md / 3));

motor = CYLINDER(p10,p11,(md / 2),(md / 2));

p8 = POINT(orig,x_axis,a);

b = (a - (DN2 / 2));

p7 = POINT(p8,x_neg,(0.6 * b));

parta = CYLINDER(p6,p7,(0.3 * d),(0.3 * d));

partb = CYLINDER(p7,p8,(0.35 * vd),(0.35 * vd));

partc = CYLINDER(p8,p9,(vd / 4),(vd / 4));

p13 = POINT(orig,z_neg,H);

p14 = POINT(p13,x_neg,L2);

p15 = POINT(p14,y_neg,(B2 / 2));

botplate = PIPED(p15,x_axis,y_axis,L1,B2,hp);

p16 = POINT(p15,z_axis,hp);

p17 = POINT(p16,x_axis,(0.4 * L2));

p18 = POINT(p17,y_axis,((B2 / 2) - (d / 4)));

sup1 = PIPED(p18,x_axis,y_axis,(1.2 * L2),(d / 2),((H - hp) - (d / 2)));

p19 = POINT(p13,x_axis,((a + vl) + (ml / 7)));

p20 = POINT(p19,z_axis,hp);

p21 = POINT(p20,y_neg,(B2 / 4));

sup2 = PIPED(p21,x_axis,y_axis,(5 * (ml / 7)),(B2 / 2),

             ((H - hp) - (md / 2)));

n1 = NODE(1,p1,x_neg,DN1,0,100,0,0);

n2 = NODE(2,p4,z_axis,DN2,0,100,0,0);

n3 = NODE(3,origo,x_axis,100,0,0,0);

DES = ATTRIBUTE("KEST Centrifugal Pump");

MAS = ATTRIBUTE(mas);

SUP = ATTRIBUTE("Ahlstrom Corp");

TYP = ATTRIBUTE("E-Series");