home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Edition 9 / FreelogHS09.iso / FractalExplo / Formulas / ratz-general.frs < prev    next >
INI File  |  2001-04-16  |  3KB  |  166 lines
  1. [DrawSize]
  2. X_Size=300
  3. Y_Size=300
  4. [Main]
  5. Renderer=Fractal Explorer 1.22, 16.04.2001
  6. [Fractal]
  7. X_Coord=-1.94889322916666672
  8. Y_Coord=0.49967447916666675
  9. W_Coord=1
  10. X0_Coord=-2
  11. Y0_Coord=2
  12. W0_Coord=4
  13. AutoIter=0
  14. IFSIter=100
  15. Number=3000
  16. BailOut=100
  17. MaxIter=100
  18. Rotation=3
  19. P1real=5
  20. P1imag=0
  21. P2real=0.299999999999999989
  22. P2imag=0
  23. P3real=0
  24. P3imag=0
  25. PJreal=0.5
  26. PJimag=0.5
  27. Function1=0
  28. Function2=0
  29. JulieSet=0
  30. Inverted=0
  31. F-Set=0
  32. Filter=105
  33. Strange=0.0299999993294477463
  34. KeepBlk=0
  35. Filter only=1
  36. IFSColorStyle=0
  37. IFSSolidRed=255
  38. IFSSolidGreen=255
  39. IFSSolidBlue=255
  40. IFSquick=1
  41. Smoothing=0
  42. Double=0
  43. Precision=2
  44. ConstructorA1=1
  45. ConstructorB1=0
  46. ConstructorC1=1
  47. ConstructorD1=0
  48. ConstructorE1=0
  49. ConstructorF1=0
  50. ConstructorG1=0
  51. ConstructorH1=0
  52. ConstructorI1=0
  53. ConstructorJ1=0
  54. ConstructorK1=0
  55. ConstructorL1=0
  56. ConstructorM1=0
  57. [IFS]
  58. Name=
  59. Count=0
  60. [Quaternion]
  61. W=0
  62. CR=-0.456425999999999998
  63. CI=0.510553000000000035
  64. CJ=0.122399999999999995
  65. CK=-0.092399999999999996
  66. Rx=0
  67. Ry=0
  68. Rz=0
  69. Lx=2
  70. Ly=0
  71. Lz=-4
  72. AmbientClR=50
  73. AmbientClG=50
  74. AmbientClB=50
  75. DiffuseClR=190
  76. DiffuseClG=150
  77. DiffuseClB=0
  78. SpeculaClR=255
  79. SpeculaClG=255
  80. SpeculaClB=255
  81. StepBig=200
  82. StepSmall=40
  83. [UserFrm]
  84. StringCount=23
  85. Str0=  var Z,Z0,P1,P2: TComplex;
  86. Str1=      A,B,C: TComplex;
  87. Str2=Begin
  88. Str3=//------------------------------
  89. Str4=// RATZ.frm  -  General"
  90. Str5=// z=(p2*z^p1+c)/(p2*z^(p1-1)*c)
  91. Str6=//------------------------------
  92. Str7=  Z :=MakeComplex(x ,y);
  93. Str8=  Z0:=MakeComplex(cr,ci);
  94. Str9=  P1:=MakeComplex(p1r,p1i);
  95. Str10=  P2:=MakeComplex(p2r,p2i);
  96. Str11=
  97. Str12=  FuncDisp(Fn1,Z);
  98. Str13=  C :=CSubR(P1,1);
  99. Str14=
  100. Str15=  // A = P2*(Z^P1) + Z0;
  101. Str16=  A :=CAdd(CMul(P2,CPower(Z,P1)),Z0);
  102. Str17=  // B = P2*(Z^(P1-1)) * Z0;
  103. Str18=  B :=CAdd(CMul(P2,CPower(Z,C)),Z0);
  104. Str19=
  105. Str20=  Z :=CDiv(A,B);
  106. Str21=  SetResult(x,y, Z);
  107. Str22=End;
  108. [Colors]
  109. Palette type=7
  110. ColorOrder=0
  111. Grayed=0
  112. Brightness=47
  113. Contrast=38
  114. IterChanging=0
  115. UFDensity=4
  116. UFmappingMode=4
  117. InfinityRed=0
  118. InfinityGreen=0
  119. InfinityBlue=0
  120. [Standart palette]
  121. RedStep=1
  122. RedShift=-109
  123. GreenStep=3
  124. GreenShift=-243
  125. BlueStep=2
  126. BlueShift=205
  127. [Linear palette]
  128. Red1=0
  129. Red2=255
  130. Green1=0
  131. Green2=255
  132. Blue1=128
  133. Blue2=0
  134. [Parabola palette]
  135. Red1=0
  136. Red2=255
  137. Green1=0
  138. Green2=255
  139. Blue1=255
  140. Blue2=0
  141. [Square palette]
  142. Red1=0
  143. Red2=128
  144. Green1=0
  145. Green2=0
  146. Blue1=0
  147. Blue2=255
  148. [UF palette]
  149. Count=4
  150. Node0x=0
  151. Node0r=255
  152. Node0g=210
  153. Node0b=0
  154. Node1x=89
  155. Node1r=192
  156. Node1g=128
  157. Node1b=128
  158. Node2x=179
  159. Node2r=0
  160. Node2g=192
  161. Node2b=255
  162. Node3x=269
  163. Node3r=0
  164. Node3g=0
  165. Node3b=0
  166.