WWPilar CircularMYSGDAEH@@EPYTRDD2pCSD3CSD2 NDRAP EPYTWWWWRDD2WWpXWWXCSD3WWIF ED=1 THEN EDG=15 IF ED=0 THEN EDG=79 h=ABS(zzyzx) cPRISM_ M_, M_, M_, 37, h, R, 0, EDG, R*COS (10), R*SIN (10), EDG, R*COS (20), R*SIN (20), EDG, R*COS (30), R*SIN (30), EDG, R*COS (40), R*SIN (40), EDG, R*COS (50), R*SIN (50), EDG, R*COS (60), R*SIN (60), EDG, R*COS (70), R*SIN (70), EDG, R*COS (80), R*SIN (80), EDG, 0, R, EDG, -R*COS (80), R*SIN (80), EDG, -R*COS (70), R*SIN (70), EDG, -R*COS (60), R*SIN (60), EDG, -R*COS (50), R*SIN (50), EDG, -R*COS (40), R*SIN (40), EDG, -R*COS (30), R*SIN (30), EDG, -R*COS (20), R*SIN (20), EDG, -R*COS (10), R*SIN (10), EDG, -R, 0, EDG, -R*COS (10), -R*SIN (10), EDG, -R*COS (20), -R*SIN (20), EDG, -R*COS (30), -R*SIN (30), EDG, -R*COS (40), -R*SIN (40), EDG, -R*COS (50), -R*SIN (50), EDG, -R*COS (60), -R*SIN (60), EDG, -R*COS (70), -R*SIN (70), EDG, -R*COS (80), -R*SIN (80), EDG, 0, -R, EDG, R*COS (80), -R*SIN (80), EDG, R*COS (70), -R*SIN (70), EDG, R*COS (60), -R*SIN (60), EDG, R*COS (50), -R*SIN (50), EDG, R*COS (40), -R*SIN (40), EDG, R*COS (30), -R*SIN (30), EDG, R*COS (20), -R*SIN (20), EDG, R*COS (10), -R*SIN (10), EDG, R, 0, EDG CSD2WWNPEN pplan CIRCLE2 0,0,R ADD -R,-R,0 hotspot2 0,0 hotspot2 -R,0 hotspot2 R,0 hotspot2 0,-R hotspot2 0,R PEN pfil set fill fil POLY2_B 2,2,pfil,pbcg, 0,0,900, R,360,4000 if esp