рисунки в pascal ABC

[lika1129970]

нужно нарисовать в Pascal ABC снежинки которые медленно падают и любую анлискую букву в объемном изображении.. уже 3-й день сижу ничего не выходит....

[hon]

Наработки в студию.

[lika1129970]

нету их( нервы! все по удаляла!
___________________
это обязательно???

[lika1129970]

есть прога правда с и-нета но она не работает и там снеговик и падающие снежинки должны быть, но проверить не могу.. выбивает ошибку неизвестный идентификатор setcolor


Program snow_baba;

uses graph, crt;

var gd, gm : integer;

Procedure snow;

var count, width, height : integer;

begin

for count := 0 to 1500 do
begin
width := random(640);
height := random(420);

SetColor(white);
ellipse(width, height, 0, 360, 1, 1);
delay(2500);

end;
end;

Begin

randomize;

gd := detect;
initgraph(gd, gm, '');

Setbkcolor(Blue); {set the background color}

Circle(358,350,70); {bоdу}
Circle(358,230,50); {bоdу}
Circle(358,150,30); {bоdу}

FloodFill(358, 150, White); {shading}
FloodFill(358, 230, White); {shading}
FloodFill(358, 350, White); {shading}

SetColor(Brown); {set the color smile}

Arc(358, 150, 180, 0, 25); {smile}

circle(346, 140, 5); {left yey}
circle(370, 140, 5); {right yey}

Line(315, 200, 248, 210); {left hand}
Line(400, 200, 468, 210); {right hand}

SetColor(white);
Line(1, 420, 640, 420);

snow;

Readln;
Closegraph;

End.

[interacia]

Borland Pascal 7.0 открывает без ошибок

там снеговик и падающие снежинки

Снеговик есть, снежинки есть но они просто появляются не падают.

Эта процедура рисует снежинки в форме эллипса.

Procedure snow;
 var count, width, height : integer;
 begin
 for count := 0 to 1500 do
 begin
 width := random(640);
 height := random(420);
 SetColor(white);
 ellipse(width, height, 0, 360, 1, 1);
 delay(2500);
 end;
 end;

[interacia]

uses ABCObjects;

var
  z:array[1..100] of RegularPolygonABC;

  i,j: integer;

procedure MoveAll(a,b: integer);
var j: integer;
begin

    for j:=1 to Objects.Count do  Objects[j].moveOn(a,b);
end;

begin
//  LockDrawingObjects;
 for i:=1 to 100 do begin
 z[i]:=CreateStarABC(random(400),random(400),70,135,5,clRandom);
 z[i].Filled:=False;
 z[i].Height:=100;
 z[i].Radius:=5;
end;
  MoveAll(100,100);
  LockDrawingObjects;
  RedrawObjects;
  while True do
  begin
    for j:=1 to Objects.Count do
      Objects[j].moveOn(Random(3)-1,1);
     for i:=1 to 100 do begin
      if z[i].Top>400 then z[i].Top:=0-random(100);
     end;
    RedrawObjects;
      sleep(20);
  end;
end.

Медленно падающие звёздачки подойдут?

[lika1129970]

нужны снежинки(

[Serge_Bliznykov]

Лика, посмотрите на ЭТУ тему...
Вдруг это Вас устроит...

[interacia]

Если прям чтобы снежинка то рисуете её и сохраняете в форматах (bmp, .gif, .jpg, .png)
В программе меняете

RegularPolygonABC;

на

PictureABC;

При создании объекта указываете путь к файлу.
пример

z[i]:=PictureABC.Create(random(400),random(400),'C:\Temp\Снежинка3.bmp');

Снежинки в ассортименте выбирайте пожалуйста. Я старался.

[lika1129970]

она работает не правильно (только пустой лист и программа завершена) так как у меня нет той картинки которая есть в программе