Нарисовать эллипс с наклонной пунктирной штриховкой

[Hacker19_90]

Можно конечно!
Просто не понятно, если вам нужен точечный косой пунктир!
То почему вам тогда bhPercent90 не подходит? ну или bhPercent20

[Ajmda]

Сообщение от Hacker19_90

Можно конечно!
Просто не понятно, если вам нужен точечный косой пунктир!
То почему вам тогда bhPercent90 не подходит? ну или bhPercent20

потому что преподаватель такой

[Hacker19_90]

Я вообще ничего не понимаю!
Приведите пример, как надо закрасить!

[Ajmda]

uses GraphABC;
const
w=300;
h=200;
var
i:integer;
a,b,c,d:integer;
begin
Coordinate.Origin:=new point(window.Center.x-w div 2,window.Center.y-h div 2);
Rectangle(0,0,w,h);
a:=h; b:=0; d:=h div 10; c:=w div 10;
Pen.Width:=5;
Pen.Style:=psDot;
repeat
Pen.Color:=clRandom;
a:=a-d; b:=b+c;
MoveTo(0,a);
LineTo(b,h-1);
Sleep(100)
until (a<=0)or(b>=w);
a:=0; b:=h;
repeat
Pen.Color:=clRandom;
a:=a+c; b:=b-d;
MoveTo(a,0);
LineTo(w-4,b);
Sleep(100)
until (a>=w)or(b<=0);
end.

Приблизительно, только на примере прямоугольника. Код не мой, а человека, которому собственно я и пытаюсь помочь...

[Hacker19_90]

хм.... нда.... тут думать надо! Сегодня займусь!
мб к вечеру чё нить придумаю!
Пока я не знаю! Сори!

[Ajmda]

все еще нужна помощь...

[Sasha_Smirnov]

Ну пусть он (товарищ) накроет свой заштрихованный фон непрозрачной фигурой с эллиптическим отверстием. Прямо по Родену: убрать лишнее!

[programmer3]

это вариант рисования эллипса под углом ,если надо...

program ell;
uses crt,graphABC;
var j:integer;



procedure Ellipse2(x,y,d,h:integer;a:real);
var n,m,b,xx,yy:real;i,z:integer;


function xs(xxx,yyy:real):integer;
var coss,sinn,radiuuss:real;
begin
radiuuss:=sqrt(sqr(xxx-x)+sqr(yyy-y));
coss:=(xxx-x)/radiuuss;
sinn:=(y-yyy)/radiuuss;
xs:=round(x+radiuuss*(cos(a)*coss-sin(a)*sinn));
end;


function ys(xxx,yyy:real):integer;
var sinn,coss,radiuuss:real;
begin
radiuuss:=sqrt(sqr(xxx-x)+sqr(yyy-y));
sinn:=(y-yyy)/radiuuss;
coss:=(xxx-x)/radiuuss;
ys:=round(y-radiuuss*(cos(a)*sinn+sin(a)*coss));
end;

     begin
     m:=2*sqrt(d*d/4-h*h/4);
     xx:=x-d/2;
     yy:=y;

                  for i:=round(x-d/2)+1 to round(x+1) do begin
                  n:=abs(d-m)/2-i+x-d/2;
                  b:=sqrt(sqr((d*d-n*n+sqr(m+n))/(2*d))-sqr(m+n));
                  line(xs(xx,yy),ys(xx,yy),xs(i,y-b),ys(i,y-b));
                  line(xs(xx,2*y-yy),ys(xx,2*y-yy),xs(i,y+b),ys(i,y+b));
                  line(xs(2*x-xx,2*y-yy),ys(2*x-xx,2*y-yy),xs(2*x-i,y+b),ys(2*x-i,y+b));
                  line(xs(2*x-xx,yy),ys(2*x-xx,yy),xs(2*x-i,y-b),ys(2*x-i,y-b));
                  xx:=i;
                  yy:=y-b;
                                                         end;
    //line(xs(x-d/2,y),ys(x-d/2,y),xs(x+d/2,y),ys(x+d/2,y));
    //line(xs(x,y-h/2),ys(x,y-h/2),xs(x,y+h/2),ys(x,y+h/2));



    end;
    
    
    
    
    

begin
setwindowsize(1200,1000);
{
for j:=1 to 2000 do begin
clearwindow;
ellipse2(300,300,300,200,0+j/100);
delay(50);

                  end;  }
ellipse2(500,300,300,180,pi/4);//ellipse2(x-коорд.центра,y-коорд.центра,длина б.диагонали,длина м.диагонали,угол поворота эллипса против час.стр. от горизонтали в радианах)
end.