home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1998 June
/
PCWorld_1998-06_cd.bin
/
software
/
Programy
/
Ozogan
/
SPIRALA.IPS
< prev
next >
Wrap
Text File
|
1998-03-25
|
955b
|
45 lines
VAR
E : REAL
A : REAL
I : INTEGER
M1 : INTEGER
N1 : INTEGER = 500
R0 : INTEGER
R1 : REAL
R2 : REAL
X1 : REAL
Y1 : REAL
X : REAL
Y : REAL
FI : REAL
z : real
ENDVAR
PROCEDURE MAIN
N1 := 500 {st°ed spirßly - osa X}
M1 := 450 {st°ed spirßly - osa Y}
R0 := 10 {pr∙m∞r spirßly}
E := 4 {velikost zv∞tÜovßnφ spirßly}
A := 0.5 {velikost kroku spirßly}
Z := 18
ImageInit(250,220); ImageShow;
{ ImagePenColor(clRed) }
{ ImageBrushColor(clYelow)}
ImagePenWidth(2)
FOR I := 100 TO 1050 STEP 10
{Z := (1050-I)/10}
{Z := SQRT(I)*1.2}
{Z := SQR(I)/25000}
{Z := I/50}
FI := I * PI / 180
R1 := R0 * E * (A * FI)
R2 := R1 / 100
Y1 := ((M1+R1*COS(FI))+R2)/4
X1 := ((N1+R1*SIN(FI))+R2)/3.9
{ ImageBrushColor(I * 1000000) }
Ellipse(X1-Z,Y1+Z,X1+Z,Y1-Z)
ENDFOR
ENDPROC