[DrawSize] X_Size=100 Y_Size=75 [Main] Renderer=Fractal Explorer 1.24b2, 27/08/2002 Comment= SignText= [Fractal] X_Coord=-0.09937831048356448 Y_Coord=0.626921401024018778 W_Coord=1.68421052631578947 X0_Coord=-2 Y0_Coord=2 W0_Coord=4 AutoIter=0 IFSIter=100 Number=3000 ST_Number=1 BailOut=4 MaxIter=100 Rotation=10 Rotation_free=-90 P1real=4 P1imag=0 P2real=1 P2imag=0 P3real=1 P3imag=0 P4real=0 P4imag=0 PJreal=0.119999999999999996 PJimag=0 Function1=0 Function2=0 Transformer=0 JulieSet=1 Inverted=0 F-Set=1 Filter=0 Strange=0.00999999977648258209 KeepBlk=0 NoOutside=0 Filter only=0 IFSColorStyle=0 IFSSolidRed=255 IFSSolidGreen=255 IFSSolidBlue=255 IFSquick=1 Smoothing=0 Double=0 Precision=2 ConstructorA1=1 ConstructorB1=0 ConstructorC1=1 ConstructorD1=0 ConstructorE1=0 ConstructorF1=0 ConstructorG1=0 ConstructorH1=0 ConstructorI1=0 ConstructorJ1=0 ConstructorK1=0 ConstructorL1=0 ConstructorM1=0 [IFS] Name= Count=0 [Quaternion] W=0 CR=-0.456425999999999998 CI=0.510553000000000035 CJ=0.122399999999999995 CK=-0.092399999999999996 Rx=0 Ry=0 Rz=0 Lx=2 Ly=0 Lz=-4 Lx2=-2 Ly2=0 Lz2=-4 AmbientClR=50 AmbientClG=50 AmbientClB=50 DiffuseClR=190 DiffuseClG=150 DiffuseClB=0 SpeculaClR=255 SpeculaClG=255 SpeculaClB=255 AmbientClR2=50 AmbientClG2=50 AmbientClB2=50 DiffuseClR2=190 DiffuseClG2=150 DiffuseClB2=0 SpeculaClR2=255 SpeculaClG2=255 SpeculaClB2=255 MergeMode=0 MergeModeAlpha=10 StepBig=200 StepSmall=40 MaxIter=30 Bailout=16 QTrims=1 [UserFrm] StringCount=48 Str0=˙˙var˙Z,C,P1,P2,P3,P4˙˙˙:˙TComplex; Str1=˙˙˙˙˙˙T0,T1,T2,T3,T4,T5˙:˙TComplex; Str2=˙˙˙˙˙˙R0˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙:˙Extended; Str3=Begin˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str4=˙˙Z˙:=MakeComplex(x,y);˙˙˙˙ Str5=˙˙C˙:=MakeComplex(cr,ci);˙˙ Str6=˙˙P1:=MakeComplex(p1r,p1i); Str7=˙˙P2:=MakeComplex(p2r,p2i); Str8=˙˙P3:=MakeComplex(p3r,p3i); Str9=˙˙P4:=MakeComplex(p4r,p4i); Str10=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str11=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str12=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str13=˙˙//˙-initialization˙code˙˙ Str14=˙˙//˙˙(first˙iteration)˙˙˙˙ Str15=˙˙If˙iter_number=1˙Then˙begin Str16=˙˙˙˙z:=P2 Str17=˙˙end; Str18=˙˙If˙julia˙then˙begin˙ Str19=˙˙˙˙Z:=MakeComplex(x,y) Str20=˙˙end;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str21=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str22=˙˙//˙write˙the˙formula˙here Str23= Str24=//˙z-(csin(t0)+cln(cabs(t0))-p3)/ Str25=//˙(p1*(ccos(t0)+1/cabs(t0)))+fn1(c) Str26=˙˙T0:=CMul(Z,P1); Str27=˙˙T1:=CSIN(T0); Str28=˙˙R0:=sqrt(T0.real*T0.real+T0.imag*T0.imag); Str29=˙˙T2:=MakeComplex(R0,0); Str30=˙˙T2:=CLN(T2); Str31=˙˙T1:=CAdd(T1,T2); Str32=˙˙T1:=CSub(T1,P3); Str33=˙˙T2:=CCOS(T0); Str34=˙˙R0:=sqrt(T0.real*T0.real+T0.imag*T0.imag); Str35=˙˙T0:=MakeComplex(R0,0); Str36=˙˙T3:=MakeComplex(1,0); Str37=˙˙T3:=CDiv(T3,T0); Str38=˙˙T2:=CAdd(T2,T3); Str39=˙˙T2:=CMul(P1,T2); Str40=˙˙FuncDisp(FN1,C); Str41=˙˙T1:=CDiv(T1,T2); Str42=˙˙Z:=CSub(Z,T1); Str43=˙˙Z:=CAdd(Z,C); Str44=˙˙ Str45=˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ Str46=˙˙SetResult(x,y,˙Z);˙˙˙˙˙˙˙ Str47=End; [Colors] Palette type=0 ColorOrder=0 Grayed=0 Brightness=-16 Contrast=8 IterChanging=0 UFDensity=5 UFmappingMode=4 InfinityRed=0 InfinityGreen=0 InfinityBlue=0 [Standart palette] RedStep=8 RedShift=-122 GreenStep=8 GreenShift=-239 BlueStep=9 BlueShift=-231 [Linear palette] Red1=0 Red2=255 Green1=0 Green2=255 Blue1=128 Blue2=0 [Parabola palette] Red1=0 Red2=255 Green1=0 Green2=255 Blue1=255 Blue2=0 [Square palette] Red1=0 Red2=128 Green1=0 Green2=0 Blue1=0 Blue2=255 [UF palette] Count=6 Node0x=68 Node0r=168 Node0g=92 Node0b=163 Node1x=155 Node1r=0 Node1g=0 Node1b=0 Node2x=223 Node2r=255 Node2g=114 Node2b=81 Node3x=247 Node3r=195 Node3g=152 Node3b=0 Node4x=272 Node4r=206 Node4g=157 Node4b=0 Node5x=337 Node5r=52 Node5g=0 Node5b=0