WebSVN – Kolibri OS – Diff – /programs/demos/aclock/trunk/draw.inc


; drawing code for aclock
;
; Copyright (c) 2003 Thomas Mathys
; killer@vantage.ch
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;
%ifndef _DRAW_INC
%define _DRAW_INC
 
 
TMR1_FACTOR	dd	0.45
TMR2_FACTOR	dd	0.426315789
SECR_FACTOR	dd	0.378947368
MINR_FACTOR	dd	0.355263158
HOURR_FACTOR	dd	0.189473684
DATE_FACTOR	dd	0.1
 
 
monthNames:
		db "Jan"
		db "Feb"
		db "Mar"
		db "Apr"
		db "May"
		db "Jun"
		db "Jul"
		db "Aug"
		db "Sep"
		db "Oct"
		db "Nov"
		db "Dec"
 
 
;********************************************************************
;	draws the clock
;	input		:	nothing
;	output		:	nothing
;	destroys	:	nothing
;********************************************************************
drawClock:
	%push	drawClock_context
	%stacksize flat
	%assign	%$localsize 0
 
	%local	i:dword,		\
		TMR1X:dword,		\
		TMR1Y:dword,		\
		TMR2X:dword,		\
		TMR2Y:dword,		\
		SECRX:dword,		\
		SECRY:dword,		\
		MINRX:dword,		\
		MINRY:dword,		\
		HOURRX:dword,		\
		HOURRY:dword,		\
		workwidth:dword,	\
		workheight:dword,	\
		foo:dword
	
	enter	%$localsize,0
	pushad
	pushfd
 
	; get window dimensions
	mov	eax,MOS_SC_GETPROCESSINFO
	mov	ebx,procInfo
	mov	ecx,-1
	int	0x40
 
	; calculate work area size (width/height = ecx/edx)
	; if the work area is too small (maybe the window is shaded)
	; we don't draw anything.
	mov	eax,MOS_SC_WINDOWPROPERTIES
	mov	ebx,4			; get skin height (eax)
	int	0x40
	mov	ecx,[procInfo + MOS_PROCESSINFO.wndWidth]
	sub	ecx,MOS_WND_SKIN_BORDER_LEFT+MOS_WND_SKIN_BORDER_RIGHT
	mov	edx,[procInfo + MOS_PROCESSINFO.wndHeight]
	sub	edx,eax
	sub	edx,MOS_WND_SKIN_BORDER_BOTTOM
	cmp	ecx,0			; width too small ?
	jle	.bye
	cmp	edx,0			; height too small ?
	jnle	.continue
.bye:
	jmp	.byebye
.continue:
	mov	[workwidth],ecx		; save for later (for fpu)
	mov	[workheight],edx
 
	; calculate center of clock (x/y = esi/edi)
	mov	esi,[procInfo + MOS_PROCESSINFO.wndWidth]
	shr	esi,1
	mov	edi,[procInfo + MOS_PROCESSINFO.wndHeight]
	sub	edi,MOS_WND_SKIN_BORDER_BOTTOM
	sub	edi,eax
	shr	edi,1
	add	edi,eax
 
	; clear work area
	pushad
	mov	ebx,(MOS_WND_SKIN_BORDER_LEFT)*0x10000	; x start
	or	ebx,ecx					; width
	inc	ebx
	mov	ecx,eax					; y start
	shl	ecx,16					; (=skin height)
	or	ecx,edx					; height
	inc	ecx
	mov	edx,[wndColors + MOS_WNDCOLORS.work]
	mov	eax,MOS_SC_DRAWBAR
	int	0x40
	popad
 
	; calculate second hand radii
	fild	dword [workwidth]
	fmul	dword [SECR_FACTOR]
	fstp	dword [SECRX]
	fild	dword [workheight]
	fmul	dword [SECR_FACTOR]
	fstp	dword [SECRY]
 
	; calculate minute hand radii
	fild	dword [workwidth]
	fmul	dword [MINR_FACTOR]
	fstp	dword [MINRX]
	fild	dword [workheight]
	fmul	dword [MINR_FACTOR]
	fstp	dword [MINRY]
 
	; calculate hour hand radii
	fild	dword [workwidth]
	fmul	dword [HOURR_FACTOR]
	fstp	dword [HOURRX]
	fild	dword [workheight]
	fmul	dword [HOURR_FACTOR]
	fstp	dword [HOURRY]
 
	; calculate tick mark radii
	fild	dword [workwidth]
	fmul	dword [TMR1_FACTOR]
	fstp	dword [TMR1X]
	fild	dword [workheight]
	fmul	dword [TMR1_FACTOR]
	fstp	dword [TMR1Y]
	fild	dword [workwidth]
	fmul	dword [TMR2_FACTOR]
	fstp	dword [TMR2X]
	fild	dword [workheight]
	fmul	dword [TMR2_FACTOR]
	fstp	dword [TMR2Y]
 
	; get system clock (edx)
	mov	eax,MOS_SC_GETSYSCLOCK
	int	0x40
	mov	edx,eax
 
	; draw second hand
	push	edx
	mov	eax,edx
	shr	eax,16
	call	bcdbin
	mov	ecx,eax			; save seconds for later
	push	ecx
	push	eax
	fpush32	0.104719755		; 2*pi/60
	push	dword [SECRX]
	push	dword [SECRY]
	push	esi
	push	edi
	call	getHandCoords
	mov	eax,MOS_SC_DRAWLINE
	shl	ebx,16
	or	ebx,esi
	shl	ecx,16
	or	ecx,edi
	mov	edx,[wndColors + MOS_WNDCOLORS.workText]
	int	0x40
	pop	ecx
	pop	edx
 
	; draw minute hand
	push	edx
	mov	eax,edx
	shr	eax,8
	call	bcdbin
	mov	edx,60
	mul	edx
	add	eax,ecx
	mov	ecx,eax			; save for later
	push	ecx
	push	eax
	fpush32 0.001745329		; 2*pi/60/60
	push	dword [MINRX]
	push	dword [MINRY]
	push	esi
	push	edi
	call	getHandCoords
	mov	eax,MOS_SC_DRAWLINE
	shl	ebx,16
	or	ebx,esi
	shl	ecx,16
	or	ecx,edi
	mov	edx,[wndColors + MOS_WNDCOLORS.workText]
	int	0x40
	pop	ecx
	pop	edx
 
	; draw hour hand
	push	edx
	mov	eax,edx
	call	bcdbin
	cmp	eax,11			; % 12 (just to be sure)
	jnae	.hoursok
	sub	eax,12
.hoursok:
	mov	edx,60*60
	mul	edx
	add	eax,ecx
	push	eax
	fpush32	0.000145444		; 2*pi/60/60/12
	push	dword [HOURRX]
	push	dword [HOURRY]
	push	esi
	push	edi
	call	getHandCoords
	mov	eax,MOS_SC_DRAWLINE
	shl	ebx,16
	or	ebx,esi
	shl	ecx,16
	or	ecx,edi
	mov	edx,[wndColors + MOS_WNDCOLORS.workText]
	int	0x40
	pop	edx
	
	; draw tick marks
	mov	dword [i],11		; draw 12 marks
.drawtickmarks:
	push	dword [i]		; calculate start point
	fpush32	0.523598776		; 2*pi/12
	push	dword [TMR1X]
	push	dword [TMR1Y]
	push	esi
	push	edi
	call	getHandCoords
	mov	eax,ebx			; save in eax and edx
	mov	edx,ecx
	push	dword [i]
	fpush32	0.523598776		; 2*pi/12
	push	dword [TMR2X]
	push	dword [TMR2Y]
	push	esi
	push	edi
	call	getHandCoords
	shl	eax,16
	shl	edx,16
	or	ebx,eax			; ebx = x start and end
	or	ecx,edx			; ecx = y start and end
	mov	edx,[wndColors + MOS_WNDCOLORS.workText]
	mov	eax,MOS_SC_DRAWLINE
	int	0x40
	dec	dword [i]
	jns	.drawtickmarks
 
	%define	DATE_WIDTH	48
 
	; calculate text start position
	mov	eax,[procInfo+MOS_PROCESSINFO.wndWidth]
	sub	eax,DATE_WIDTH		; x = (wndwidth-textwidth)/2
	shr	eax,1			; eax = x
	fild	dword [workheight]	; y = DATE_FACTOR*workheight...
	fmul	dword [DATE_FACTOR]
	mov	[foo],edi		; ... + y_clockcenter
	fiadd	dword [foo]
	fistp	dword [foo]
	mov	ebx,[foo]		; ebx = y
 
	; draw text at all ?
	cmp	dword [workwidth],DATE_WIDTH	; text too wide ?
	jb	.goodbye
	mov	ecx,ebx				; text too high ?
	add	ecx,10-1
	mov	edx,[procInfo+MOS_PROCESSINFO.wndHeight]
	sub	edx,MOS_WND_SKIN_BORDER_BOTTOM
	cmp	ecx,edx
	jnae	.yousuck
.goodbye:
	jmp	.bye
.yousuck:
 
 
	; ebx = (x << 16) | y
	shl	eax,16
	or	ebx,eax
	
	; get date (edi)
	mov	eax,MOS_SC_GETDATE
	int	0x40
	mov	edi,eax
 
	; display month
	mov	eax,edi			; get month
	shr	eax,8
	call	bcdbin
					; ebx contains already position
	mov	ecx,[wndColors+MOS_WNDCOLORS.workText]
	lea	edx,[monthNames-3+eax*2+eax]; -3 because eax = 1..12 =]
	mov	esi,3			; text length
	mov	eax,MOS_SC_WRITETEXT
	int	0x40
 
	; display date
	add	ebx,MOS_DWORD(3*6+3,0)
	mov	eax,edi			; get date
	shr	eax,16
	call	bcdbin
	mov	edx,ebx			; position must be in edx
	mov	ebx,0x00020000		; number, display two digits
	mov	ecx,eax			; number to display
	mov	esi,[wndColors+MOS_WNDCOLORS.workText]
	mov	eax,MOS_SC_WRITENUMBER
	int	0x40
 
	; display year. the way we avoid the y2k bug is even
	; simpler, yet much better than in the last version:
	; now we simply display the last two digits and let the
	; user decide wether it's the year 1903 or 2003 =]
	add	edx,MOS_DWORD(2*6+3,0)
	mov	eax,edi			; get year
	call	bcdbin
	mov	ebx,0x00020000		; number, display two digits
	mov	ecx,eax			; number to display
					; edx contains already position
	mov	esi,[wndColors+MOS_WNDCOLORS.workText]
	mov	eax,MOS_SC_WRITENUMBER
	int	0x40
 
.byebye:
	popfd
	popad
	leave
	ret
	%pop
 
 
;**********************************************************
; bcdbin
; converts a 8 bit bcd number into a 32 bit binary number
;
; in		al = 8 bit bcd number
; out		eax = 32 bit binary number
; destroys	dl,flags
;**********************************************************
bcdbin:
	push	edx
	pushfd
	mov	dl,al			; save bcd number
	shr	al,4			; convert upper nibble
	mov	ah,10
	mul	ah
	and	dl,15			; add lower nibble
	add	al,dl
	and	eax,255			; !
	popfd
	pop	edx
	ret
 
 
;********************************************************************
; getHandCoords
; calculates the end point of a hand
;
; input (on stack, push from top to bottom):
; ANGLE		angle (integer)
; DEG2RAD	conversion factor for ANGLE (32 bit real)
; RADIUSX	x radius (32 bit real)
; RADIUSY	y radius (32 bit real)
; CENTERX	x center of the clock (integer)
; CENTERY	y center of the clock (integer)
;
; output:
; ebx		x coordinate in bits 0..15, bits 16..31 are zero
; ecx		y coordinate in bits 0..15, bits 16..31 are zero
;
; destroys:
; nothing
;********************************************************************
getHandCoords:
 
ANGLE	equ	28
DEG2RAD	equ	24
RADIUSX	equ	20
RADIUSY	equ	16
CENTERX	equ	12
CENTERY	equ	8
 
	enter	0,0
	pushfd
 
	fild dword [ebp+ANGLE]		; get angle
	fmul dword [ebp+DEG2RAD]	; convert to radians
	fsincos
	fmul dword [ebp+RADIUSY]	; -y * radius + clockcy
	fchs
	fiadd dword [ebp+CENTERY]
	fistp dword [ebp+CENTERY]	
	fmul dword [ebp+RADIUSX]	; x * radius + clockcx
	fiadd dword [ebp+CENTERX]
	fistp dword [ebp+CENTERX]
	
	mov ebx,[ebp+CENTERX]
	mov ecx,[ebp+CENTERY]
 
	popfd
	leave
	ret	4*6
 
 
%endif

Rev 109	Rev 2741
1	; drawing code for aclock	1	; drawing code for aclock
2	;	2	;
3	; Copyright (c) 2003 Thomas Mathys	3	; Copyright (c) 2003 Thomas Mathys
4	; killer@vantage.ch	4	; killer@vantage.ch
5	;	5	;
6	; This program is free software; you can redistribute it and/or modify	6	; This program is free software; you can redistribute it and/or modify
7	; it under the terms of the GNU General Public License as published by	7	; it under the terms of the GNU General Public License as published by
8	; the Free Software Foundation; either version 2 of the License, or	8	; the Free Software Foundation; either version 2 of the License, or
9	; (at your option) any later version.	9	; (at your option) any later version.
10	;	10	;
11	; This program is distributed in the hope that it will be useful,	11	; This program is distributed in the hope that it will be useful,
12	; but WITHOUT ANY WARRANTY; without even the implied warranty of	12	; but WITHOUT ANY WARRANTY; without even the implied warranty of
13	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	13	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	; GNU General Public License for more details.	14	; GNU General Public License for more details.
15	;	15	;
16	; You should have received a copy of the GNU General Public License	16	; You should have received a copy of the GNU General Public License
17	; along with this program; if not, write to the Free Software	17	; along with this program; if not, write to the Free Software
18	; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA	18	; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19	;	19	;
20	%ifndef _DRAW_INC	20	%ifndef _DRAW_INC
21	%define _DRAW_INC	21	%define _DRAW_INC
22		22
23		23
24	TMR1_FACTOR dd 0.45	24	TMR1_FACTOR dd 0.45
25	TMR2_FACTOR dd 0.426315789	25	TMR2_FACTOR dd 0.426315789
26	SECR_FACTOR dd 0.378947368	26	SECR_FACTOR dd 0.378947368
27	MINR_FACTOR dd 0.355263158	27	MINR_FACTOR dd 0.355263158
28	HOURR_FACTOR dd 0.189473684	28	HOURR_FACTOR dd 0.189473684
29	DATE_FACTOR dd 0.1	29	DATE_FACTOR dd 0.1
30		30
31		31
32	monthNames:	32	monthNames:
33	db "Jan"	33	db "Jan"
34	db "Feb"	34	db "Feb"
35	db "Mar"	35	db "Mar"
36	db "Apr"	36	db "Apr"
37	db "May"	37	db "May"
38	db "Jun"	38	db "Jun"
39	db "Jul"	39	db "Jul"
40	db "Aug"	40	db "Aug"
41	db "Sep"	41	db "Sep"
42	db "Oct"	42	db "Oct"
43	db "Nov"	43	db "Nov"
44	db "Dec"	44	db "Dec"
45		45
46		46
47	;********************************************************************	47	;********************************************************************
48	; draws the clock	48	; draws the clock
49	; input : nothing	49	; input : nothing
50	; output : nothing	50	; output : nothing
51	; destroys : nothing	51	; destroys : nothing
52	;********************************************************************	52	;********************************************************************
53	drawClock:	53	drawClock:
54	%push drawClock_context	54	%push drawClock_context
55	%stacksize flat	55	%stacksize flat
56	%assign %$localsize 0	56	%assign %$localsize 0
57		57
58	%local i:dword, \	58	%local i:dword, \
59	TMR1X:dword, \	59	TMR1X:dword, \
60	TMR1Y:dword, \	60	TMR1Y:dword, \
61	TMR2X:dword, \	61	TMR2X:dword, \
62	TMR2Y:dword, \	62	TMR2Y:dword, \
63	SECRX:dword, \	63	SECRX:dword, \
64	SECRY:dword, \	64	SECRY:dword, \
65	MINRX:dword, \	65	MINRX:dword, \
66	MINRY:dword, \	66	MINRY:dword, \
67	HOURRX:dword, \	67	HOURRX:dword, \
68	HOURRY:dword, \	68	HOURRY:dword, \
69	workwidth:dword, \	69	workwidth:dword, \
70	workheight:dword, \	70	workheight:dword, \
71	foo:dword	71	foo:dword
72		72
73	enter %$localsize,0	73	enter %$localsize,0
74	pushad	74	pushad
75	pushfd	75	pushfd
76		76
77	; get window dimensions	77	; get window dimensions
78	mov eax,MOS_SC_GETPROCESSINFO	78	mov eax,MOS_SC_GETPROCESSINFO
79	mov ebx,procInfo	79	mov ebx,procInfo
80	mov ecx,-1	80	mov ecx,-1
81	int 0x40	81	int 0x40
82		82
83	; calculate work area size (width/height = ecx/edx)	83	; calculate work area size (width/height = ecx/edx)
84	; if the work area is too small (maybe the window is shaded)	84	; if the work area is too small (maybe the window is shaded)
85	; we don't draw anything.	85	; we don't draw anything.
86	mov eax,MOS_SC_WINDOWPROPERTIES	86	mov eax,MOS_SC_WINDOWPROPERTIES
87	mov ebx,4 ; get skin height (eax)	87	mov ebx,4 ; get skin height (eax)
88	int 0x40	88	int 0x40
89	mov ecx,[procInfo + MOS_PROCESSINFO.wndWidth]	89	mov ecx,[procInfo + MOS_PROCESSINFO.wndWidth]
90	sub ecx,MOS_WND_SKIN_BORDER_LEFT+MOS_WND_SKIN_BORDER_RIGHT	90	sub ecx,MOS_WND_SKIN_BORDER_LEFT+MOS_WND_SKIN_BORDER_RIGHT
91	mov edx,[procInfo + MOS_PROCESSINFO.wndHeight]	91	mov edx,[procInfo + MOS_PROCESSINFO.wndHeight]
92	sub edx,eax	92	sub edx,eax
93	sub edx,MOS_WND_SKIN_BORDER_BOTTOM	93	sub edx,MOS_WND_SKIN_BORDER_BOTTOM
94	cmp ecx,0 ; width too small ?	94	cmp ecx,0 ; width too small ?
95	jle .bye	95	jle .bye
96	cmp edx,0 ; height too small ?	96	cmp edx,0 ; height too small ?
97	jnle .continue	97	jnle .continue
98	.bye:	98	.bye:
99	jmp .byebye	99	jmp .byebye
100	.continue:	100	.continue:
101	mov [workwidth],ecx ; save for later (for fpu)	101	mov [workwidth],ecx ; save for later (for fpu)
102	mov [workheight],edx	102	mov [workheight],edx
103		103
104	; calculate center of clock (x/y = esi/edi)	104	; calculate center of clock (x/y = esi/edi)
105	mov esi,[procInfo + MOS_PROCESSINFO.wndWidth]	105	mov esi,[procInfo + MOS_PROCESSINFO.wndWidth]
106	shr esi,1	106	shr esi,1
107	mov edi,[procInfo + MOS_PROCESSINFO.wndHeight]	107	mov edi,[procInfo + MOS_PROCESSINFO.wndHeight]
108	sub edi,MOS_WND_SKIN_BORDER_BOTTOM	108	sub edi,MOS_WND_SKIN_BORDER_BOTTOM
109	sub edi,eax	109	sub edi,eax
110	shr edi,1	110	shr edi,1
111	add edi,eax	111	add edi,eax
112		112
113	; clear work area	113	; clear work area
114	pushad	114	pushad
115	mov ebx,(MOS_WND_SKIN_BORDER_LEFT)*0x10000 ; x start	115	mov ebx,(MOS_WND_SKIN_BORDER_LEFT)*0x10000 ; x start
116	or ebx,ecx ; width	116	or ebx,ecx ; width
-		117	inc ebx
117	mov ecx,eax ; y start	118	mov ecx,eax ; y start
118	shl ecx,16 ; (=skin height)	119	shl ecx,16 ; (=skin height)
119	or ecx,edx ; height	120	or ecx,edx ; height
-		121	inc ecx
120	mov edx,[wndColors + MOS_WNDCOLORS.work]	122	mov edx,[wndColors + MOS_WNDCOLORS.work]
121	mov eax,MOS_SC_DRAWBAR	123	mov eax,MOS_SC_DRAWBAR
122	int 0x40	124	int 0x40
123	popad	125	popad
124		126
125	; calculate second hand radii	127	; calculate second hand radii
126	fild dword [workwidth]	128	fild dword [workwidth]
127	fmul dword [SECR_FACTOR]	129	fmul dword [SECR_FACTOR]
128	fstp dword [SECRX]	130	fstp dword [SECRX]
129	fild dword [workheight]	131	fild dword [workheight]
130	fmul dword [SECR_FACTOR]	132	fmul dword [SECR_FACTOR]
131	fstp dword [SECRY]	133	fstp dword [SECRY]
132		134
133	; calculate minute hand radii	135	; calculate minute hand radii
134	fild dword [workwidth]	136	fild dword [workwidth]
135	fmul dword [MINR_FACTOR]	137	fmul dword [MINR_FACTOR]
136	fstp dword [MINRX]	138	fstp dword [MINRX]
137	fild dword [workheight]	139	fild dword [workheight]
138	fmul dword [MINR_FACTOR]	140	fmul dword [MINR_FACTOR]
139	fstp dword [MINRY]	141	fstp dword [MINRY]
140		142
141	; calculate hour hand radii	143	; calculate hour hand radii
142	fild dword [workwidth]	144	fild dword [workwidth]
143	fmul dword [HOURR_FACTOR]	145	fmul dword [HOURR_FACTOR]
144	fstp dword [HOURRX]	146	fstp dword [HOURRX]
145	fild dword [workheight]	147	fild dword [workheight]
146	fmul dword [HOURR_FACTOR]	148	fmul dword [HOURR_FACTOR]
147	fstp dword [HOURRY]	149	fstp dword [HOURRY]
148		150
149	; calculate tick mark radii	151	; calculate tick mark radii
150	fild dword [workwidth]	152	fild dword [workwidth]
151	fmul dword [TMR1_FACTOR]	153	fmul dword [TMR1_FACTOR]
152	fstp dword [TMR1X]	154	fstp dword [TMR1X]
153	fild dword [workheight]	155	fild dword [workheight]
154	fmul dword [TMR1_FACTOR]	156	fmul dword [TMR1_FACTOR]
155	fstp dword [TMR1Y]	157	fstp dword [TMR1Y]
156	fild dword [workwidth]	158	fild dword [workwidth]
157	fmul dword [TMR2_FACTOR]	159	fmul dword [TMR2_FACTOR]
158	fstp dword [TMR2X]	160	fstp dword [TMR2X]
159	fild dword [workheight]	161	fild dword [workheight]
160	fmul dword [TMR2_FACTOR]	162	fmul dword [TMR2_FACTOR]
161	fstp dword [TMR2Y]	163	fstp dword [TMR2Y]
162		164
163	; get system clock (edx)	165	; get system clock (edx)
164	mov eax,MOS_SC_GETSYSCLOCK	166	mov eax,MOS_SC_GETSYSCLOCK
165	int 0x40	167	int 0x40
166	mov edx,eax	168	mov edx,eax
167		169
168	; draw second hand	170	; draw second hand
169	push edx	171	push edx
170	mov eax,edx	172	mov eax,edx
171	shr eax,16	173	shr eax,16
172	call bcdbin	174	call bcdbin
173	mov ecx,eax ; save seconds for later	175	mov ecx,eax ; save seconds for later
174	push ecx	176	push ecx
175	push eax	177	push eax
176	fpush32 0.104719755 ; 2*pi/60	178	fpush32 0.104719755 ; 2*pi/60
177	push dword [SECRX]	179	push dword [SECRX]
178	push dword [SECRY]	180	push dword [SECRY]
179	push esi	181	push esi
180	push edi	182	push edi
181	call getHandCoords	183	call getHandCoords
182	mov eax,MOS_SC_DRAWLINE	184	mov eax,MOS_SC_DRAWLINE
183	shl ebx,16	185	shl ebx,16
184	or ebx,esi	186	or ebx,esi
185	shl ecx,16	187	shl ecx,16
186	or ecx,edi	188	or ecx,edi
187	mov edx,[wndColors + MOS_WNDCOLORS.workText]	189	mov edx,[wndColors + MOS_WNDCOLORS.workText]
188	int 0x40	190	int 0x40
189	pop ecx	191	pop ecx
190	pop edx	192	pop edx
191		193
192	; draw minute hand	194	; draw minute hand
193	push edx	195	push edx
194	mov eax,edx	196	mov eax,edx
195	shr eax,8	197	shr eax,8
196	call bcdbin	198	call bcdbin
197	mov edx,60	199	mov edx,60
198	mul edx	200	mul edx
199	add eax,ecx	201	add eax,ecx
200	mov ecx,eax ; save for later	202	mov ecx,eax ; save for later
201	push ecx	203	push ecx
202	push eax	204	push eax
203	fpush32 0.001745329 ; 2*pi/60/60	205	fpush32 0.001745329 ; 2*pi/60/60
204	push dword [MINRX]	206	push dword [MINRX]
205	push dword [MINRY]	207	push dword [MINRY]
206	push esi	208	push esi
207	push edi	209	push edi
208	call getHandCoords	210	call getHandCoords
209	mov eax,MOS_SC_DRAWLINE	211	mov eax,MOS_SC_DRAWLINE
210	shl ebx,16	212	shl ebx,16
211	or ebx,esi	213	or ebx,esi
212	shl ecx,16	214	shl ecx,16
213	or ecx,edi	215	or ecx,edi
214	mov edx,[wndColors + MOS_WNDCOLORS.workText]	216	mov edx,[wndColors + MOS_WNDCOLORS.workText]
215	int 0x40	217	int 0x40
216	pop ecx	218	pop ecx
217	pop edx	219	pop edx
218		220
219	; draw hour hand	221	; draw hour hand
220	push edx	222	push edx
221	mov eax,edx	223	mov eax,edx
222	call bcdbin	224	call bcdbin
223	cmp eax,11 ; % 12 (just to be sure)	225	cmp eax,11 ; % 12 (just to be sure)
224	jnae .hoursok	226	jnae .hoursok
225	sub eax,12	227	sub eax,12
226	.hoursok:	228	.hoursok:
227	mov edx,60*60	229	mov edx,60*60
228	mul edx	230	mul edx
229	add eax,ecx	231	add eax,ecx
230	push eax	232	push eax
231	fpush32 0.000145444 ; 2*pi/60/60/12	233	fpush32 0.000145444 ; 2*pi/60/60/12
232	push dword [HOURRX]	234	push dword [HOURRX]
233	push dword [HOURRY]	235	push dword [HOURRY]
234	push esi	236	push esi
235	push edi	237	push edi
236	call getHandCoords	238	call getHandCoords
237	mov eax,MOS_SC_DRAWLINE	239	mov eax,MOS_SC_DRAWLINE
238	shl ebx,16	240	shl ebx,16
239	or ebx,esi	241	or ebx,esi
240	shl ecx,16	242	shl ecx,16
241	or ecx,edi	243	or ecx,edi
242	mov edx,[wndColors + MOS_WNDCOLORS.workText]	244	mov edx,[wndColors + MOS_WNDCOLORS.workText]
243	int 0x40	245	int 0x40
244	pop edx	246	pop edx
245		247
246	; draw tick marks	248	; draw tick marks
247	mov dword [i],11 ; draw 12 marks	249	mov dword [i],11 ; draw 12 marks
248	.drawtickmarks:	250	.drawtickmarks:
249	push dword [i] ; calculate start point	251	push dword [i] ; calculate start point
250	fpush32 0.523598776 ; 2*pi/12	252	fpush32 0.523598776 ; 2*pi/12
251	push dword [TMR1X]	253	push dword [TMR1X]
252	push dword [TMR1Y]	254	push dword [TMR1Y]
253	push esi	255	push esi
254	push edi	256	push edi
255	call getHandCoords	257	call getHandCoords
256	mov eax,ebx ; save in eax and edx	258	mov eax,ebx ; save in eax and edx
257	mov edx,ecx	259	mov edx,ecx
258	push dword [i]	260	push dword [i]
259	fpush32 0.523598776 ; 2*pi/12	261	fpush32 0.523598776 ; 2*pi/12
260	push dword [TMR2X]	262	push dword [TMR2X]
261	push dword [TMR2Y]	263	push dword [TMR2Y]
262	push esi	264	push esi
263	push edi	265	push edi
264	call getHandCoords	266	call getHandCoords
265	shl eax,16	267	shl eax,16
266	shl edx,16	268	shl edx,16
267	or ebx,eax ; ebx = x start and end	269	or ebx,eax ; ebx = x start and end
268	or ecx,edx ; ecx = y start and end	270	or ecx,edx ; ecx = y start and end
269	mov edx,[wndColors + MOS_WNDCOLORS.workText]	271	mov edx,[wndColors + MOS_WNDCOLORS.workText]
270	mov eax,MOS_SC_DRAWLINE	272	mov eax,MOS_SC_DRAWLINE
271	int 0x40	273	int 0x40
272	dec dword [i]	274	dec dword [i]
273	jns .drawtickmarks	275	jns .drawtickmarks
274		276
275	%define DATE_WIDTH 48	277	%define DATE_WIDTH 48
276		278
277	; calculate text start position	279	; calculate text start position
278	mov eax,[procInfo+MOS_PROCESSINFO.wndWidth]	280	mov eax,[procInfo+MOS_PROCESSINFO.wndWidth]
279	sub eax,DATE_WIDTH ; x = (wndwidth-textwidth)/2	281	sub eax,DATE_WIDTH ; x = (wndwidth-textwidth)/2
280	shr eax,1 ; eax = x	282	shr eax,1 ; eax = x
281	fild dword [workheight] ; y = DATE_FACTOR*workheight...	283	fild dword [workheight] ; y = DATE_FACTOR*workheight...
282	fmul dword [DATE_FACTOR]	284	fmul dword [DATE_FACTOR]
283	mov [foo],edi ; ... + y_clockcenter	285	mov [foo],edi ; ... + y_clockcenter
284	fiadd dword [foo]	286	fiadd dword [foo]
285	fistp dword [foo]	287	fistp dword [foo]
286	mov ebx,[foo] ; ebx = y	288	mov ebx,[foo] ; ebx = y
287		289
288	; draw text at all ?	290	; draw text at all ?
289	cmp dword [workwidth],DATE_WIDTH ; text too wide ?	291	cmp dword [workwidth],DATE_WIDTH ; text too wide ?
290	jb .goodbye	292	jb .goodbye
291	mov ecx,ebx ; text too high ?	293	mov ecx,ebx ; text too high ?
292	add ecx,10-1	294	add ecx,10-1
293	mov edx,[procInfo+MOS_PROCESSINFO.wndHeight]	295	mov edx,[procInfo+MOS_PROCESSINFO.wndHeight]
294	sub edx,MOS_WND_SKIN_BORDER_BOTTOM	296	sub edx,MOS_WND_SKIN_BORDER_BOTTOM
295	cmp ecx,edx	297	cmp ecx,edx
296	jnae .yousuck	298	jnae .yousuck
297	.goodbye:	299	.goodbye:
298	jmp .bye	300	jmp .bye
299	.yousuck:	301	.yousuck:
300		302
301		303
302	; ebx = (x << 16) \| y	304	; ebx = (x << 16) \| y
303	shl eax,16	305	shl eax,16
304	or ebx,eax	306	or ebx,eax
305		307
306	; get date (edi)	308	; get date (edi)
307	mov eax,MOS_SC_GETDATE	309	mov eax,MOS_SC_GETDATE
308	int 0x40	310	int 0x40
309	mov edi,eax	311	mov edi,eax
310		312
311	; display month	313	; display month
312	mov eax,edi ; get month	314	mov eax,edi ; get month
313	shr eax,8	315	shr eax,8
314	call bcdbin	316	call bcdbin
315	; ebx contains already position	317	; ebx contains already position
316	mov ecx,[wndColors+MOS_WNDCOLORS.workText]	318	mov ecx,[wndColors+MOS_WNDCOLORS.workText]
317	lea edx,[monthNames-3+eax*2+eax]; -3 because eax = 1..12 =]	319	lea edx,[monthNames-3+eax*2+eax]; -3 because eax = 1..12 =]
318	mov esi,3 ; text length	320	mov esi,3 ; text length
319	mov eax,MOS_SC_WRITETEXT	321	mov eax,MOS_SC_WRITETEXT
320	int 0x40	322	int 0x40
321		323
322	; display date	324	; display date
323	add ebx,MOS_DWORD(3*6+3,0)	325	add ebx,MOS_DWORD(3*6+3,0)
324	mov eax,edi ; get date	326	mov eax,edi ; get date
325	shr eax,16	327	shr eax,16
326	call bcdbin	328	call bcdbin
327	mov edx,ebx ; position must be in edx	329	mov edx,ebx ; position must be in edx
328	mov ebx,0x00020000 ; number, display two digits	330	mov ebx,0x00020000 ; number, display two digits
329	mov ecx,eax ; number to display	331	mov ecx,eax ; number to display
330	mov esi,[wndColors+MOS_WNDCOLORS.workText]	332	mov esi,[wndColors+MOS_WNDCOLORS.workText]
331	mov eax,MOS_SC_WRITENUMBER	333	mov eax,MOS_SC_WRITENUMBER
332	int 0x40	334	int 0x40
333		335
334	; display year. the way we avoid the y2k bug is even	336	; display year. the way we avoid the y2k bug is even
335	; simpler, yet much better than in the last version:	337	; simpler, yet much better than in the last version:
336	; now we simply display the last two digits and let the	338	; now we simply display the last two digits and let the
337	; user decide wether it's the year 1903 or 2003 =]	339	; user decide wether it's the year 1903 or 2003 =]
338	add edx,MOS_DWORD(2*6+3,0)	340	add edx,MOS_DWORD(2*6+3,0)
339	mov eax,edi ; get year	341	mov eax,edi ; get year
340	call bcdbin	342	call bcdbin
341	mov ebx,0x00020000 ; number, display two digits	343	mov ebx,0x00020000 ; number, display two digits
342	mov ecx,eax ; number to display	344	mov ecx,eax ; number to display
343	; edx contains already position	345	; edx contains already position
344	mov esi,[wndColors+MOS_WNDCOLORS.workText]	346	mov esi,[wndColors+MOS_WNDCOLORS.workText]
345	mov eax,MOS_SC_WRITENUMBER	347	mov eax,MOS_SC_WRITENUMBER
346	int 0x40	348	int 0x40
347		349
348	.byebye:	350	.byebye:
349	popfd	351	popfd
350	popad	352	popad
351	leave	353	leave
352	ret	354	ret
353	%pop	355	%pop
354		356
355		357
356	;**********************************************************	358	;**********************************************************
357	; bcdbin	359	; bcdbin
358	; converts a 8 bit bcd number into a 32 bit binary number	360	; converts a 8 bit bcd number into a 32 bit binary number
359	;	361	;
360	; in al = 8 bit bcd number	362	; in al = 8 bit bcd number
361	; out eax = 32 bit binary number	363	; out eax = 32 bit binary number
362	; destroys dl,flags	364	; destroys dl,flags
363	;**********************************************************	365	;**********************************************************
364	bcdbin:	366	bcdbin:
365	push edx	367	push edx
366	pushfd	368	pushfd
367	mov dl,al ; save bcd number	369	mov dl,al ; save bcd number
368	shr al,4 ; convert upper nibble	370	shr al,4 ; convert upper nibble
369	mov ah,10	371	mov ah,10
370	mul ah	372	mul ah
371	and dl,15 ; add lower nibble	373	and dl,15 ; add lower nibble
372	add al,dl	374	add al,dl
373	and eax,255 ; !	375	and eax,255 ; !
374	popfd	376	popfd
375	pop edx	377	pop edx
376	ret	378	ret
377		379
378		380
379	;********************************************************************	381	;********************************************************************
380	; getHandCoords	382	; getHandCoords
381	; calculates the end point of a hand	383	; calculates the end point of a hand
382	;	384	;
383	; input (on stack, push from top to bottom):	385	; input (on stack, push from top to bottom):
384	; ANGLE angle (integer)	386	; ANGLE angle (integer)
385	; DEG2RAD conversion factor for ANGLE (32 bit real)	387	; DEG2RAD conversion factor for ANGLE (32 bit real)
386	; RADIUSX x radius (32 bit real)	388	; RADIUSX x radius (32 bit real)
387	; RADIUSY y radius (32 bit real)	389	; RADIUSY y radius (32 bit real)
388	; CENTERX x center of the clock (integer)	390	; CENTERX x center of the clock (integer)
389	; CENTERY y center of the clock (integer)	391	; CENTERY y center of the clock (integer)
390	;	392	;
391	; output:	393	; output:
392	; ebx x coordinate in bits 0..15, bits 16..31 are zero	394	; ebx x coordinate in bits 0..15, bits 16..31 are zero
393	; ecx y coordinate in bits 0..15, bits 16..31 are zero	395	; ecx y coordinate in bits 0..15, bits 16..31 are zero
394	;	396	;
395	; destroys:	397	; destroys:
396	; nothing	398	; nothing
397	;********************************************************************	399	;********************************************************************
398	getHandCoords:	400	getHandCoords:
399		401
400	ANGLE equ 28	402	ANGLE equ 28
401	DEG2RAD equ 24	403	DEG2RAD equ 24
402	RADIUSX equ 20	404	RADIUSX equ 20
403	RADIUSY equ 16	405	RADIUSY equ 16
404	CENTERX equ 12	406	CENTERX equ 12
405	CENTERY equ 8	407	CENTERY equ 8
406		408
407	enter 0,0	409	enter 0,0
408	pushfd	410	pushfd
409		411
410	fild dword [ebp+ANGLE] ; get angle	412	fild dword [ebp+ANGLE] ; get angle
411	fmul dword [ebp+DEG2RAD] ; convert to radians	413	fmul dword [ebp+DEG2RAD] ; convert to radians
412	fsincos	414	fsincos
413	fmul dword [ebp+RADIUSY] ; -y * radius + clockcy	415	fmul dword [ebp+RADIUSY] ; -y * radius + clockcy
414	fchs	416	fchs
415	fiadd dword [ebp+CENTERY]	417	fiadd dword [ebp+CENTERY]
416	fistp dword [ebp+CENTERY]	418	fistp dword [ebp+CENTERY]
417	fmul dword [ebp+RADIUSX] ; x * radius + clockcx	419	fmul dword [ebp+RADIUSX] ; x * radius + clockcx
418	fiadd dword [ebp+CENTERX]	420	fiadd dword [ebp+CENTERX]
419	fistp dword [ebp+CENTERX]	421	fistp dword [ebp+CENTERX]
420		422
421	mov ebx,[ebp+CENTERX]	423	mov ebx,[ebp+CENTERX]
422	mov ecx,[ebp+CENTERY]	424	mov ecx,[ebp+CENTERY]
423		425
424	popfd	426	popfd
425	leave	427	leave
426	ret 4*6	428	ret 4*6
427		429
428		430
429	%endif	431	%endif

Subversion Repositories Kolibri OS

(root)/programs/demos/aclock/trunk/draw.inc – Rev 109 → 2741