Subversion Repositories Kolibri OS

;

;

; cost    there IS such a thing as a free lunch!  This code is hereby

; cost    there IS such a thing as a free lunch!  This code is hereby

;         released to the public domain by the author.

;         released to the public domain by the author.

;

;

;

;

;   TASM /m2 tinyfrac       (assemble using two pass mode if required)

;   TASM /m2 tinyfrac       (assemble using two pass mode if required)

;   TLINK /Tdc tinyfrac     (link Target platform is DOS, COM file)

;   TLINK /Tdc tinyfrac     (link Target platform is DOS, COM file)

;

;

;

;

PIXHEIGHT   equ 255

PIXHEIGHT   equ 256

ZOOMLIMIT   equ  13       ; can change to up to 13 for extended zoom in

ZOOMLIMIT   equ  13       ; can change to up to 13 for extended zoom in

; feel free to experiment with the following constants:

; feel free to experiment with the following constants:

THRESHOLD   equ  7        ; must be in the range of (0,255)

DELTA       equ 200       ; the unit of pan movement in pixels

STARTSCALE  equ  5        ; a number from 0 to ZOOMLIMIT, inclusive

THRESHOLD   equ  7        ; must be in the range of (0,255)

; ************************************************************

; ************************************************************

;

;

;   Menuet header

;   KolibriOS header

;

; ************************************************************

use32

                  org     0x0

        org     0x0

                  db      'MENUET01'

        db      'MENUET01'

        dd      0x01

STARTX  dd  200

        dd      START

        dd      0x1000

START:

red:

include '..\..\..\macros.inc'

        call    draw_window

        call    draw_fractal

START:

        mov  eax,10

redraw:

        imul eax,8

        mcall 10

        mov  [shlc],al

        dec  eax

        jmp  still

      button:

      no_color:

        mcall 17

        cmp  ah,1

        jmp  still

        jne  still

        mcall -1

      key:

      key:

        mov  al,2

        mcall 2

        mcall

        shr eax,16

        cmp  ah,'e'

        cmp  al,24 ;'o'

        je   cycle

		je cycle

        cmp  ah,'r'

        cmp  al,23 ;'i'

        je   cycle

        je   cycle

        jmp  no_cycle

        jmp  no_cycle

      cycle:

      cycle:

        call color_cycle

      no_cycle:

      no_cycle:

        cmp  al,13 ;'+'

        jne  no_in

        cmp  ah,'q'

        inc  byte [scale]

        jne  no_in

        mov  ebx,[STARTX]

        inc  byte [scale]

        imul ebx,2

        mov  ebx,[STARTX]

        sub  ebx,[scaleaddx]

        imul ebx,2

        mov  [STARTX],ebx

        sub  ebx,[scaleaddx]

        mov  ebx,[STARTY]

        mov  [STARTX],ebx

        imul ebx,2

        mov  ebx,[STARTY]

        sub  ebx,[scaleaddy]

        imul ebx,2

        jmp  still

        mov  [STARTY],ebx

      no_in:

        cmp  al,12 ;'-'

        mov  ebx,[STARTX]

        jne  no_out

        shr  ebx,1

        dec  byte [scale]

        mov  [STARTX],ebx

        mov  ebx,[STARTX]

        shr  ebx,1

        shr  ebx,1

        call draw_fractal

        mov  [STARTX],ebx

        jmp  still

        mov  ebx,[STARTY]

        cmp  al,72

        shr  ebx,1

        sub  [STARTY],100

        mov  [STARTY],ebx

        call draw_fractal

      no_out:

        cmp  ah,130+48

        jmp  still

        jne  no_up

        sub  [STARTY],100

        cmp  al,17 ;'w'

      no_up:

        jne  no_set_as_wallpaper

        jne  no_down

        mcall 15, 5, IMGBUF, 0, PIXWIDTH*3*PIXHEIGHT

        add  [STARTY],100

        mcall 15, 3 

        cmp  ah,128+48

        jmp  still

        sub  [STARTX],100

colorize:       

      no_left:

        shr  eax,8

        sub  eax,3

        cmp  ah,131+48

        imul eax,8

        jne  no_right

        add  eax,8

      no_right:

        and  eax,11000b

        mov  [shlc],al

        call draw_fractal

        call draw_fractal

        jmp  still

        ret

color_cycle:

color_cycle:

     pusha

     pusha

     cmp  ah,'e'

     cmp  al,24

     je   f_out

     je   f_out

     mov  ecx,-0x08080808

     mov  ecx,-0x08080808

     mov  esi,(256/8)*5-1

     mov  esi,(PIXHEIGHT/8)*5-1

   f_out:

   f_out:

   newpix:

     mov  eax,[edi]

   newcycle:

     add  eax,ecx

     mov  edi,IMGBUF

     mov  [edi],eax

   newpix:

     cmp  edi,0x1000+512*256*3

     add  eax,ecx

     jb   newpix

     mov  [edi],eax

     jnz  newcycle

     cmp  edi,IMGBUF+PIXWIDTH*PIXHEIGHT*3

     jb   newpix

     mov  eax,0

     call put_image

     mov  edi,0x1000

     mov  eax,5

        sub     di,cx           ; adjust our Y offset

        sub     di,cx           ; adjust our Y offset

@@CalcRow:

@@CalcRow:

        mov     cx, PIXWIDTH -1  ; width of screen in pixels

        mov     cx, PIXWIDTH ; width of screen in pixels

        sub     bp,cx           ;

        sub     bp,cx           ;

        popa

        popa

        ret

        ret

        mov     ebx,0xff

        mov     ebx,0xff

        shl     ebx,cl

        shl     ebx,cl

        add     cl,3

        add     cl,3

        shl     eax,cl

        shl     eax,cl

        and     eax,ebx

        and     eax,ebx

        popa

        popa

        pop     cx              ;

        pop     cx              ;

        ret                     ;

; **********************************************************************

; **********************************************************************

;

;

; **********************************************************************

;     WINDOW DEFINITIONS AND DRAW

;

      mov  ecx,0x80ffffff

      mov  edx,button_txt

      mcall 12, 2

      ret

      mov  eax,12

      mov  ebx,2

put_image:

      ret

;

;     DATA AREA