; DON'T _RUN_ this file, just COMPILE it and view it with any
; image program that supports 8-bit paletted TGA-images (many does).

; usage: "fasm mandeldb.asm"

format  binary as ".tga"

; Some basic image properties. Feel free to modify
Width  equ 120
Height       equ 120
IterLim equ 256
Prec      equ 29; don't set above 29 nor to low, else image may be scrambled

; TGA-header: 8-bit paletted image
dw 256,1
db 0,0,1,24
dw 0,0,Width,Height
db 8,8

; palette: 256*3bytes (RGB)
repeat 256
 db (%+54h) and 0FFh
 db (%+0A9h) and 0FFh
 db % - 1
end repeat

; actual image (Mandelbrot fractal)
PrecScale = 1 shl (Prec-1)

StepR = (5 shl (Prec-1) +Width       shr 1) / Width; = 2.5/Width
StepI = (5 shl (Prec-1) +Height shr 1) / Height; = 3/Height

PosI = -5 shl (Prec-2); = -1.25
repeat Height
 PosR = -2 shl Prec; = -2
 repeat Width
  R = PosR
  I = PosI
  RR = (PosR*PosR) shr Prec
  II = (PosI*PosI) shr Prec

  Color = IterLim - 1; Color is also the current iteration number
  repeat IterLim
   if (RR + II) > 4 shl Prec
    break
   end if
   Tmp = (RR - II) + PosR
   I = (R*I) / PrecScale + PosI
   R = Tmp
   RR = (Tmp*Tmp) shr Prec
   II = (I*I) shr Prec
   Color = Color - 1; discounting Color
  end repeat
  if Color < 0
   Color = 0
  end if
  db Color

  PosR = PosR + StepR
 end repeat
 PosI = PosI + StepI
end repeat
    

cool I remember sometime ago similar examples were posted, they were generating BMP files...

; This example will compile(!) to a beat-sound using data defining directives
;and thus it doesn't need to be run. Furthermore,

; DON'T _RUN_ this file, just COMPILE it and listen to it with any
; sound program that supports 16-bit 11025Hz mono WAV-sounds (many does).

; usage: "FASM BEAT.ASM BEAT.WAV"
; better keep the ".WAV"-extension, else this might confuse some lamish
; sound programs.

Prec        equ 24;change with care!
Length      equ 2205;length in samples = 0.2 seconds

;If you change Lambda, then you must change CoLambda accordingly!
Lambda     = 140000h; = 5/64
CoLambda = 16725938; = SqRt( 1 - Lambda*Lambda )

;Setting these values to high/low can quickly result in
;"value out of range" errors!
Reverb        = 0FFB000h
CoReverb = 1000014h

;Better keep the following values
PrecDiv = 1 shl Prec
WordDiv = 1 shl (Prec-15);used to normalize to +-2^15

;PCM-wave file header
;comment these lines out if you prefer a RAW file
db    'RIFF'
dd  (Length shl 1) + 36
db       'WAVEfmt '
dw      10h,0,1,1
db 11h,2Bh,0,0,22h,56h
dw       0,2,10h
db   'data'
dd  (Length shl 1)

;Initiating robber and prey variables
A = 0 shl Prec
B = 1 shl Prec

;Main fluctuating growth model calculation loop
repeat Length
 ;This could be optimized by implementing a "sar" operator into Fasm
 Tmp = ( A*CoLambda + B*Lambda )/PrecDiv
 B   = ( B*CoLambda - A*Lambda )/PrecDiv
 A = Tmp
 dw (A/WordDiv)
 Lambda   = (  Lambda *   Reverb) shr Prec
 CoLambda = (CoLambda * CoReverb) shr Prec
end repeat
    

And for all those who really like fractal images, here is a complete collection of my best images. Although they are much smaller than the originally PNGs (about 5-22Mb PNG per image ~ 20MEGAPIXELS), the archive is still _CHUNKY_ (sorry old modems) not to degrade quality too much (1Mpixel per image).

If someone whiches, I could give him the originals...

They were all created with FractInt 20.0 ans UltraFractal 3, so I could pass you the parameters/formulas too.

Don't mind me, but for the TrueColor ones, I prefer using the LWF-format
(Lura Wave format) which is already supported many image programs or plugged in(Photoshop, IrfanView, XnView, PainShopPro...) not to break compatibility, but for better image quality!


Sorry folks! but I must interrupt this post because it seems to be impossible to upload this 6.27MB archive here.
=>Privalov, is there a file size limitation? How could I upload this file, HELP!