Лаба с Графикикой

[DeKot]

от Sazary Совет: вы бы сначала паскаль как следует изучили.

и русский язык, а то вместо "методички" получится куръез.

[бедный_студент]

вот программа скомпилированная.
в принципе реагирует как расчитывал но работает не совсем адекватно :
1)картинка на заднем фоне наоборот должна прорисовываться
2)по центру внизу угол образуется от функции - как его убрать
3) таймер не реагирует на изменение интервала хочу скорость поднятия увеличить

unit Shtora;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Button2: TButton;
    Image2: TImage;
    procedure FormShow(Sender: TObject);
       procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
W,H : integer;

dd : integer;


procedure TForm1.FormShow(Sender: TObject);
begin
W := Image1.Width;
H := Image1.Height;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clBlack;
Image1.Canvas.FillRect(Canvas.ClipRect);
dd := H;
Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var x1,x2: double;
y,x : integer;
i : integer;
begin
x1 := 0.0009;
x2 := -0.0009;
y := dd;
x := W div 2;
while (y<=H) and (x>=0) and (x<=W) do
 begin

 x := round(x1*W/7) + (W div 2);
 //y := round(exp(1.5*ln(abs(x1)))*H/200) + dd;
 y := -round(abs(2/x1)*H/30) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

 x := round(x2*W/7) + (W div 2);
 //y := round(exp(1.5*ln(abs(x2)))*H/200) + dd;
 y := -round(abs(2/x2)*H/30) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

 x1 := x1 + 000.001;
 x2 := x2 - 000.001;
 end;

dec(dd);
if dd<=0 then Timer1.Enabled := false;
end;



end.

[бедный_студент]

и русский язык, а то вместо "методички" получится куръез.

хы! яж писал для себя и других а на граматику мне мягко говоря кучки делать)

[Sazary]

бедный_студент, вы прикрепили только exe-файл.

1)картинка на заднем фоне наоборот должна прорисовываться

Я вообще не вижу, где у вас в коде она загружается.

3) таймер не реагирует на изменение интервала хочу скорость поднятия увеличить

Происходит попиксельная прорисовка. Интервал в таймере и так 1 миллисекунда. Быстрее врядли сделаете.

Нужно переделывать. Все изменения делать на TBitmap (также, как сделано сейчас) и через определенный интервал сбрасывать на Image.

[бедный_студент]

сорри
глаза слипаются соображалка слиплась, пинг большой

по поводу таймера мне кажется при1 милисек быстрей должно работать(на 10, 100 также работает)

[бедный_студент]

Image1.Canvas.Pixels[x,y] := Bitmap.Canvas.Pixels[x,y];
вот тут кстати не рабоатет жалуется на ошибку не понятно какую может всесто bitmap что то другое писать надо ?

[Sazary]

Сообщение от бедный_студент

по поводу таймера мне кажется при1 милисек быстрей должно работать(на 10, 100 также работает)

Скорость зависит не только от интервала таймера, но и от самой скорости прорисовки. Быстрее не будет.

Image1.Canvas.Pixels[x,y] := Bitmap.Canvas.Pixels[x,y];
вот тут кстати не рабоатет жалуется на ошибку не понятно какую может всесто bitmap что то другое писать надо ?

А вы этот Bitmap создаете? Из воздуха он не возникнет.

[бедный_студент]

вот тут пожалуйста уточните: это отдельный компонент если да то где он находится я его не нашел
или это параметр имиджа если так то картинку поставил туда

[Sazary]

вот тут пожалуйста уточните: это отдельный компонент если да то где он находится я его не нашел
или это параметр имиджа если так то картинку поставил туда

Это битовый образ. Его нужно создавать. Простой пример вы можете посмотреть тут:
http://programmersforum.ru/showthread.php?t=47949

Собственно, с ним все будет работать быстрее.
Суть в том, что все прорисовки вы делаете на нем. И уже конечный результат сбрасываете на Image.

---------------------
Сразу скажу: сначала почитайте о нем. Как создавать, как использовать..
А потом уже пробуйте применить.