PROC draw.circle (VAL INT x.0, y.0, radius, VAL INT colour, RASTER raster)

  --* Decide how to plot points
  --
  --  @param x ) Coordinates
  --  @param y )
  --  @param b How to plot

  INLINE PROC points (VAL INT x, y, VAL BOOL b)

    SEQ
      IF
        b
	  points.2 (x, y)			-- the hard way
        TRUE
          points.1 (x, y)			-- easy
  :

:
