kolibrios-fun/programs/demos/3dwav/trunk/3dwav.asm

;
;   application : WAVED 3D FORM SIN(SQRT(x*x+y*y))
;   author      : macgub
;   email       : macgub3@wp.pl
;   system      : MenuetOS
;   compiler    : fasm
;
;
TIMEOUT EQU 2
IMG_X equ 512
IMG_Y equ 384

use32

               org    0x0

               db     'MENUET01'              ; 8 byte id
               dd     0x01                    ; header version
               dd     START                   ; start of code
               dd     I_END                   ; size of image
               dd     0x100000                ; memory for app
               dd     0x7fff0                 ; esp
               dd     0x0 , 0x0               ; I_Param , I_Icon

START:                          ; start of execution

     call draw_window

still:

    mov  eax,23                 ; wait here for event
    mov  ebx,TIMEOUT
    int  0x40

    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,2                  ; key in buffer ?
    je   key
    cmp  eax,3                  ; button in buffer ?
    je   button

    jmp  noclose

  red:                          ; redraw
    call draw_window
    jmp  still

  key:                          ; key
    mov  eax,2                  ; just read it and ignore
    int  0x40
    jmp  still

  button:                       ; button
    mov  eax,17                 ; get id
    int  0x40

    cmp  ah,1                   ; button id=1 ?
    jne  noclose

    mov  eax,-1                 ; close this program
    int  0x40
  noclose:

    call calc_deg

;    mov eax,13    ;clear screen
;    mov ebx,5*65536 + 517
;    mov ecx,20*65536 + 345
;    xor edx,edx
;    int 0x40

    mov edi,the_mem        ;clear buffer
    mov ecx,512*384*3/4
    xor eax,eax
    cld
    rep stosd

    mov eax,1    ;main loop
    oop:
    mov ebx,1
    oop1:
     push eax
     push ebx
     mov [x],eax
     mov [z],ebx
     call fun
     add [y],260
     add [x],40
     call rotateY
     call put3dpixel
     pop ebx
     pop eax
    add ebx,4
    cmp ebx,201
    jne oop1
    inc eax
    cmp eax,300
    jne oop

    mov eax,7    ;put image
    mov ebx,the_mem
    mov ecx,IMG_X*65536+IMG_Y
    mov edx,0
    int 0x40

    jmp  still
;-------------------PROCEDURES-------------------------------
calc_deg:
 cmp [deg_counter], 360
 jne go_deg
 mov [deg_counter],0
 go_deg:
 fldpi
 fidiv [deg_div]
 fimul [deg_counter]
 fst [current_deg]
 fsincos
 fstp [cosbeta]
 fstp [sinbeta]
 inc [deg_counter]
 ret
;-----------------
rotateY:
 mov eax,[z]
 sub eax,[zo]
 mov [subz],eax
 mov eax,[x]
 sub eax,[xo]
 mov [subx],eax

 fld [sinbeta]
 fimul [subz]
 fchs
 fld [cosbeta]
 fimul[subx]
 faddp
 fiadd [xo]
 fistp [x]

 fld [sinbeta]
 fimul [subx]
 fld [cosbeta]
 fimul [subz]
 faddp
 fiadd [zo]
 fistp [z]
 ret
;-----------------------------
fun:
 finit
 fild [x]
 fisub [i150]
 fidiv [xdiv]
 fmul st,st0
 fld st0
 fild [z]
 fisub [i100]
 fidiv [zdiv]
 fmul st,st0
 faddp
 fsqrt

 fld [current_deg]
 fimul [cur_deg_mul]
 faddp
 fsin
 fimul [ymul]
 fistp [y]
 ret
;--------------------------
put3dpixel:
 fild [z]
 fmul [sq]
 fchs
 fiadd [y]
 fistp [y]
 fild [z]
 fmul [sq]
 fiadd [x]
 fistp [x]
 ;mov eax,1
 ;mov ebx,[x]
 ;mov ecx,[y]
 ;mov edx,[col]
 ;int 0x40
 mov eax,[y]    ; calculating pixel position in buffer
 dec eax
 shl eax,9
 add eax,[x]
 mov ebx,eax
 shl eax,1
 add eax,ebx
 add eax,the_mem
 mov ebx,[col]
 or [eax],ebx
 ret

;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************


draw_window:


    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,1                     ; 1, start of draw
    int  0x40

	mov  eax,48  ;get skin width
	mov  ebx,4
	int  0x40
	mov  esi, eax
                                   ; DRAW WINDOW
    mov  eax,0                     ; function 0 : define and draw window
    mov  ebx,100*65536+IMG_X+9         ; [x start] *65536 + [x size]
    mov  ecx,100*65536+IMG_Y+4         ; [y start] *65536 + [y size]
	add  ecx, esi
	mov  edx,0x74000000 	  	   ; color of work area RRGGBB,8->color gl
    mov  edi,labelt
	int  0x40

    mov  eax,12                    ; function 12:tell os about windowdraw
    mov  ebx,2                     ; 2, end of draw
    int  0x40

    ret

; DATA AREA
deg_div dd 90
deg_counter dd ?
col dd 0x00ffffff
sq dd 0.707    ;sin pi/4
cosbeta dd ?
sinbeta dd ?
x dd ?
y dd ?
z dd ?
xo dd 200           ;axle variables
;yo dd 110
zo dd 80
xdiv dd 20
zdiv dd 20
ymul dd 20
subx dd ?
;suby dd ?
subz dd ?
current_deg dd ? ;real
cur_deg_mul dd 12
i100 dd 100
i150 dd 150
labelt:
     db   'Waved 3d form',0
the_mem:
I_END: