Pascal - графические программы

[tstf]

нужны Графические программы на Pascal
Анимации.. видео... Главное, чтобы запускались с одного PAS-файла. Буду очень признателен.

 

[Peter123]

Помнится когда-то баловался с фракталами

program paport;

uses crt, graph;

var
ch :char;
i,j :integer;
grDriver: Integer;
grMode: Integer;

Procedure Threedfern;

const
a:array[0..3, 0..2, 0..3] of integer =
 ((( 0, 0, 0, 0),( 0, 20, 0, 0),( 0, 0, 0, 0)),
  (( 85, 0, 0, 0),( 0, 85, 11, 70),( 0,-10, 85, 0)),
  (( 31,-41, 0, 0),( 10, 21, 0, 21),( 0, 0, 30, 0)),
  ((-29, 40, 0, 0),( 10, 19, 0, 56),( 0, 0, 30, 0)));

var
b:array[0..99] of integer;
k,n,x,y,z,newx,newy:Integer;
begin
x:=0;
y:=0;
z:=0;
randomize;
repeat
 for k:=1 to 99 do
  begin
  b[k]:=random(10);
  if b[k]>3 then b[k]:=1;
  end;
 for k:=1 to 99 do
  begin
  newx:=(a[b[k],0,0]*x+a[b[k],0,1]*y+a[b[k],0,2]*z) div 100+a[b[k],0,3];
  newy:=(a[b[k],1,0]*x+a[b[k],1,1]*y+a[b[k],1,2]*z) div 100+a[b[k],1,3];
  z:=(a[b[k],2,0]*x+a[b[k],2,1]*y+a[b[k],2,2]*z) div 100+a[b[k],2,3];
  x:=newx;
  y:=newy;
  putpixel(350-x+z,400-y,green);
  end;
until KeyPressed;
end;


BEGIN
grDriver := Detect;
InitGraph(grDriver, grMode,' ');
Threedfern;
ch:=readkey;
CloseGraph;
END.

Не знаю как добавить файл с наладонника (Choose не работает), поэтому выложил весь текст, да простят меня модераторы

 

[Gisma]

MsDOS BP7 unit graph?

 

[tstf]

Для: Peter123
Пасиб. Попробую.
Для: Gisma
Если мменя спросил, то да. С помощью этого модуля.

 

[tstf]

А можно как-нить

const a:array[0..3, 0..2, 0..3] of integer = ((( 0, 0, 0, 0),( 0, 20, 0, 0),( 0, 0, 0, 0)), (( 85, 0, 0, 0),( 0, 85, 11, 70),( 0,-10, 85, 0)), (( 31,-41, 0, 0),( 10, 21, 0, 21),( 0, 0, 30, 0)), ((-29, 40, 0, 0),( 10, 19, 0, 56),( 0, 0, 30, 0)));

Расписать по-другому, а то пишет, что строчка длинная...

 

[Peter123]

Можно после любых запятых переходить на следующую строку, но удобнее всего в каждой строчке оставить по три тройки цифр. При добавлении все форматирование куда-то ушло , а вроде тег "CODE"

 

[Peter123]

Извиняюсь. Форматирование на месте, это мне моя мини-опера врет. Пиши как видишь.

 

[tstf]

Вот задали нарисовать на паскале такого человечка. Только руки, ноги и глаза у него должны быть симметричны. Может поможете такое чудо сделать?