FLOAT indexer
FLOAT radius1
FLOAT radius2

: Эллипс   \ ( x0 y0 r1 r2 color -- )
  >R
  2DUP MAX S>F  \ Оставляем максимальный радиус
  S>F radius2 F!
  S>F radius1 F!
  FPI F* 2.0 F* FDUP F>S  \ x0 y0 r L    R: color    F: l  \ Получаем длину окружности (это число пикселей для отрисовки)
  FPI 2.0 F* FSWAP F/ indexer F!   \ x0 y0 r L    R: color  \ Получаем и сохраняем индексатор
  0 DO  \ Цикл по длине окружности
    I S>F indexer F@ F* FCOS radius1 F@ F* OVER F>S +  \ x=r cos t + x0
    I S>F indexer F@ F* FSIN radius2 F@ F* OVER F>S +  \ y=r sin t + y0
    R@ PIXEL
  LOOP
  RDROP
  DROP DROP
;

: Окружность   \ ( x0 y0 r color -- )
  >R DUP R> Эллипс
;

200 200 100 0x00FF00 Окружность
400 300 200 70 0xFFFF00 Эллипс