WebSVN – Kolibri OS – Diff – /programs/demos/tinyfrac/trunk/tinyfrac.asm


; tinyfrac.asm
;
; teeny program displays the Mandelbrot set.
;
; written on Sun  03-26-1995  by Ed Beroset (Fidonet 1:3641/1.250)
;
; This program was based on a program by Frank Hommers, later optimized
; for size by Mikko Hyvarinen and posted in Fidonet's 80XXX echo.
;
; This new version has many new features and was based on my own
; optimization of Hyvarinen's version.  Some features:
;
; pan     using the arrow keys, one can navigate the fractal.
;
;               Home  Up  PgUp
;               Left      Right   correspond to 8 obvious directions
;               End   Dn  PgDn
;
; zoom    there are now ten levels of magnification available.  If the
;         program is assembled with FEATURES defined, the number
;         corresponding to the zoom level (0-9, zero is most zoomed in)
;         is displayed in the upper left hand corner of the screen just
;         before each new fractal is drawn.  The gray '+' key zooms out,
;         the gray '-' key zooms in.
;
; beep    the program will beep at the completion of each fractal
;         drawing or if the user attempts to zoom past either limit.
;
; mode    if the program is assembled with MODECHANGE defined, the
;         will change to the next video mode if the 'v' key is pressed.
;         This is handy because drawing fractals at high resolution can
;         be very timeconsuming.  The user can find an interesting spot
;         in a low res mode and then change to a high res mode to see it
;         more fully rendered.
;
; size    this whole project was started off as a size optimization
;         exercise, so there have been some rather ugly tradeoffs to
;         sacrifice speed for size.
;
; 8086    yes, it runs on an 8086 although only if you leave out either
;         the FEATURES option or the MODECHANGE option and it would be
;         slower and more painful than oral surgery.
;
; cost    there IS such a thing as a free lunch!  This code is hereby
;         released to the public domain by the author.
;
;
; to assemble & link:
;   TASM /m2 tinyfrac       (assemble using two pass mode if required)
;   TLINK /Tdc tinyfrac     (link Target platform is DOS, COM file)
;
;
 
PIXWIDTH    equ 511
PIXHEIGHT   equ 255
 
ZOOMLIMIT   equ  13       ; can change to up to 13 for extended zoom in
 
; feel free to experiment with the following constants:
 
DELTA       equ 200       ; the unit of pan movement in pixels
THRESHOLD   equ  7        ; must be in the range of (0,255)
STARTSCALE  equ  5        ; a number from 0 to ZOOMLIMIT, inclusive
CHAR_COLOR  equ 0fh       ; white on black background (for PRINTZOOM feature)
 
 
 
; ************************************************************
;
;   Menuet header
 
 
use32
 
                  org     0x0
 
                  db      'MENUET01'
                  dd      0x01
                  dd      START
                  dd      I_END
                  dd      0x62000
                  dd      0x1000
                  dd      0,0
 
include 'lang.inc'
include '..\..\..\macros.inc'
 
STARTX  dd  200
STARTY  dd  120
 
scaleaddy dd 120
scaleaddx dd 200
 
START:
 
red:
        call    draw_window
        call    draw_fractal
 
still:
 
        mov  eax,10
        mcall
 
        dec  eax
        jz   red
        dec  eax
        jz   key
 
      button:
        mov  al,17
        mcall
 
        cmp  ah,1
        jne  no_close
        or   eax,-1
        mcall
      no_close:
 
        cmp  ah,2
        jne  no_bgr
 
 
        mov  eax,15   ; bgr 512 x 256
        mov  ebx,1
        mov  ecx,512
        mov  edx,256
        mcall
 
        mov  eax,15
        mov  ebx,5
        mov  ecx,0x1000
        mov  edx,0
        mov  esi,512*3*256
        mcall
 
        mov  eax,15
        mov  ebx,3
        mcall
 
        jmp  still
 
      no_bgr:
 
        cmp  ah,3
        jb   no_color
        cmp  ah,5
        jg   no_color
        shr  eax,8
        sub  eax,3
        imul eax,8
        add  eax,8
        not  eax
        and  eax,11000b
        mov  [shlc],al
        call draw_fractal
        jmp  still
 
      no_color:
 
        jmp  still
 
 
      key:
        mov  al,2
        mcall
 
        cmp  ah,'e'
        je   cycle
        cmp  ah,'r'
        je   cycle
        jmp  no_cycle
      cycle:
        call color_cycle
        jmp  still
      no_cycle:
 
        cmp  ah,'q'
        jne  no_in
        inc  byte [scale]
        mov  ebx,[STARTX]
        imul ebx,2
        sub  ebx,[scaleaddx]
        mov  [STARTX],ebx
        mov  ebx,[STARTY]
        imul ebx,2
        sub  ebx,[scaleaddy]
        mov  [STARTY],ebx
      no_in:
 
        cmp  ah,'w'
        jne  no_out
        dec  byte [scale]
        mov  ebx,[STARTX]
        add  ebx,[scaleaddx]
        shr  ebx,1
        mov  [STARTX],ebx
        mov  ebx,[STARTY]
        add  ebx,[scaleaddy]
        shr  ebx,1
        mov  [STARTY],ebx
      no_out:
 
        cmp  ah,130+48
        jne  no_up
        sub  [STARTY],100
      no_up:
 
        cmp  ah,129+48
        jne  no_down
        add  [STARTY],100
      no_down:
 
        cmp  ah,128+48
        jne  no_left
        sub  [STARTX],100
      no_left:
 
        cmp  ah,131+48
        jne  no_right
        add  [STARTX],100
      no_right:
 
        call draw_fractal
        jmp  still
 
color_cycle:
 
     pusha
     mov  ecx,0x08080808
     mov  esi,(256/8)*5
     cmp  ah,'e'
     je   f_out
     mov  ecx,-0x08080808
     mov  esi,(256/8)*5-1
   f_out:
 
   newcycle:
     mov  edi,0x1000
   newpix:
     mov  eax,[edi]
     add  eax,ecx
     mov  [edi],eax
     add  edi,4
     cmp  edi,0x1000+512*256*3
     jb   newpix
     call put_image
     mov  eax,5
     mov  ebx,1
     mcall
     dec  esi
     jnz  newcycle
 
     mov  eax,0
     mov  edi,0x1000
     mov  ecx,512*256*3 / 4 +50
     cld
     rep  stosd
 
     popa
 
     call draw_fractal
 
     ret
 
 
 
 
 
; **********************************************************************
;
;    Tinyfrac
;
 
 
draw_fractal:
 
        pusha
        mov     eax,4
        mov     ebx,10*65536+30
        mov     ecx,0x80ffffff
        mov     edx,calc
        mcall
        popa
        pusha
 
        movzx   ebp,word [STARTX]
        movzx   edi,word [STARTY]
 
 
;       This routine is the fractal drawing engine.  It has been
;       optimized for size, sacrificing speed.
 
        mov     cx, PIXHEIGHT   ; height of screen in pixels
 
        sub     di,cx           ; adjust our Y offset
@@CalcRow:
 
        push    cx
 
        mov     cx, PIXWIDTH -1  ; width of screen in pixels
 
        sub     bp,cx           ;
@@CalcPixel:
        push    cx              ; save the column counter on stack
        xor     cx, cx          ; clear out color loop counter
        xor     bx, bx          ; zero i coefficient
        xor     dx, dx          ; zero j coefficient
@@CycleColors:
        push    dx              ; save j value for later
        mov     ax, bx          ; ax = i
        sub     ax, dx          ; ax = i - j
        add     dx, bx          ; dx = i + j
        stc                     ; one additional shift, please
        call    Shifty          ; ax = ((i+j)*(i-j)) shifted right
        pop     dx              ; retrieve our saved value for j
        add     ax,bp           ; account for base offset...
        cmp     ah,THRESHOLD    ; Q: is i > THRESHOLD * 256?
        xchg    bx,ax           ; now swap new i with old i
        jg      @@draw          ; Y: draw this pixel
        clc                     ; no additional shifts here, please
        call    Shifty          ; now dx:ax = old i * j
        xchg    dx,ax           ;
        add     dx,di           ; account for base offset...
        inc     cl              ; increment color
        jnz     @@CycleColors   ; keep going until we're done
@@draw:
        xchg    ax, cx          ; mov color into al
        pop     cx              ; retrieve our column counter
        pop     dx              ; fetch row (column already in cx)
        push    dx              ; must leave a copy on the stack
        xor     bx,bx           ; write to video page zero
 
        call    put_pixel
 
        inc     bp
        loop    @@CalcPixel
        inc     di
        pop     cx
        loop    @@CalcRow
 
        call    put_image
 
        popa
 
        ret
 
 
put_image:
 
        pusha
 
        mov  eax,7
        mov  ebx,0x1000
        mov  ecx,512*65536+256
        mov  edx,4*65536+21
        mcall
 
        popa
 
        ret
 
 
shlc db 0
 
put_pixel:
 
        pusha
        sub     edi,[STARTY]
        sub     ebp,[STARTX]
        and     edi,0xff
        and     ebp,0x1ff
        shl     edi,9
        mov     ebx,edi ; * 3 - Y
        add     edi,ebx
        add     edi,ebx
        mov     ebx,ebp
        add     ebp,ebx
        add     ebp,ebx
        add     edi,ebp
        mov     cl,[shlc]
        mov     ebx,0xff
        shl     ebx,cl
        add     cl,3
        shl     eax,cl
        and     eax,ebx
        mov     [0x1000+edi],eax
        popa
 
        ret
 
 
;****************************************************************************
 ;
 ;       This routine multiplies AX by DX and shifts the result (in
;       DX:AX) to the right by scale bits (or scale+1 bits if CY is
;       set).  The resulting value is left in AX.  DX is destroyed.
;
;****************************************************************************
 
Shifty:
        push    cx              ; save middle bits (i*i - j*j)
        db      0b1h            ; code for mov cl,immed8
scale   db      STARTSCALE
        adc     cl,0            ; adjust per CY flag
        imul    dx              ; do the multiply
 
        xchg    ax,dx           ;
        shl     eax,16          ; put hi part in hi 16 bits
        xchg    ax,dx
        shr     eax,cl          ;
 
        pop     cx              ;
        ret                     ;
 
 
 
; **********************************************************************
;
;                   WINDOW DEFINITIONS AND DRAW
;
; **********************************************************************
 
 
 
draw_window:
 
      pusha
 
      mov  eax,12
      mov  ebx,1
      mcall
 
      xor  eax,eax
      mov  ebx,50*65536+PIXWIDTH+8
      mov  ecx,100*65536+PIXHEIGHT+25
      mov  edx,0x14334455
      mov  edi,title
      mcall
 
      mov  eax,8
      mov  ebx,290*65536+112
      mov  ecx,5*65536+12
      mov  edx,2
      mov  esi,0x808080
      mcall
 
      mov  ebx,420*65536+12
      mov  ecx,5*65536+12
      mov  edx,3
      mov  esi,0xa00000
      mov  edi,3
      ;mov  eax,8
    newcolor:
      mcall
      add  ebx,13*65536
      shr  esi,8
      inc  edx
      dec  edi
      jnz  newcolor
 
      mov  eax,4
      mov  ebx,300*65536+8
      mov  ecx,0x80ffffff
      mov  edx,button_txt
      mcall
 
      mov  eax,12
      mov  ebx,2
      mcall
 
      popa
      ret
 
 
; ***************************************************************
;
;     DATA AREA
;
 
 
title      db 'Tinyfrac - MOVE: ARROWS, ZOOM Q/W, CYCLE: E/R',0
button_txt  db 'Set as wallpaper',0
 
calc        db 'CALCULATING',0
 
I_END:

Rev 485	Rev 551
1	; tinyfrac.asm	1	; tinyfrac.asm
2	;	2	;
3	; teeny program displays the Mandelbrot set.	3	; teeny program displays the Mandelbrot set.
4	;	4	;
5	; written on Sun 03-26-1995 by Ed Beroset (Fidonet 1:3641/1.250)	5	; written on Sun 03-26-1995 by Ed Beroset (Fidonet 1:3641/1.250)
6	;	6	;
7	; This program was based on a program by Frank Hommers, later optimized	7	; This program was based on a program by Frank Hommers, later optimized
8	; for size by Mikko Hyvarinen and posted in Fidonet's 80XXX echo.	8	; for size by Mikko Hyvarinen and posted in Fidonet's 80XXX echo.
9	;	9	;
10	; This new version has many new features and was based on my own	10	; This new version has many new features and was based on my own
11	; optimization of Hyvarinen's version. Some features:	11	; optimization of Hyvarinen's version. Some features:
12	;	12	;
13	; pan using the arrow keys, one can navigate the fractal.	13	; pan using the arrow keys, one can navigate the fractal.
14	;	14	;
15	; Home Up PgUp	15	; Home Up PgUp
16	; Left Right correspond to 8 obvious directions	16	; Left Right correspond to 8 obvious directions
17	; End Dn PgDn	17	; End Dn PgDn
18	;	18	;
19	; zoom there are now ten levels of magnification available. If the	19	; zoom there are now ten levels of magnification available. If the
20	; program is assembled with FEATURES defined, the number	20	; program is assembled with FEATURES defined, the number
21	; corresponding to the zoom level (0-9, zero is most zoomed in)	21	; corresponding to the zoom level (0-9, zero is most zoomed in)
22	; is displayed in the upper left hand corner of the screen just	22	; is displayed in the upper left hand corner of the screen just
23	; before each new fractal is drawn. The gray '+' key zooms out,	23	; before each new fractal is drawn. The gray '+' key zooms out,
24	; the gray '-' key zooms in.	24	; the gray '-' key zooms in.
25	;	25	;
26	; beep the program will beep at the completion of each fractal	26	; beep the program will beep at the completion of each fractal
27	; drawing or if the user attempts to zoom past either limit.	27	; drawing or if the user attempts to zoom past either limit.
28	;	28	;
29	; mode if the program is assembled with MODECHANGE defined, the	29	; mode if the program is assembled with MODECHANGE defined, the
30	; will change to the next video mode if the 'v' key is pressed.	30	; will change to the next video mode if the 'v' key is pressed.
31	; This is handy because drawing fractals at high resolution can	31	; This is handy because drawing fractals at high resolution can
32	; be very timeconsuming. The user can find an interesting spot	32	; be very timeconsuming. The user can find an interesting spot
33	; in a low res mode and then change to a high res mode to see it	33	; in a low res mode and then change to a high res mode to see it
34	; more fully rendered.	34	; more fully rendered.
35	;	35	;
36	; size this whole project was started off as a size optimization	36	; size this whole project was started off as a size optimization
37	; exercise, so there have been some rather ugly tradeoffs to	37	; exercise, so there have been some rather ugly tradeoffs to
38	; sacrifice speed for size.	38	; sacrifice speed for size.
39	;	39	;
40	; 8086 yes, it runs on an 8086 although only if you leave out either	40	; 8086 yes, it runs on an 8086 although only if you leave out either
41	; the FEATURES option or the MODECHANGE option and it would be	41	; the FEATURES option or the MODECHANGE option and it would be
42	; slower and more painful than oral surgery.	42	; slower and more painful than oral surgery.
43	;	43	;
44	; cost there IS such a thing as a free lunch! This code is hereby	44	; cost there IS such a thing as a free lunch! This code is hereby
45	; released to the public domain by the author.	45	; released to the public domain by the author.
46	;	46	;
47	;	47	;
48	; to assemble & link:	48	; to assemble & link:
49	; TASM /m2 tinyfrac (assemble using two pass mode if required)	49	; TASM /m2 tinyfrac (assemble using two pass mode if required)
50	; TLINK /Tdc tinyfrac (link Target platform is DOS, COM file)	50	; TLINK /Tdc tinyfrac (link Target platform is DOS, COM file)
51	;	51	;
52	;	52	;
53		53
54	PIXWIDTH equ 511	54	PIXWIDTH equ 511
55	PIXHEIGHT equ 255	55	PIXHEIGHT equ 255
56		56
57	ZOOMLIMIT equ 13 ; can change to up to 13 for extended zoom in	57	ZOOMLIMIT equ 13 ; can change to up to 13 for extended zoom in
58		58
59	; feel free to experiment with the following constants:	59	; feel free to experiment with the following constants:
60		60
61	DELTA equ 200 ; the unit of pan movement in pixels	61	DELTA equ 200 ; the unit of pan movement in pixels
62	THRESHOLD equ 7 ; must be in the range of (0,255)	62	THRESHOLD equ 7 ; must be in the range of (0,255)
63	STARTSCALE equ 5 ; a number from 0 to ZOOMLIMIT, inclusive	63	STARTSCALE equ 5 ; a number from 0 to ZOOMLIMIT, inclusive
64	CHAR_COLOR equ 0fh ; white on black background (for PRINTZOOM feature)	64	CHAR_COLOR equ 0fh ; white on black background (for PRINTZOOM feature)
65		65
66		66
67		67
68	; ************************************************************	68	; ************************************************************
69	;	69	;
70	; Menuet header	70	; Menuet header
71		71
72		72
73	use32	73	use32
74		74
75	org 0x0	75	org 0x0
76		76
77	db 'MENUET01'	77	db 'MENUET01'
78	dd 0x01	78	dd 0x01
79	dd START	79	dd START
80	dd I_END	80	dd I_END
81	dd 0x62000	81	dd 0x62000
82	dd 0x1000	82	dd 0x1000
83	dd 0,0	83	dd 0,0
84		84
85	include 'lang.inc'	85	include 'lang.inc'
86	include '..\..\..\macros.inc'	86	include '..\..\..\macros.inc'
87		87
88	STARTX dd 200	88	STARTX dd 200
89	STARTY dd 120	89	STARTY dd 120
90		90
91	scaleaddy dd 120	91	scaleaddy dd 120
92	scaleaddx dd 200	92	scaleaddx dd 200
93		93
94	START:	94	START:
95		95
96	red:	96	red:
97	call draw_window	97	call draw_window
98	call draw_fractal	98	call draw_fractal
99		99
100	still:	100	still:
101		101
102	mov eax,10	102	mov eax,10
103	mcall	103	mcall
104		104
105	dec eax	105	dec eax
106	jz red	106	jz red
107	dec eax	107	dec eax
108	jz key	108	jz key
109		109
110	button:	110	button:
111	mov al,17	111	mov al,17
112	mcall	112	mcall
113		113
114	cmp ah,1	114	cmp ah,1
115	jne no_close	115	jne no_close
116	or eax,-1	116	or eax,-1
117	mcall	117	mcall
118	no_close:	118	no_close:
119		119
120	cmp ah,2	120	cmp ah,2
121	jne no_bgr	121	jne no_bgr
122		122
123		123
124	mov eax,15 ; bgr 512 x 256	124	mov eax,15 ; bgr 512 x 256
125	mov ebx,1	125	mov ebx,1
126	mov ecx,512	126	mov ecx,512
127	mov edx,256	127	mov edx,256
128	mcall	128	mcall
129		129
130	mov eax,15	130	mov eax,15
131	mov ebx,5	131	mov ebx,5
132	mov ecx,0x1000	132	mov ecx,0x1000
133	mov edx,0	133	mov edx,0
134	mov esi,5123256	134	mov esi,5123256
135	mcall	135	mcall
136		136
137	mov eax,15	137	mov eax,15
138	mov ebx,3	138	mov ebx,3
139	mcall	139	mcall
140		140
141	jmp still	141	jmp still
142		142
143	no_bgr:	143	no_bgr:
144		144
145	cmp ah,3	145	cmp ah,3
146	jb no_color	146	jb no_color
147	cmp ah,5	147	cmp ah,5
148	jg no_color	148	jg no_color
149	shr eax,8	149	shr eax,8
150	sub eax,3	150	sub eax,3
151	imul eax,8	151	imul eax,8
152	add eax,8	152	add eax,8
153	not eax	153	not eax
154	and eax,11000b	154	and eax,11000b
155	mov [shlc],al	155	mov [shlc],al
156	call draw_fractal	156	call draw_fractal
157	jmp still	157	jmp still
158		158
159	no_color:	159	no_color:
160		160
161	jmp still	161	jmp still
162		162
163		163
164	key:	164	key:
165	mov al,2	165	mov al,2
166	mcall	166	mcall
167		167
168	cmp ah,'e'	168	cmp ah,'e'
169	je cycle	169	je cycle
170	cmp ah,'r'	170	cmp ah,'r'
171	je cycle	171	je cycle
172	jmp no_cycle	172	jmp no_cycle
173	cycle:	173	cycle:
174	call color_cycle	174	call color_cycle
175	jmp still	175	jmp still
176	no_cycle:	176	no_cycle:
177		177
178	cmp ah,'q'	178	cmp ah,'q'
179	jne no_in	179	jne no_in
180	inc byte [scale]	180	inc byte [scale]
181	mov ebx,[STARTX]	181	mov ebx,[STARTX]
182	imul ebx,2	182	imul ebx,2
183	sub ebx,[scaleaddx]	183	sub ebx,[scaleaddx]
184	mov [STARTX],ebx	184	mov [STARTX],ebx
185	mov ebx,[STARTY]	185	mov ebx,[STARTY]
186	imul ebx,2	186	imul ebx,2
187	sub ebx,[scaleaddy]	187	sub ebx,[scaleaddy]
188	mov [STARTY],ebx	188	mov [STARTY],ebx
189	no_in:	189	no_in:
190		190
191	cmp ah,'w'	191	cmp ah,'w'
192	jne no_out	192	jne no_out
193	dec byte [scale]	193	dec byte [scale]
194	mov ebx,[STARTX]	194	mov ebx,[STARTX]
195	add ebx,[scaleaddx]	195	add ebx,[scaleaddx]
196	shr ebx,1	196	shr ebx,1
197	mov [STARTX],ebx	197	mov [STARTX],ebx
198	mov ebx,[STARTY]	198	mov ebx,[STARTY]
199	add ebx,[scaleaddy]	199	add ebx,[scaleaddy]
200	shr ebx,1	200	shr ebx,1
201	mov [STARTY],ebx	201	mov [STARTY],ebx
202	no_out:	202	no_out:
203		203
204	cmp ah,130+48	204	cmp ah,130+48
205	jne no_up	205	jne no_up
206	sub [STARTY],100	206	sub [STARTY],100
207	no_up:	207	no_up:
208		208
209	cmp ah,129+48	209	cmp ah,129+48
210	jne no_down	210	jne no_down
211	add [STARTY],100	211	add [STARTY],100
212	no_down:	212	no_down:
213		213
214	cmp ah,128+48	214	cmp ah,128+48
215	jne no_left	215	jne no_left
216	sub [STARTX],100	216	sub [STARTX],100
217	no_left:	217	no_left:
218		218
219	cmp ah,131+48	219	cmp ah,131+48
220	jne no_right	220	jne no_right
221	add [STARTX],100	221	add [STARTX],100
222	no_right:	222	no_right:
223		223
224	call draw_fractal	224	call draw_fractal
225	jmp still	225	jmp still
226		226
227	color_cycle:	227	color_cycle:
228		228
229	pusha	229	pusha
230	mov ecx,0x08080808	230	mov ecx,0x08080808
231	mov esi,(256/8)*5	231	mov esi,(256/8)*5
232	cmp ah,'e'	232	cmp ah,'e'
233	je f_out	233	je f_out
234	mov ecx,-0x08080808	234	mov ecx,-0x08080808
235	mov esi,(256/8)*5-1	235	mov esi,(256/8)*5-1
236	f_out:	236	f_out:
237		237
238	newcycle:	238	newcycle:
239	mov edi,0x1000	239	mov edi,0x1000
240	newpix:	240	newpix:
241	mov eax,[edi]	241	mov eax,[edi]
242	add eax,ecx	242	add eax,ecx
243	mov [edi],eax	243	mov [edi],eax
244	add edi,4	244	add edi,4
245	cmp edi,0x1000+5122563	245	cmp edi,0x1000+5122563
246	jb newpix	246	jb newpix
247	call put_image	247	call put_image
248	mov eax,5	248	mov eax,5
249	mov ebx,1	249	mov ebx,1
250	mcall	250	mcall
251	dec esi	251	dec esi
252	jnz newcycle	252	jnz newcycle
253		253
254	mov eax,0	254	mov eax,0
255	mov edi,0x1000	255	mov edi,0x1000
256	mov ecx,5122563 / 4 +50	256	mov ecx,5122563 / 4 +50
257	cld	257	cld
258	rep stosd	258	rep stosd
259		259
260	popa	260	popa
261		261
262	call draw_fractal	262	call draw_fractal
263		263
264	ret	264	ret
265		265
266		266
267		267
268		268
269		269
270	; **********************************************************************	270	; **********************************************************************
271	;	271	;
272	; Tinyfrac	272	; Tinyfrac
273	;	273	;
274		274
275		275
276	draw_fractal:	276	draw_fractal:
277		277
278	pusha	278	pusha
279	mov eax,4	279	mov eax,4
280	mov ebx,10*65536+30	280	mov ebx,10*65536+30
281	mov ecx,0x80ffffff	281	mov ecx,0x80ffffff
282	mov edx,calc	282	mov edx,calc
283	mcall	283	mcall
284	popa	284	popa
285	pusha	285	pusha
286		286
287	movzx ebp,word [STARTX]	287	movzx ebp,word [STARTX]
288	movzx edi,word [STARTY]	288	movzx edi,word [STARTY]
289		289
290		290
291	; This routine is the fractal drawing engine. It has been	291	; This routine is the fractal drawing engine. It has been
292	; optimized for size, sacrificing speed.	292	; optimized for size, sacrificing speed.
293		293
294	mov cx, PIXHEIGHT ; height of screen in pixels	294	mov cx, PIXHEIGHT ; height of screen in pixels
295		295
296	sub di,cx ; adjust our Y offset	296	sub di,cx ; adjust our Y offset
297	@@CalcRow:	297	@@CalcRow:
298		298
299	push cx	299	push cx
300		300
301	mov cx, PIXWIDTH -1 ; width of screen in pixels	301	mov cx, PIXWIDTH -1 ; width of screen in pixels
302		302
303	sub bp,cx ;	303	sub bp,cx ;
304	@@CalcPixel:	304	@@CalcPixel:
305	push cx ; save the column counter on stack	305	push cx ; save the column counter on stack
306	xor cx, cx ; clear out color loop counter	306	xor cx, cx ; clear out color loop counter
307	xor bx, bx ; zero i coefficient	307	xor bx, bx ; zero i coefficient
308	xor dx, dx ; zero j coefficient	308	xor dx, dx ; zero j coefficient
309	@@CycleColors:	309	@@CycleColors:
310	push dx ; save j value for later	310	push dx ; save j value for later
311	mov ax, bx ; ax = i	311	mov ax, bx ; ax = i
312	sub ax, dx ; ax = i - j	312	sub ax, dx ; ax = i - j
313	add dx, bx ; dx = i + j	313	add dx, bx ; dx = i + j
314	stc ; one additional shift, please	314	stc ; one additional shift, please
315	call Shifty ; ax = ((i+j)*(i-j)) shifted right	315	call Shifty ; ax = ((i+j)*(i-j)) shifted right
316	pop dx ; retrieve our saved value for j	316	pop dx ; retrieve our saved value for j
317	add ax,bp ; account for base offset...	317	add ax,bp ; account for base offset...
318	cmp ah,THRESHOLD ; Q: is i > THRESHOLD * 256?	318	cmp ah,THRESHOLD ; Q: is i > THRESHOLD * 256?
319	xchg bx,ax ; now swap new i with old i	319	xchg bx,ax ; now swap new i with old i
320	jg @@draw ; Y: draw this pixel	320	jg @@draw ; Y: draw this pixel
321	clc ; no additional shifts here, please	321	clc ; no additional shifts here, please
322	call Shifty ; now dx:ax = old i * j	322	call Shifty ; now dx:ax = old i * j
323	xchg dx,ax ;	323	xchg dx,ax ;
324	add dx,di ; account for base offset...	324	add dx,di ; account for base offset...
325	inc cl ; increment color	325	inc cl ; increment color
326	jnz @@CycleColors ; keep going until we're done	326	jnz @@CycleColors ; keep going until we're done
327	@@draw:	327	@@draw:
328	xchg ax, cx ; mov color into al	328	xchg ax, cx ; mov color into al
329	pop cx ; retrieve our column counter	329	pop cx ; retrieve our column counter
330	pop dx ; fetch row (column already in cx)	330	pop dx ; fetch row (column already in cx)
331	push dx ; must leave a copy on the stack	331	push dx ; must leave a copy on the stack
332	xor bx,bx ; write to video page zero	332	xor bx,bx ; write to video page zero
333		333
334	call put_pixel	334	call put_pixel
335		335
336	inc bp	336	inc bp
337	loop @@CalcPixel	337	loop @@CalcPixel
338	inc di	338	inc di
339	pop cx	339	pop cx
340	loop @@CalcRow	340	loop @@CalcRow
341		341
342	call put_image	342	call put_image
343		343
344	popa	344	popa
345		345
346	ret	346	ret
347		347
348		348
349	put_image:	349	put_image:
350		350
351	pusha	351	pusha
352		352
353	mov eax,7	353	mov eax,7
354	mov ebx,0x1000	354	mov ebx,0x1000
355	mov ecx,512*65536+256	355	mov ecx,512*65536+256
356	mov edx,4*65536+21	356	mov edx,4*65536+21
357	mcall	357	mcall
358		358
359	popa	359	popa
360		360
361	ret	361	ret
362		362
363		363
364	shlc db 0	364	shlc db 0
365		365
366	put_pixel:	366	put_pixel:
367		367
368	pusha	368	pusha
369	sub edi,[STARTY]	369	sub edi,[STARTY]
370	sub ebp,[STARTX]	370	sub ebp,[STARTX]
371	and edi,0xff	371	and edi,0xff
372	and ebp,0x1ff	372	and ebp,0x1ff
373	shl edi,9	373	shl edi,9
374	mov ebx,edi ; * 3 - Y	374	mov ebx,edi ; * 3 - Y
375	add edi,ebx	375	add edi,ebx
376	add edi,ebx	376	add edi,ebx
377	mov ebx,ebp	377	mov ebx,ebp
378	add ebp,ebx	378	add ebp,ebx
379	add ebp,ebx	379	add ebp,ebx
380	add edi,ebp	380	add edi,ebp
381	mov cl,[shlc]	381	mov cl,[shlc]
382	mov ebx,0xff	382	mov ebx,0xff
383	shl ebx,cl	383	shl ebx,cl
384	add cl,3	384	add cl,3
385	shl eax,cl	385	shl eax,cl
386	and eax,ebx	386	and eax,ebx
387	mov [0x1000+edi],eax	387	mov [0x1000+edi],eax
388	popa	388	popa
389		389
390	ret	390	ret
391		391
392		392
393	;****************************************************************************	393	;****************************************************************************
394	;	394	;
395	; This routine multiplies AX by DX and shifts the result (in	395	; This routine multiplies AX by DX and shifts the result (in
396	; DX:AX) to the right by scale bits (or scale+1 bits if CY is	396	; DX:AX) to the right by scale bits (or scale+1 bits if CY is
397	; set). The resulting value is left in AX. DX is destroyed.	397	; set). The resulting value is left in AX. DX is destroyed.
398	;	398	;
399	;****************************************************************************	399	;****************************************************************************
400		400
401	Shifty:	401	Shifty:
402	push cx ; save middle bits (ii - jj)	402	push cx ; save middle bits (ii - jj)
403	db 0b1h ; code for mov cl,immed8	403	db 0b1h ; code for mov cl,immed8
404	scale db STARTSCALE	404	scale db STARTSCALE
405	adc cl,0 ; adjust per CY flag	405	adc cl,0 ; adjust per CY flag
406	imul dx ; do the multiply	406	imul dx ; do the multiply
407		407
408	xchg ax,dx ;	408	xchg ax,dx ;
409	shl eax,16 ; put hi part in hi 16 bits	409	shl eax,16 ; put hi part in hi 16 bits
410	xchg ax,dx	410	xchg ax,dx
411	shr eax,cl ;	411	shr eax,cl ;
412		412
413	pop cx ;	413	pop cx ;
414	ret ;	414	ret ;
415		415
416		416
417		417
418	; **********************************************************************	418	; **********************************************************************
419	;	419	;
420	; WINDOW DEFINITIONS AND DRAW	420	; WINDOW DEFINITIONS AND DRAW
421	;	421	;
422	; **********************************************************************	422	; **********************************************************************
423		423
424		424
425		425
426	draw_window:	426	draw_window:
427		427
428	pusha	428	pusha
429		429
430	mov eax,12	430	mov eax,12
431	mov ebx,1	431	mov ebx,1
432	mcall	432	mcall
433		433
434	xor eax,eax	434	xor eax,eax
435	mov ebx,50*65536+PIXWIDTH+8	435	mov ebx,50*65536+PIXWIDTH+8
436	mov ecx,100*65536+PIXHEIGHT+25	436	mov ecx,100*65536+PIXHEIGHT+25
437	mov edx,0x13334455	437	mov edx,0x14334455
438	mov edi,title	438	mov edi,title
439	mcall	439	mcall
440		440
441	mov eax,8	441	mov eax,8
442	mov ebx,290*65536+112	442	mov ebx,290*65536+112
443	mov ecx,5*65536+12	443	mov ecx,5*65536+12
444	mov edx,2	444	mov edx,2
445	mov esi,0x808080	445	mov esi,0x808080
446	mcall	446	mcall
447		447
448	mov ebx,420*65536+12	448	mov ebx,420*65536+12
449	mov ecx,5*65536+12	449	mov ecx,5*65536+12
450	mov edx,3	450	mov edx,3
451	mov esi,0xa00000	451	mov esi,0xa00000
452	mov edi,3	452	mov edi,3
453	;mov eax,8	453	;mov eax,8
454	newcolor:	454	newcolor:
455	mcall	455	mcall
456	add ebx,13*65536	456	add ebx,13*65536
457	shr esi,8	457	shr esi,8
458	inc edx	458	inc edx
459	dec edi	459	dec edi
460	jnz newcolor	460	jnz newcolor
461		461
462	mov eax,4	462	mov eax,4
463	mov ebx,300*65536+8	463	mov ebx,300*65536+8
464	mov ecx,0x80ffffff	464	mov ecx,0x80ffffff
465	mov edx,button_txt	465	mov edx,button_txt
466	mcall	466	mcall
467		467
468	mov eax,12	468	mov eax,12
469	mov ebx,2	469	mov ebx,2
470	mcall	470	mcall
471		471
472	popa	472	popa
473	ret	473	ret
474		474
475		475
476	; ***************************************************************	476	; ***************************************************************
477	;	477	;
478	; DATA AREA	478	; DATA AREA
479	;	479	;
480		480
481		481
482	title db 'Tinyfrac - MOVE: ARROWS, ZOOM Q/W, CYCLE: E/R',0	482	title db 'Tinyfrac - MOVE: ARROWS, ZOOM Q/W, CYCLE: E/R',0
483	button_txt db 'Set as wallpaper',0	483	button_txt db 'Set as wallpaper',0
484		484
485	calc db 'CALCULATING',0	485	calc db 'CALCULATING',0
486		486
487	I_END:	487	I_END:

Subversion Repositories Kolibri OS

(root)/programs/demos/tinyfrac/trunk/tinyfrac.asm – Rev 485 → 551