(That's not actually necessary, unless you want to see what comes
without parameters, but renaming the file is, because no root seems to be
on this Lynx-fronted UNIX-compatible terminal system of late.)
Your rights to this work do not exclude commercial development,
and you are welcome to make recognizable changes to the tune, the colour
maps or the methods of imaje composition in order to call it yours.
Failing such uses that I would consider fair, and recovering your
costs of production means that you owe me. The contents of this message
are otherwise meant for intact distribution. Other rights or obligations
may follow from laws or institutional guidelines respecting attribution or
netiquette in your society.
A private instigator transmitted this message.
Square { ; Stripped formula for diamond. params=1/0/2/0/ident
; Display=function first. Public domain.
z=z-z, c=fn1(pixel), delta=P1:
z=(z+delta)*(z-delta)*(z+flip(delta))*(z-flip(delta))/c
|z| <= real(P2)
}
PixelPower { ; Formula for club. Public domain.
z=fn1(pixel), s=P2+fn2(pixel),
if(P3==(0,0))
P3=sqrt(0,2)
endif:
z = z^s +P1,
|z| <=real(P3)
}
Heartx { ; Stript version of hearty. params=1/0/4/0/ident
; Public domain.
s=z=fn1(real(-1/pixel) +flip(imag(-.5/pixel))):
z=s*(z-P2)*(P2-z)
|z| <= real(P1)
}
Rock { ; Formula for Diamond.
z=z-z, c=fn1(pixel), iter=-1:
iter=iter+1,
if(iter>-1 && iter< 14 )
note= 11
elseif(iter> 13 && iter< 36 )
note= 13
elseif(iter> 35 && iter< 42 )
note= 17
elseif(iter> 41 && iter< 52 )
note= 19
elseif(iter> 51 && iter< 66 )
note= 16
elseif(iter> 65 && iter< 80 )
note= 23
elseif(iter> 79 && iter< 102 )
note= 31
elseif(iter> 101 && iter< 108 )
note= 29
elseif(iter> 107 && iter< 118 )
note= 23
elseif(iter> 117 && iter< 132 )
note= 31
elseif(iter> 131 && iter< 146 )
note= 11
elseif(iter> 145 && iter< 168 )
note= 10
elseif(iter> 167 && iter< 174 )
note= 13
elseif(iter> 173 && iter< 184 )
note= 17
elseif(iter> 183 && iter< 198 )
note= 13
elseif(iter> 197 && iter< 212 )
note= 29
elseif(iter> 211 && iter< 234 )
note= 51
elseif(iter> 233 && iter< 240 )
note= 59
elseif(iter> 239 && iter< 254 )
note= 44
elseif(iter>= 254 )
iter=-1
endif,
note=note* 19 / 460
z=(z+note)*(z-note)*(z+flip(note))*(z-flip(note))/c
|z| <= real(P1)
}
Hearty { ; Might be worth compiling as overlay.
s=z=fn1(real(-1/pixel) +flip(imag(-.5/pixel))), iter=-1:
iter=iter+1,
if(iter>-1 && iter< 7 )
note= 11
elseif(iter> 6 && iter< 18 )
note= 13
elseif(iter> 17 && iter< 21 )
note= 17
elseif(iter> 20 && iter< 26 )
note= 19
elseif(iter> 25 && iter< 33 )
note= 16
elseif(iter> 32 && iter< 40 )
note= 23
elseif(iter> 39 && iter< 51 )
note= 31
elseif(iter> 50 && iter< 54 )
note= 29
elseif(iter> 53 && iter< 59 )
note= 23
elseif(iter> 58 && iter< 66 )
note= 31
elseif(iter> 65 && iter< 73 )
note= 11
elseif(iter> 72 && iter< 84 )
note= 10
elseif(iter> 83 && iter< 87 )
note= 13
elseif(iter> 86 && iter< 92 )
note= 17
elseif(iter> 91 && iter< 99 )
note= 13
elseif(iter> 98 && iter< 106 )
note= 29
elseif(iter> 105 && iter< 117 )
note= 51
elseif(iter> 116 && iter< 120 )
note= 59
elseif(iter> 119 && iter< 127 )
note= 44
elseif(iter>= 127 )
iter = -1
endif,
note=flip(note* 19 / 460 )
z=s*(z-note)*(note-z)
|z| <= real(P1)
}
Tool {
z = z-z, iter=-1, c=fn2(fn1(pixel)):
iter=iter+1,
if(iter>-1 && iter< 3 )
note= 47
elseif(iter> 2 && iter< 5 )
note= 23
elseif(iter> 4 && iter< 16 )
note= 37
elseif(iter> 15 && iter< 21 )
note= 29
elseif(iter> 20 && iter< 24 )
note= 31
elseif(iter> 23 && iter< 26 )
note= 29
elseif(iter> 25 && iter< 37 )
note= 31
elseif(iter> 36 && iter< 42 )
note= 23
elseif(iter> 41 && iter< 45 )
note= 31
elseif(iter> 44 && iter< 47 )
note= 29
elseif(iter> 46 && iter< 58 )
note= 41
elseif(iter> 57 && iter< 63 )
note= 47
elseif(iter> 62 && iter< 66 )
note= 43
elseif(iter> 65 && iter< 68 )
note= 47
elseif(iter> 67 && iter< 79 )
note= 23
elseif(iter> 78 && iter< 84 )
note= 31
elseif(iter>= 84 )
iter=-1
endif,
z = z^(note/ 33.875) +c
z = z*z
z = z*z +c
|z| <= imag(P1)
}
DiamondH { ; ~14s/megapixel. Use the absolute negative of
; this to mask off the border of DiamondV.
reset=2003 type=formula formulafile=cards.par formulaname=rock
function=ident center-mag=0/0/0.0583274/1.3374 params=16/0 float=y
maxiter=255 invert=1.32/0/0 symmetry=xyaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5
colors=zzz000<4>000zV0<3>zzz<3>0Wz0z00zz00zz0z00z<3>mmzzzzzzuppzzzkeez\
zz`WWzzzRLLzzzGBBzzz000zpzA<3>Bzo0zz00zz00BAzzBCMKzzMPYVzzY`hdzzhmtnzz\
tz000uzu000<4>000<3>0009z900z0zzzz0hzhzzzz000z0z666z6zCCCzCzIIIzIzOOPz\
PzUzVzVz__`z`zeegzgzkkmzmzqq000000zzz<4>zIzz9zz0z000<26>000<4>000z8000\
0<69>000<4>0000wzzV000zzz0z0z0z0z000wzzV000zzz0z0z0z0z000wzzV000zzz0z0\
z0z0z000wzzV000zzz0z0z0z0z000wzzV000zzz0z0z0z0z000wzzV000zzz0z0z0z0z00\
0z0
video=SF5 savename=diamondh
}
DiamondV { ; Use this after above modification to drop
; luminance of DiamondH. Raise luminance through
; negative of this. ~35s/megapixel@350Mhz
; Map Needed for other parameters.
reset=2003 type=formula formulafile=cards.par formulaname=rock
function=ident center-mag=0/0/0.0583274/1.3374 params=16/0 float=y
maxiter=255 outside=atan invert=1.32/0/0 symmetry=xyaxis
periodicity=0 viewwindows=0/0/no/600/315 video=SF5 colors=(a)grayhack.map
}
DiamondS { ; fmod view for mask on negation, maybe.
; ~30s/megapixel.
reset=2003 type=formula formulafile=cards.par formulaname=rock
function=ident center-mag=0/0/0.0583274/1.3374 params=16/0 float=y
maxiter=255 inside=0 proximity=1 outside=fmod logmap=old
invert=1.32/0/0 symmetry=xyaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5
colors=000<151>wwwxxxxxx<3>zzz000<95>000
}
ClubsH { ; Sorting off. Start with DiamondH.
; ~1m/megapixel.
reset=2003 type=formula formulafile=cards.par
formulaname=pixelpower function=sin/sqrt
center-mag=1.42995/0/0.1520244/1.4243/90/3.88578058618804789e-016
params=0/0/0/0/0/0 float=y maxiter=1024 inside=0
invert=1.45742001678948/1.33/0 symmetry=xaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5
colors=000z00z10z40z70zB0zG0zK0<3>zf0zl0zs0zz0zz0<9>Oz0Kz0Gz0<3>0z0<9>\
0zb0zf0zj<3>0zz<9>0Oz0Kz0Gz<3>00z<191>z0z
}
ClubsV { ; ~1.5m/megapixel @ 350Mhz.
reset=2003 type=formula formulafile=cards.par
formulaname=pixelpower function=sin/sqrt
center-mag=1.42995/0/0.1520244/1.4243/90/3.88578058618804789e-016
params=0/0/0/0/0/0 float=y maxiter=1024 inside=0 outside=atan
invert=1.45742001678948/1.33/0 symmetry=xaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5 colors=(a)grayhack.map
}
heartH { ; Chrominance: Alter through masks.
; ~2m/megapixel@350Mhz.
reset=2003 type=formula formulafile=cards.par formulaname=hearty
function=atanh center-mag=0/-1.1811/0.347/1.18 params=37/0 float=y
maxiter=255 inside=0 symmetry=yaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5; colors=(a)preemoh.map
colors=zzzz00zz00z00zV0zz0Wz00z<3>z0zz0Wz00<3>zz0Wz00z0<3>0zz<3>0Lz0Bz\
00zV0zz0z<3>z0Lz0Bz00<3>zz0Wz00z0<3>0zz<3>0Lz0Bz00z<3>e0zo0zz0zz0Wz00<\
3>ze0zo0zz0<3>0z00zV0zz<3>0Lz0Bz00z<3>z0z<3>z0Lz0Bz00<3>zV0zb0zj0zr0zz\
0<3>0z00zV0zz<3>00zV0zz0z<3>z00<7>z_0zc0zh0<3>zz0<3>0z0<3>0ze0zo0zz0Wz\
00z<3>P0zV0z`0z<3>z0zz0Wz00<3>ze0zo0zz0<3>Lz0Bz00z0<3>0zz<3>0Lz0Bz00z<\
3>e0zo0zz0zz0Wz00<3>zP0zV0z`0<3>zz0Wz00z0<3>0zz0Wz00z<5>V0z_0ze0z<3>z0\
z<5>z0Wz0Rz0L<3>z00<3>zz0Wz00z0<3>0zz<3>0Lz0Bz00zV0zz0z<3>z0az0Wz0Q<3>\
z00<3>zzz
}
heartV { ; Drop luminance through this "graymask".
; ~3.5m/megapixel@350Mhz.
reset=2003 type=formula formulafile=cards.par formulaname=hearty
function=atanh center-mag=0/-1.1811/0.347/1.18 params=37/0 float=y
maxiter=255 inside=0 outside=atan symmetry=yaxis periodicity=0
viewwindows=0/0/no/600/315 video=SF5;
colors=(a)grayhack.map
}
heartS { ; Mask on negation. Last. Raise contrast.
; ~3.5m/megapixel@350Mhz.
reset=2003 type=formula formulafile=cards.par formulaname=hearty
function=atanh center-mag=0/-1.1811/0.347/1.18 params=37/0 float=y
maxiter=255 inside=0 proximity=1 outside=fmod symmetry=yaxis
periodicity=0 viewwindows=0/0/no/600/315 video=SF5;
colors=(a)grayhack.map
}
Spades_Crude { ; If I do say so, myself. 8-)
; 23.62s/megapixel@350Mhz.
reset=2003 type=manzpower
center-mag=-0.9616/0/1/1.19/-90/3.88578058618804789e-016
params=0/0/4/0 float=y maxiter=255 inside=0 proximity=4
outside=fmod invert=0.47/-0.47/0 symmetry=xaxis
colors=(a)grayhack.map
}
Spades { ; 4by5 is 2400*1575 for 8"*5.25" @ 300dpi.
; Same colours as HeartH with first colour black.
; ~50s/megapixel@350Mhz.
reset=2003 type=formula formulafile=cards.par formulaname=tool
function=flip/recip center-mag=0/0.541224/0.1891708/1.97
params=2/4 float=y maxiter=255 inside=0 symmetry=yaxis
periodicity=0 viewwindows=0/0/no/600/315 video=SF5
viewwindows=0/0/no/600/315 colors=(a)preemoh.map
}
SpadesVV { ; Disk-video modes only work with passes=1.
; grayhack.map=-altern.map with first colour set to black.
; ~1m/megapixel@350Mhz. I deleted my true graymaps,
; because it's usually an error for me to use them,
; and they're easy to jenerate, approximately.
reset=2003 type=formula formulafile=cards.par formulaname=tool
function=flip/recip center-mag=0/0.541224/0.1891708/1.97
params=2/4 float=y maxiter=255 inside=0 outside=atan
symmetry=yaxis periodicity=0 viewwindows=0/0/no/600/315 video=SF5
viewwindows=0/0/no/600/315; colors=(a)grayhack.map
}