holsten 2006-03-10 13:31:45
: 14
: 20
: +12|7|-13 = +42%
:
? / ! !
ProgrammerForever 2008-10-10 00:11:33 #
. :

{$n+}
;
Uses Crt,Graph;
gr,gr1:;
k,color:;
newx,x,y,newy,a,b,r,c,d,e,f:;

gr1:=VGAHI;
gr:=vga;
Initgraph(gr,gr1,'');
randomize;

asm
mov ax,1001h
mov bh,15
int 10h
;
repeat
r:=random;
r<=0.1

a:=;B:=;c:=;d:=.16;f:=;

(r>0.1) (r<=0.86)

a:=0.85 ;b:=0.04;c:=-0.04;d:=0.85;f:=1.6;

(r>0.86) (r<=0.93)

a:=0.2;b:=-0.26;c:=0.23;d:=0.22;f:=1.6;

a:=-0.15;b:=0.28;c:=0.26;d:=0.24;f:=0.44;
;
;
;
newx:=(a*x)+(b*y);
newy:=(c*x)+(d*y)+f;
x:=newx;
y:=newy;
putpixel(round(x*64+350),round(530-y*48),LightGreen);

until keypressed;
readkey;
closegraph;


. 5 .. http://www.vbnet.ru/forum/show.aspx?id=159816 VB , . , negr as negr

. yaplakal.com
© , 2003–2017. : megath[aka duro], skupr, MakZ' ;), Methos' sandbox, , .
, - - , , , , - )))