/*----------------------------------------------------------------------*/ /* (C) Copyright 1994, Stefanos Kiakas */ /* All rights reserved. */ /*----------------------------------------------------------------------*/ defineps UpperLeftQuarterCircle( int clockwise, level; float x, y ) /center_x x 50 add def /center_y y 50 add def /starting_angle_anchor 180 def /ending_angle_anchor 270 def /draw_pipe { newpath center_x center_y 15 starting_angle_anchor ending_angle_anchor arc stroke newpath center_x center_y 35 starting_angle_anchor ending_angle_anchor arc stroke } def 0.0 setgray 5 setlinewidth draw_pipe .0 .85 1.0 setrgbcolor level 1 gt { newpath clockwise 0 ne { /starting_angle starting_angle_anchor def /ending_angle starting_angle_anchor level 1 sub 9 mul add def center_x center_y 18 starting_angle ending_angle arc center_x center_y 32 ending_angle starting_angle arcn } { /starting_angle ending_angle_anchor def /ending_angle ending_angle_anchor level 1 sub 9 mul sub def center_x center_y 18 starting_angle ending_angle arcn center_x center_y 32 ending_angle starting_angle arc } ifelse closepath fill } if level 0 gt { newpath clockwise 0 ne { /starting_angle starting_angle_anchor level 1 sub 9 mul add def /ending_angle starting_angle 9 add def center_x center_y 18 starting_angle starting_angle arc center_x center_y 25 ending_angle ending_angle arc center_x center_y 32 starting_angle starting_angle arc } { /starting_angle ending_angle_anchor level 1 sub 9 mul sub def /ending_angle starting_angle 9 sub def center_x center_y 18 starting_angle starting_angle arc center_x center_y 25 ending_angle ending_angle arc center_x center_y 32 starting_angle starting_angle arc } ifelse closepath fill } if %flushgraphics endps