unit WuEllipseUnit; {$DOC+} declaration (**************************************************** $RU процедура рисования полупрозрачного пиксела в точке (X,Y) параметр Alpha задает степень непрозрачности пикселя определяется программистом ****************************************************) procedure SetPixel(X: Integer; Y: Integer; Alpha: Real); interface DrawWuEllipse; implementation (**************************************************** $RU Рисование эллипса с использованием метода Ву для антиалиасинга. ****************************************************) procedure DrawWuEllipse(x1: Real; y1: Real; x2:Real; y2:Real); var t: Real; a: Real; b: Real; cx: Real; cy: Real; x: Real; y: Real; f: Real; ix: Integer; iy: Integer; i1: Integer; i2: Integer; exch: Boolean; begin //нормируем заданные точки if x2