Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 2021 → Rev 2022

/programs/demos/3dspiral/trunk/3dspiral.asm
1,12 → 1,12
;
; application : 3d shaking waved spiral
; compilator : fasm
; system : MenuetOS
; system : KolibriOS
; author : macgub
; email : macgub3@wp
 
timeout equ 3
maxx equ 600 ; window size
maxx equ 616 ; window size
maxy equ 420
use32
 
48,8 → 48,13
key: ; key
mov eax,2 ; just read it and ignore
int 0x40
jmp still
shr eax,8
cmp eax, 27
jne still
mov eax, -1
int 0x40
 
 
button: ; button
mov eax,17 ; get id
int 0x40
109,7 → 114,7
mov eax,7
mov ebx,screen_buf
mov ecx,maxx*65536+maxy
mov edx,20*65536+20
mov edx,0*65536+0
int 0x40
 
call set_elipse_dim
365,27 → 370,12
int 0x40
; DRAW WINDOW
mov eax,0 ; function 0 : define and draw window
mov ebx,100*65536+maxx+25 ; [x start] *65536 + [x size]
mov ebx,100*65536+maxx+9 ; [x start] *65536 + [x size]
mov ecx,100*65536+maxy+25 ; [y start] *65536 + [y size]
mov edx,0x02000000 ; color of work area RRGGBB,8->color gl
mov esi,0x805080d0 ; color of grab bar RRGGBB,8->color gl
mov edi,0x005080d0 ; color of frames RRGGBB
mov edx,0x74000000 ; color of work area RRGGBB,8->color gl
mov edi,labelt
int 0x40
; WINDOW LABEL
mov eax,4 ; function 4 : write text to window
mov ebx,8*65536+8 ; [x start] *65536 + [y start]
mov ecx,0x10ddeeff ; font 1 & color ( 0xF0RRGGBB )
mov edx,labelt ; pointer to text beginning
mov esi,labellen-labelt ; text length
int 0x40
; CLOSE BUTTON
mov eax,8 ; function 8 : define and draw button
mov ebx,(maxx+25-19)*65536+12 ; [x start] *65536 + [x size]
mov ecx,5*65536+12 ; [y start] *65536 + [y size]
mov edx,1 ; button id
mov esi,0x6688dd ; button color RRGGBB
int 0x40
 
mov eax,12 ; function 12:tell os about windowdraw
mov ebx,2 ; 2, end of draw
int 0x40
436,7 → 426,7
col dd 0x00ffffff
 
labelt:
db ' 3D SHAKING WAVED SPIRAL'
db ' 3D shaking waved spiral',0
labellen:
screen_buf: