home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / SPIRALA.IPS < prev    next >
Text File  |  1998-03-25  |  955b  |  45 lines

  1. VAR
  2.    E  : REAL
  3.    A  : REAL
  4.    I  : INTEGER
  5.    M1 : INTEGER
  6.    N1 : INTEGER = 500
  7.    R0 : INTEGER
  8.    R1 : REAL
  9.    R2 : REAL
  10.    X1 : REAL
  11.    Y1 : REAL
  12.    X  : REAL
  13.    Y  : REAL
  14.    FI : REAL
  15.    z  : real
  16. ENDVAR
  17.  
  18. PROCEDURE MAIN
  19.    N1 := 500   {st°ed spirßly - osa X}
  20.    M1 := 450   {st°ed spirßly - osa Y}
  21.    R0 :=  10   {pr∙m∞r spirßly}
  22.    E  :=   4   {velikost zv∞tÜovßnφ spirßly}
  23.    A  :=   0.5 {velikost kroku spirßly}
  24.    Z  := 18
  25.  
  26.    ImageInit(250,220); ImageShow;
  27. {   ImagePenColor(clRed) }
  28. {   ImageBrushColor(clYelow)}
  29.    ImagePenWidth(2)
  30.    FOR I := 100 TO 1050 STEP 10
  31.       {Z := (1050-I)/10}
  32.       {Z := SQRT(I)*1.2}
  33.       {Z := SQR(I)/25000}
  34.       {Z := I/50}
  35.  
  36.       FI := I * PI / 180
  37.       R1 := R0 * E * (A * FI)
  38.       R2 := R1 / 100
  39.       Y1 := ((M1+R1*COS(FI))+R2)/4
  40.       X1 := ((N1+R1*SIN(FI))+R2)/3.9
  41. {     ImageBrushColor(I * 1000000) }
  42.       Ellipse(X1-Z,Y1+Z,X1+Z,Y1-Z)
  43.    ENDFOR
  44. ENDPROC
  45.