подкиньте идею рисунка в turbo pascal

[mishammm]

мне нужно нарисовать крытую крышу рынка. вот знакомтесь? типа крыша нарисована.

uses
    graph;
    var
        driver,mode:integer;
        x,y:integer;
        begin
        driver:=detect;
        InitGraph(driver,mode, ' ' );
        ellipse(300,300,0,180,51,100);
        ellipse(300,300,0,180,50,200);
        ellipse(300,300,0,180,50,280);
         ellipse(300,300,0,180,50,250);
          ellipse(300,300,0,180,50,280);
        readln;
        closegraph;
        end.

можете как то подукрасить ёё стандартными процедурами пожалуйста или что можно еще сделать... чисто ваше мнение. да кырша убогая но не знаю что еще нарисовать

[Stilet]

uses
    graph;
    var
        driver,mode:integer;
        x,y:integer;
        begin
        driver:=detect;
        InitGraph(driver,mode, ' ' );
        for x:=1 to 10 do begin
         setcolor(x);
         ellipse(300,300,0,180,51-x,100);
        end;
        setcolor(red);
        for x:=1 to 10 do        ellipse(300,300,0,180,50+x,200);
        for x:=1 to 10 do begin setcolor(x);ellipse(300,300,0,180,50*x,280);end;
         ellipse(300,300,0,180,50,250);
          ellipse(300,300,0,180,50,280);
        readln;
        closegraph;
        end.

[mishammm]

спасибо вам

[carrie bradshaw]

код программы:

program EvgeniiSp;
Uses GraphABC,Crt;
Var
 x,y,i:integer;
Begin
 ClrScr;
 x:=WindowWidth div 2;
 y:=WindowHeight div 2;
 while not keypressed do
  Begin
   setpencolor(clYellow);
   for i:=1 to 300 do
    line(x,y,random(WindowWidth),random(WindowHeight));
   delay(500);
   Clearwindow;
  End;
End.

лучи.jpg

[carrie bradshaw]

program zd;
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.

Безымянный.jpg

в этом рисунке главное правильно координаты расчитать

[carrie bradshaw]

program Fap;

BEGIN

WriteLn('          ./ |   _________________                                  ');
WriteLn('         /  /   /  __________    //\_                               ');
WriteLn('       /`  /   |  (__________)  ||.` `-.________________________    ');
WriteLn('      /   /    |    __________  ||`._.-`~~~~~~~~~~~~~~~~~~~~~~~~`   ');
WriteLn('     /    \     \__(__________)__\\/                                ');
WriteLn('    |      `\                                                       ');
WriteLn('    |        |                                ___________________   ');
WriteLn('    |        |___________________...-------```- - -  =- - =  - = `. ');
WriteLn('   /|        |                   \-  =  = -  -= - =  - =-   =  - =| ');
WriteLn('  ( |        |                    |= -= - = - = - = - =--= = - = =| ');
WriteLn('   \|        |___________________/- = - -= =_- =_-=_- -=_=-=_=_= -| ');
WriteLn('    |        |                   ```-------...___________________.` ');
WriteLn('    |________|                                                      ');
WriteLn('      \    /                                       _                ');
WriteLn('      |    |                              ,,,,,,, /=\               ');
WriteLn('    ,-`    `-,       /\___________       (\\\\\\\||=|               ');
WriteLn('    |        |       \/~~~~~~~~~~~`       ^^^^^^^ \=/               ');
WriteLn('    `--------`                                     `      	');

END.

шучу)

[carrie bradshaw]

program baba;
uses graph;
var a,b:integer;
begin
a:=detect;
initgraph(a,b,'');
setbkcolor(1); 
Setcolor(15); 
circle(358,183,36);
circle(358,287,70);
circle(358,475,115);
line(317,151,399,151);
line(317,151,340,100);
line(340,100,378,100);
line(378,100,399,151);
arc(358,183, 360,170,25); 
circle(346,170,5); 
circle(370,170,5); 
ellipse (294,592,360,0,31,18); 
ellipse (410,595,360,0,31,18); 
line(288,287,183,393); 
Line(212,364,212,406);
line(212,364,174,365);
line(427,287,507,393); 
line(485,364,516,406);
line(536,365,485,365);
readln;
closegraph;
end.