It´s a sad, sad world, after a magnitude of 8.9 at Richter-scale! magnit1 { ; time= 0:00:15.49--SF7 on a P4 3.00GHz reset=2004 type=formula formulafile=g5-08-la.frm formulaname=g5-08-la function=asinh/sin/tan passes=1 center-mag=-0.50188/1.99128/0.2898628/1/-5.00000000000002043/-1.80616632\ 761143592e-012 params=2/0/3/0/2/0/32/0 float=y maxiter=255 inside=0 decomp=256 periodicity=0 cyclerange=0/255 colors=00z<8>A0kB0jC0h<4>J0_K0YM0W<2>P0QR0OS0MU0KV0I<3>`0Aa08b06d04e02g0\ 0<14>Z00Y00X00W00W00<38>500500400400300200100000<19>SSSTTTVVV<12>hhhiiij\ jj<7>pppqqqrrr<6>uuuuuuuuuuuuvvv<3>vvvvvvwww<8>uuuuuuuuu<9>ooonnnmmmllll\ ll<16>UUUTTTSSS<13>888777666<2>111000002<26>00z } magnit2 { ; time= 0:00:12.41--SF7 on a P4 3.00GHz reset=2004 type=formula formulafile=g5-08-la.frm formulaname=g5-08-la function=tan/cosxx/exp passes=1 center-mag=-5.02934/-5.60236/0.09953289 params=2/0/3/0/2/0/33/0 float=y maxiter=255 inside=0 decomp=256 periodicity=0 cyclerange=0/255 colors=900<4>500500400400300200100000<19>SSSTTTVVV<12>hhhiiijjj<7>pppqqq\ rrr<6>uuuuuuuuuuuuvvv<3>vvvvvvwww<8>uuuuuuuuu<9>ooonnnmmmllllll<16>UUUTT\ TSSS<13>888777666<2>111000002<20>00l00n00q<2>00w00z00z<8>A0kB0jC0h<4>J0_\ K0YM0W<2>P0QR0OS0MU0KV0I<3>`0Aa08b06d04e02g00<51>A00 } magnit3 { ; time= 0:01:00.64--SF7 on a P4 3.00GHz reset=2004 type=formula formulafile=g5-08-la.frm formulaname=g5-08-la function=atanh/cosh/ceil passes=1 center-mag=0.90972/0.64915/1.49091/1.6556/-22.5000000000005187/-7.883901\ 86468035381e-013 params=2/0/3/0/2/0/44/0 float=y maxiter=255 inside=0 decomp=256 periodicity=0 cyclerange=0/255 colors=70o<3>C0hD0fE0e<4>M0WN0UO0SP0QR0O<5>Z0C`0Aa08<2>e02g00g00<56>5005\ 00400400300200100000<19>SSSTTTVVV<12>hhhiiijjj<7>pppqqqrrr<6>uuuuuuuuuuu\ uvvv<3>vvvvvvwww<8>uuuuuuuuu<9>ooonnnmmmllllll<16>UUUTTTSSS<13>888777666\ <2>111000002<20>00l00n00q<2>00w00z00z<5>60p } frm:g5-08-la { ; lake-transform ; Sylvie Gallet <sylviegallet@compuserve.com> ; Jan 16, 2000 ; requires: float=on, periodicity=0 ; real part of p4: 0 = lake transform disabled ; any value between 0 and 100: water level in % of ; the screen height (0 = bottom, 100 = top) ; ; Lake transformation ; ------------------- pp_2= (0.2,300) if (real(p4) > 0 && real(p4) <= 100) level = real(p4) / 100 ; water level ampl = real(pp_2) ; amplitude of the wave freq = imag(pp_2) ; frequency angle = real(rotskew * pi / 180) exp_irot = exp(-flip(angle)) h = 1 / real(magxmag) w = h / 0.75 * imag(magxmag) tanskew = tan(imag(rotskew * pi / 180)) u = 2 * w * exp_irot v = 2 * h * (tanskew + flip(1)) * exp_irot z3rd = center + (-w-h*tanskew - flip(h)) * exp_irot z = pixel - z3rd b = imag(conj(u)*z) / imag(conj(u)*v) if (b <= level) dy = level - b z = z + 2*dy * (1+ampl*sin(freq*dy^0.2)) * v endif pixel = z + z3rd endif ; import of formula: gallet-5-08.frm ; Sylvie Gallet [101324,3444], 1996 z = pixel , x = real(z) , y = imag(z) : x1 = x - p1*fn1(y + fn2(p2*x) + fn3(p3*y)) y1 = y - p1*fn1(x + fn2(p2*y) + fn3(p3*x)) x = x1 , y = y1 z = x + flip(y) |z| <= 32 } ********************* Happy New Year anyway. ********************* Special thanks to Sylvie Gallet for such many amazing formulas.. Guy +++++++++++++++++++++++++++++++++++++++++++++ Dear friends, My new email address is <gmarson[at]mnhn.lu>. The former address <guy.marson[at]mnhn.lu> is no more valid. +++++++++++++++++++++++++++++++++++++++++++++