home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Edition 9 / FreelogHS09.iso / FractalExplo / Formulas / noel-bfly.frs < prev    next >
INI File  |  2001-04-15  |  3KB  |  170 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=-2
  8. Y_Coord=2
  9. W_Coord=4
  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=150
  18. Rotation=0
  19. P1real=0
  20. P1imag=0
  21. P2real=1
  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=0
  33. Strange=0.0399999991059303284
  34. KeepBlk=0
  35. Filter only=0
  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=27
  85. Str0=  var Z,Z0,P1,P2,P3: TComplex;
  86. Str1=Begin
  87. Str2=//  --------------------------
  88. Str3=//  NOEL.FRM  -  bfly (XYAXIS)
  89. Str4=//  --------------------------
  90. Str5=//  z = zp1 = pixel, zp2 = (0,0):
  91. Str6=//  temp = z
  92. Str7=//  z  = z * zp1 + zp2
  93. Str8=//  zp2 = zp1
  94. Str9=//  zp1 = temp
  95. Str10=//  --------------------------
  96. Str11=
  97. Str12=  Z :=MakeComplex(x,y);
  98. Str13=  If cA1.real=0 Then cA1:=Z;
  99. Str14=
  100. Str15=  Z0:=MakeComplex(cr,ci);
  101. Str16=  P1:=MakeComplex(p1r,p1i);
  102. Str17=  P2:=MakeComplex(p2r,p2i);
  103. Str18=  P3:=CAdd(Z,P1);
  104. Str19=  FuncDisp(Fn1,Z);
  105. Str20=  Z :=CDiv(CAdd(CMul(Z,cA1),cA2),P2);
  106. Str21=  cA2:=cA1;
  107. Str22=  cA1:=P3;
  108. Str23=  FuncDisp(Fn2,cA1);
  109. Str24=
  110. Str25=  SetResult(x,y, Z);
  111. Str26=End;
  112. [Colors]
  113. Palette type=0
  114. ColorOrder=0
  115. Grayed=0
  116. Brightness=0
  117. Contrast=0
  118. IterChanging=0
  119. UFDensity=4
  120. UFmappingMode=4
  121. InfinityRed=0
  122. InfinityGreen=0
  123. InfinityBlue=0
  124. [Standart palette]
  125. RedStep=5
  126. RedShift=-186
  127. GreenStep=5
  128. GreenShift=128
  129. BlueStep=7
  130. BlueShift=-232
  131. [Linear palette]
  132. Red1=0
  133. Red2=255
  134. Green1=0
  135. Green2=255
  136. Blue1=128
  137. Blue2=0
  138. [Parabola palette]
  139. Red1=0
  140. Red2=255
  141. Green1=0
  142. Green2=255
  143. Blue1=255
  144. Blue2=0
  145. [Square palette]
  146. Red1=0
  147. Red2=128
  148. Green1=0
  149. Green2=0
  150. Blue1=0
  151. Blue2=255
  152. [UF palette]
  153. Count=4
  154. Node0x=0
  155. Node0r=255
  156. Node0g=210
  157. Node0b=0
  158. Node1x=89
  159. Node1r=192
  160. Node1g=128
  161. Node1b=128
  162. Node2x=179
  163. Node2r=0
  164. Node2g=192
  165. Node2b=255
  166. Node3x=269
  167. Node3r=0
  168. Node3g=0
  169. Node3b=0
  170.