3dspiral: skinned window, transparent background, esc exit

git-svn-id: svn://kolibrios.org@2022 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2011-07-25 16:17:22 +00:00
parent 6b6de1e572
commit f354cb43ca

View File

@ -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,7 +48,12 @@ still:
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
@ -109,7 +114,7 @@ oop:
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 @@ draw_window:
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 @@ loop_counter dd 141 ; axle granularity
col dd 0x00ffffff
labelt:
db ' 3D SHAKING WAVED SPIRAL'
db ' 3D shaking waved spiral',0
labellen:
screen_buf: