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

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

сказали: сделай прогу типа задвигаются шторы в театре, только чтоб они не раздвигались а по формуле вверх втягивались т.е. дана функция x=y*(дельта х) дельта х вычисляется в цикле начиная с минимального значения . т.к. шторы две то нужно чтобы они по центру вверху соеденялись. задача прилагается. не знаю как реализовать это при помощи Timage как мне так начертить график чтобы все что ниже графика было прозрачным а все что выше опр цвета
прозрачным потому что у меня там картинка на заднем фоне

[Sazary]

Вот. Нажимаете первую кнопку - Image заливается черным (можете вместо этого загрузить туда картинку шторы). Потом нажимаете вторую кнопку - штора начинает раздвигаться.

ps Кстати, в вашем архиве отсутствует исходник (.pas-файл)

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

благодарю за пример
а как прозрачным сделать неиспользуемую область и что это значит:

y := dd;
x1 := W div 2;
x2 := W div 2;
while (y<=H) and (x1>=0) and (x2<=W) do //пока что ?
begin
Image1.Canvas.Pixels[x1,y] := clWhite; //непонятно
Image1.Canvas.Pixels[x2,y] := clWhite; // непонятно
inc(y);
dec(x1); //а зачем тут шестнадцатеричная система
inc(x2);
end;

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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Image2: TImage;
Image3: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;



var

Form1: TForm1;
min,max:real ;
leftx,lefty:integer;
rightx,righty:integer;
changer:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

if changer=1 then begin
changer:=0 ;
label2.Caption:=IntToStr(changer);

end
else
if changer=0 then begin
changer:=1;
label2.Caption:=IntToStr(changer);

end;

end;


end.

[Sazary]

а как прозрачным сделать неиспользуемую область и что это значит:

То есть? Ту, что за шторой?
Так это же не слои. Здесь "за" шторой ничего нет. Есть только штора. Если вам нужно показывать какой-нибудь рисунок, то вместо присвоения пикселю белого цвета:

Image1.Canvas.Pixels[x1,y] := clWhite;

присваивайте ему значения соответствующего пикселя из нужной картинки (которую сначала нужно загрузить в TBitmap).

while (y<=H) and (x1>=0) and (x2<=W) do //пока что ?

Сложно объяснить эту конкретную строчку. Вам нужно посмотреть на программу в целом.
W = Image1.Width, H = Image1.Height.
Поднятие шторы осуществляется закрашиванием в цикле двух линий (образующих галку).
Вот это условие и говорит, что закрашивать нужно до тех пор, пока не вышли за границы Image.

Image1.Canvas.Pixels[x1,y] := clWhite; //непонятно
Image1.Canvas.Pixels[x2,y] := clWhite; // непонятно

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

dec(x1); //а зачем тут шестнадцатеричная система

При чем тут это?
Вам знакома процедура inc (инкремент)? Так вот dec - обратная процедура (декремент).

----------------------

вотон исходник

Ну, собственно, не вижу ничего полезного.

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

Вам знакома процедура inc (инкремент)? Так вот dec - обратная процедура (декремент).
неа понятию не имею о чем ты...
----------------------
Цитата:
вотон исходник
Ну, собственно, не вижу ничего полезного.
ну так надо запускать проект там два поля я думал можно как то именно графики построить этим компонентом чтоб гипербола полчучилать, а тут намного сложнее

[Sazary]

Вам знакома процедура inc (инкремент)? Так вот dec - обратная процедура (декремент).
неа понятию не имею о чем ты...

Вы не заметили, как у меня оформлены цитаты? Пользуйтесь тегом QUOTE.

неа понятию не имею о чем ты..

Тогда советую о ней почитать.

----------------------
Вот вам парабола.
Изменился только код обработчика TTimer

procedure TForm1.Timer1Timer(Sender: TObject);
var x1,x2: double;
y,x : integer;
i : integer;
begin

x1 := 0;
x2 := 0;
y := dd;
x := W div 2;
while (y<=H) and (x>=0) and (x<=W) do
 begin
 x := round(x1*W/50) + (W div 2);
 y := round(sqr(x1)*H/200) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

 x := round(x2*W/50) + (W div 2);
 y := round(sqr(x2)*H/200) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

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

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

И сразу совет: сначала попробуйте разобраться самостоятельно.

[Sazary]

Если нужно, чтобы штора разъезжалась более "широко", то лучше такой код:

procedure TForm1.Timer1Timer(Sender: TObject);
var x1,x2: double;
y,x : integer;
i : integer;
begin

x1 := -0.001;
x2 := 0.001;
y := dd;
x := W div 2;
while (y<=H) and (x>=0) and (x<=W) do
 begin
 x := round(x1*W/70) + (W div 2);
 y := round(exp(1.5*ln(abs(x1)))*H/200) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

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

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

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

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

ух, блин...ладно и на этом спасибо

ПС вопросик, переменные значит в процедурах объявлять можно чтоб в заголовок не бегать постоянно ?(по больше информации)

[Sazary]

переменные значит в процедурах объявлять можно чтоб в заголовок не бегать постоянно ?

Конечно можно.

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

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

procedure TForm1.Timer1Timer(Sender: TObject);
var x1,x2: double;
y,x : integer;
i : integer;
begin

x1 := 0.001;
x2 := -0.001;
y := dd;
x := W div 2;
while (y<=H) and (x>=0) and (x<=W) do
 begin
 x := round(x1*W/70) + (W div 2);
 //y := round(exp(1.5*ln(abs(x1)))*H/200) + dd;
 y := -round(abs(2/x1)*H/50) + dd;
 Image1.Canvas.Pixels[x,y] := clWhite;

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

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

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

а вот это обратная порабола