+PROG AQUA urs:1 HEAD CTRL FACE NEG UNIT 5 DIG 3 ECHO SECT EXTR NORM EN 1992-2004 STEE NO TYPE CLAS 1 S 355 CONC NO TYPE FCN 2 C 40 SECT NO MNO 1 1 TVAR D 1[m] TVAR T 0.01[m] POLY TYPE MNO O 1 VERT NO Y Z REFP REFD 1 '=#D/2*COS(0*90)' '=#D/2*SIN(0*90)' 2 '=#D/2*COS(1*90)' '=#D/2*SIN(1*90)' 3 '=#D/2*COS(2*90)' '=#D/2*SIN(2*90)' 4 '=#D/2*COS(3*90)' '=#D/2*SIN(3*90)' POLY TYPE MNO O 2 VERT NO Y Z REFP REFD 1 '=(#D-2*#T)/2*COS(0*90)' '=(#D-2*#T)/2*SIN(0*90)' 2 '=(#D-2*#T)/2*COS(1*90)' '=(#D-2*#T)/2*SIN(1*90)' 3 '=(#D-2*#T)/2*COS(2*90)' '=(#D-2*#T)/2*SIN(2*90)' 4 '=(#D-2*#T)/2*COS(3*90)' '=(#D-2*#T)/2*SIN(3*90)' END