/*----------------------------------------------------------------------*/ /* (C) Copyright 1994, Stefanos Kiakas */ /* All rights reserved. */ /*----------------------------------------------------------------------*/ defineps UpperRightQuarterCircle( int clockwise, level; float x, y ) /center_x x def /center_y y 50 add def /draw_pipe { newpath center_x center_y 15 270 360 arc stroke newpath center_x center_y 35 270 360 arc stroke } def 0.0 setgray 5 setlinewidth draw_pipe .0 .85 1.0 setrgbcolor level 1 gt { newpath clockwise 0 ne { /starting_angle 270 def /ending_angle 270 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 360 def /ending_angle 360 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 270 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 360 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