WebSVN – Kolibri OS – Diff – /programs/media/animage/trunk/animage.asm


;*******************************************************
;**************GRAPHICS EDITOR ANIMAGE *****************
;*******************************************************
; version: 1.51
; last update:  23.03.2016
; changes:      Use library 'kmenu.obj', update GUI
; autors:       IgorA, Veliant, Leency
;--------------------------------------------------------
; version: 1.4
; last update:  12.03.2016
; changes:      Use library 'libimg.obj'
; autors:       IgorA
;--------------------------------------------------------
; version: 1.3
; last update:  05.10.2010
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Fixed window flicker when redrawing,
;               Fixed memory leak for stack
;--------------------------------------------------------
; version: 1.2
; last update:  30.09.2010
; written by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Program used function 68 instead 64 is now,
;               select path with OpenDialog
;--------------------------------------------------------
; version: 1.1
; last update:  09.12.2006
; autors:
; programming by andrew_programmer
; design by golus
 
use32
org	0x0
	db 'MENUET01'
	dd 1, START, IM_END, I_END
	dd stacktop, file_path, cur_dir_path
 
include '../../../config.inc' ;for nightbuild
include	'../../../macros.inc'
include '../../../proc32.inc'
include '../../../KOSfuncs.inc'
include '../../../develop/libraries/box_lib/load_lib.mac'
include '../../../dll.inc'
include '../../../libio.inc'
;include '../../../develop/libraries/libs-dev/libimg/libimg.inc'
 
@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
 
;---------------------------------------------------------
; *** ª®­áâ ­âë ¤«ï ¨­â¥àä¥©á  ***
; *** constants for interface  ***
 
; ª®àà¥ªâ¨à®¢ª¨ ­  áª¨­
ci_offs_skin_w equ  5 ;ª®àà¥ªâ¨à®¢ª  ­  è¨à¨­ã à ¬ª¨ áª¨­ 
ci_offs_skin_h equ 24 ;ª®àà¥ªâ¨à®¢ª  ­  ¢ëá®âã áª¨­ 
 
; £« ¢­®¥ ®ª­®
ci_wnd_min_siz_x equ 585 ;minimum size x
ci_wnd_min_siz_y equ 400 ;minimum size y
 
; ¯ ­¥«ì ¨­áâàã¬¥­â®¢
ci_panel_x_pos equ  0 ;ª®®à¤. x ¤«ï ¯ ­¥«¨
ci_panel_y_pos equ 20 ;ª®®à¤. y ¤«ï ¯ ­¥«¨
ci_panel_but_y1 equ ci_panel_y_pos +5 ;ª®®à¤. y ¤«ï 1-£® àï¤  ª­®¯®ª
ci_panel_but_y2 equ ci_panel_y_pos+30 ;ª®®à¤. y ¤«ï 2-£® àï¤  ª­®¯®ª
ci_palete_y_pos equ ci_panel_y_pos+51 ;ª®®à¤. y ¤«ï ¯ «¨âàë æ¢¥â®¢
ci_panel_zoom_x equ 178 ;ª®®à¤. x ¤«ï ª­®¯®ª ¯ ­¥«¨ ¬ áèâ ¡ 
 
; ®ª­® à¥¤ ªâ®à 
ci_edit_wnd_x_pos  equ  0 ;ª®®à¤. x ¤«ï ®ª­  à¥¤ ªâ®à 
ci_edit_wnd_y_pos  equ 71 ;ª®®à¤. y ¤«ï ®ª­  à¥¤ ªâ®à 
ci_edit_wnd_border equ  3 ;à ¬ª  ¢®ªàã£ ®ª­  à¥¤ ªâ®à 
 
; áªà®««¨­£¨
ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨­£®¢
ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;¬¨­¨¬ «ì­ ï ¯®§¨æ¨ï ¯®«§ã­ª 
	;£®à¨§®­â «ì­®£® áªà®««¨­£ 
ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;¬¨­¨¬ «ì­ ï ¯®§¨æ¨ï ¯®«§ã­ª 
	;¢¥àâ¨ª «ì­®£® áªà®««¨­£ 
;---------------------------------------------------------
 
include	'bmplib.inc'
include	'dialog2.inc'
include	'design.inc'
include	'graphlib.inc'
 
include	'cursors.inc'
include	'memory.inc'
include	'load_from_parameters.inc'
 
START:
	mcall SF_SYS_MISC,SSF_HEAP_INIT
	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors
	
load_libraries l_libs_start,end_l_libs
 
	cmp	eax,-1
	jz	close
 
	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b
;---------------------------------------------------------
;-----------------------init data-------------------------
;---------------------------------------------------------
include	'init_data.inc'
 
;----------------------------------------------------------
;--------get memory and draw window of program-------------
;----------------------------------------------------------
	call GetMemory
	mov	[Current_instrument],10 ;pencil
	call TakeButtonInstruments  ;set startup instrument
	call cleare_work_arrea
	call load_icons
	call init_main_menu
 
;load cursors
	mov	eax,CursorsID
	call load_cursors
 
;---------------------------------------------------------
;---------check loading of file from parameters-----------
;---------------------------------------------------------
	mov	eax,file_path
	cmp [eax],byte 0
	jz @f
	call load_picture
	call MovePictureToWorkScreen
@@:
 
;---------------------------------------------------------------------
	mov	edi,filename_area
	mov	esi,path4+5
	call	copy_str_1
 
	mov	edi,file_path
	cmp	[edi],byte 0
	jne	@f
	mov	esi,path4
	call	copy_str_1
@@:
;OpenDialog	initialisation
	stdcall [OpenDialog_Init], OpenDialog_data
;---------------------------------------------------------------------
 
align 4
red:
	call drawwin
;----------------------------------------------------------
;---------------------main loop----------------------------
;----------------------------------------------------------
align 4
still:
	mcall SF_WAIT_EVENT
 
	cmp	eax,1
	je	red
 
	cmp	eax,2
	je	keys
 
	cmp	eax,3
	je	buttons
 
	cmp	eax,6
	je	mouse
 
	jmp	still
	
;---------------------------------------------------------------------
copy_str_1:
	xor	eax,eax
	cld
@@:
	lodsb
	stosb
	test	eax,eax
	jnz	@b
	ret
;---------------------------------------------------------------------
include	'events.inc'
include	'events_of_window.inc'
include	'events_of_keys.inc'
include	'events_of_buttons.inc'
include	'events_of_mouse.inc'
include	'panel_engen.inc'
include	'screen.inc'
include 'menu_instruments.inc'
include	'icons_instruments.inc'
include	'icons.inc'
include	'sprites.inc'
include	'string.inc'
include	'palette.inc'
include	'files.inc'
include	'time.inc'
include	'menu.inc'
;-----------------------------------------------------------
;------------variables and data of program------------------
;-----------------------------------------------------------
;sound_havent_memory db 150,64,0
 
include 'lib_data.inc'
include	'panel_data.inc'
include	'palitra256.inc'
include	'brushes.inc'
include	'spray.inc'
include	'width_lines.inc'
;----------------------------------------------------------
;-------------------icon's picture-------------------------
;----------------------------------------------------------
align 4
panel_picture:
file 'panel_buttons.png'
.end:
align 4
panel_zoom:
file 'panel_zoom.png'
.end:
;****************cursors******************
brush_cursor:
file 'brush.cur'
flood_fill_cursor:
file 'flood_fill.cur'
lastik_cursor:
file 'lastik.cur'
other_cursor:
file 'other.cur'
pencil_cursor:
file 'pencil.cur'
pipette_cursor:
file 'pipette.cur'
spray_cursor:
file 'spray.cur'
zoom_cursor:
file 'zoom.cur'
;----------------------------------------------------------
align 4
IM_END:
;-----------------------------------------------------------
;------------variables and data of program------------------
;-----------------------------------------------------------
time			rd 1
PosX			rd 1 ;scroll x file position
PosY			rd 1 ;scroll y file position
PointerToIcons		rd 1
ScreenPointer		rd 1
PointerToPicture	rd 1
PointerToCopyPicture	rd 1
PointerToCopyPicture2	rd 1
PointerToEditBufer	rd 1
PointerToSpriteBufer	rd 1
PointerToPalette	rd 1 ;ãª § â¥«ì ­  ¯¨«¨âàã (­ã¦¥­ ¤«ï á®åà ­¥­¨ï ¢ *.bmp)
Color			rd 1
SColor			rd 1
Number_Brush		rd 1
Brush_SizeX		rd 1
Brush_SizeY		rd 1
Current_instrument	rd 1
Last_instrument		rd 1
OldX			rd 1
OldY			rd 1
 
MouseX			rd 1
MouseY			rd 1
Window_SizeX		rd 1
Window_SizeY		rd 1
Window_CordinatX	rd 1
Window_CordinatY	rd 1
Picture_SizeX		rd 1
Picture_SizeY		rd 1
ScreenX			rd 1 ;ª®®à¤¨­ â  x ªãàá®à  á ãç¥â®¬ ¬ áèâ ¡ 
ScreenY			rd 1 ;ª®®à¤¨­ â  y ªãàá®à  á ãç¥â®¬ ¬ áèâ ¡ 
WorkScreen_SizeX	rd 1
WorkScreen_SizeY	rd 1
MaxWorkScreen_SizeX	rd 1
MaxWorkScreen_SizeY	rd 1
k			rd 1 ;¬ áèâ ¡
 
ReserveArray		rd 1
register		rd 1
CounterX		rd 1
CounterY		rd 1
OffsetYPicture		rd 1
OffsetYWorkScreen	rd 1
OffsetYBigPixel		rd 1
 
Icon_X			rd 1
Icon_Y			rd 1
counter			rd 1
counter2		rd 1
number_panel		rd 1
number_menu		rd 1
 
Scroll1CoordinatX	rd 1 ;scroll x screen position
Scroll1CoordinatY	rd 1 ;scroll y screen position
Scroll1MaxSizeX		rd 1
Scroll1MaxSizeY		rd 1
Scroll1SizeX		rd 1 ;scroll polzunok size
Scroll1FreeX		rd 1
 
Scroll2CoordinatX	rd 1
Scroll2CoordinatY	rd 1
Scroll2MaxSizeX		rd 1
Scroll2MaxSizeY		rd 1
Scroll2SizeY		rd 1
Scroll2FreeY		rd 1
 
x			rd 1
y			rd 1
 
Radius			rd 1
Dx_			rd 1
Dy_			rd 1
line_width		rd 1
a_ellips		rd 1
b_ellips		rd 1
 
used_OldX		rd 1 ;for draw hard contour
used_OldY		rd 1
rectangular_shade_x	rd 1 ;ª®®à¤¨­ â  x ®¡« áâ¨ ¤«ï ª®¯¨à®¢ ­¨ï
rectangular_shade_y	rd 1
paste_img_w rd 1 ;è¨à¨­  ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥­¨ï
paste_img_h rd 1 ;¢ëá®â  ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥­¨ï
crossing_old_x		rd 1
crossing_old_y		rd 1
crossing		rd 1
finishing_crossing	rd 1
number_undo		rd 1
SpriteSizeX		rd 1
SpriteSizeY		rd 1
SpriteCoordinatX	rd 1
SpriteCoordinatY	rd 1
SpriteOldCoordinatX	rd 1
SpriteOldCoordinatY	rd 1
 
CursorsID	rd 10
 
Activate_instrument	rb 1
save_flag		rb 1
exit_from_work_arrea	rb 1
lastik_is_active	rb 1
instrument_used		rb 1
DrawSprite_flag		rb 1
Paste_flag		rb 1
;---------------------------------------------------------------------
IncludeUGlobals
;---------------------------------------------------------------------
align 4
file_path rb 4096
filename_area rb 256
temp_dir_pach rb 4096
library_path rb 4096
cur_dir_path rb 4096
procinfo: rb 1024
align 4
syscolors rb 192
syscolors_end:
;---------------------------------------------------------------------
align 4
	rb 4096
stacktop:
;---------------------------------------------------------------------
I_END:

Rev 6369	Rev 6371
1	;*******************************************************	1	;*******************************************************
2	;************GRAPHICS EDITOR ANIMAGE ***************	2	;************GRAPHICS EDITOR ANIMAGE ***************
3	;*******************************************************	3	;*******************************************************
4	; version: 1.51	4	; version: 1.51
5	; last update: 23.03.2016	5	; last update: 23.03.2016
6	; changes: Use library 'kmenu.obj', update GUI	6	; changes: Use library 'kmenu.obj', update GUI
7	; autors: IgorA, Veliant, Leency	7	; autors: IgorA, Veliant, Leency
8	;--------------------------------------------------------	8	;--------------------------------------------------------
9	; version: 1.4	9	; version: 1.4
10	; last update: 12.03.2016	10	; last update: 12.03.2016
11	; changes: Use library 'libimg.obj'	11	; changes: Use library 'libimg.obj'
12	; autors: IgorA	12	; autors: IgorA
13	;--------------------------------------------------------	13	;--------------------------------------------------------
14	; version: 1.3	14	; version: 1.3
15	; last update: 05.10.2010	15	; last update: 05.10.2010
16	; written by: Marat Zakiyanov aka Mario79, aka Mario	16	; written by: Marat Zakiyanov aka Mario79, aka Mario
17	; changes: Fixed window flicker when redrawing,	17	; changes: Fixed window flicker when redrawing,
18	; Fixed memory leak for stack	18	; Fixed memory leak for stack
19	;--------------------------------------------------------	19	;--------------------------------------------------------
20	; version: 1.2	20	; version: 1.2
21	; last update: 30.09.2010	21	; last update: 30.09.2010
22	; written by: Marat Zakiyanov aka Mario79, aka Mario	22	; written by: Marat Zakiyanov aka Mario79, aka Mario
23	; changes: Program used function 68 instead 64 is now,	23	; changes: Program used function 68 instead 64 is now,
24	; select path with OpenDialog	24	; select path with OpenDialog
25	;--------------------------------------------------------	25	;--------------------------------------------------------
26	; version: 1.1	26	; version: 1.1
27	; last update: 09.12.2006	27	; last update: 09.12.2006
28	; autors:	28	; autors:
29	; programming by andrew_programmer	29	; programming by andrew_programmer
30	; design by golus	30	; design by golus
31		31
32	use32	32	use32
33	org 0x0	33	org 0x0
34	db 'MENUET01'	34	db 'MENUET01'
35	dd 1, START, IM_END, I_END	35	dd 1, START, IM_END, I_END
36	dd stacktop, file_path, cur_dir_path	36	dd stacktop, file_path, cur_dir_path
37		37
38	include '../../../config.inc' ;for nightbuild	38	include '../../../config.inc' ;for nightbuild
39	include '../../../macros.inc'	39	include '../../../macros.inc'
40	include '../../../proc32.inc'	40	include '../../../proc32.inc'
41	include '../../../KOSfuncs.inc'	41	include '../../../KOSfuncs.inc'
42	include '../../../develop/libraries/box_lib/load_lib.mac'	42	include '../../../develop/libraries/box_lib/load_lib.mac'
43	include '../../../dll.inc'	43	include '../../../dll.inc'
44	include '../../../libio.inc'	44	include '../../../libio.inc'
45	;include '../../../develop/libraries/libs-dev/libimg/libimg.inc'	45	;include '../../../develop/libraries/libs-dev/libimg/libimg.inc'
46		46
47	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load	47	@use_library_mem mem.Alloc,mem.Free,mem.ReAlloc,dll.Load
48		48
49	;---------------------------------------------------------	49	;---------------------------------------------------------
50	; * ª®áâ âë ¤«ï ¨â¥àä¥©á *	50	; * ª®áâ âë ¤«ï ¨â¥àä¥©á *
51	; * constants for interface *	51	; * constants for interface *
52		52
53	; ª®àà¥ªâ¨à®¢ª¨ áª¨	53	; ª®àà¥ªâ¨à®¢ª¨ áª¨
54	ci_offs_skin_w equ 5 ;ª®àà¥ªâ¨à®¢ª è¨à¨ã à ¬ª¨ áª¨	54	ci_offs_skin_w equ 5 ;ª®àà¥ªâ¨à®¢ª è¨à¨ã à ¬ª¨ áª¨
55	ci_offs_skin_h equ 24 ;ª®àà¥ªâ¨à®¢ª ¢ëá®âã áª¨	55	ci_offs_skin_h equ 24 ;ª®àà¥ªâ¨à®¢ª ¢ëá®âã áª¨
56		56
57	; £« ¢®¥ ®ª®	57	; £« ¢®¥ ®ª®
58	ci_wnd_min_siz_x equ 585 ;minimum size x	58	ci_wnd_min_siz_x equ 585 ;minimum size x
59	ci_wnd_min_siz_y equ 400 ;minimum size y	59	ci_wnd_min_siz_y equ 400 ;minimum size y
60		60
61	; ¯ ¥«ì ¨áâàã¬¥â®¢	61	; ¯ ¥«ì ¨áâàã¬¥â®¢
62	ci_panel_x_pos equ 0 ;ª®®à¤¨ â x ¤«ï ¯ ¥«¨	62	ci_panel_x_pos equ 0 ;ª®®à¤. x ¤«ï ¯ ¥«¨
63	ci_panel_y_pos equ 20 ;ª®®à¤¨ â y ¤«ï ¯ ¥«¨	63	ci_panel_y_pos equ 20 ;ª®®à¤. y ¤«ï ¯ ¥«¨
64	ci_panel_but_y1 equ ci_panel_y_pos +5 ;ª®®à¤¨ â y ¤«ï 1-£® àï¤ ª®¯®ª	64	ci_panel_but_y1 equ ci_panel_y_pos +5 ;ª®®à¤. y ¤«ï 1-£® àï¤ ª®¯®ª
65	ci_panel_but_y2 equ ci_panel_y_pos+30 ;ª®®à¤¨ â y ¤«ï 2-£® àï¤ ª®¯®ª	65	ci_panel_but_y2 equ ci_panel_y_pos+30 ;ª®®à¤. y ¤«ï 2-£® àï¤ ª®¯®ª
66	ci_palete_y_pos equ ci_panel_y_pos+51 ;ª®®à¤¨ â y ¤«ï ¯ «¨âàë æ¢¥â®¢	66	ci_palete_y_pos equ ci_panel_y_pos+51 ;ª®®à¤. y ¤«ï ¯ «¨âàë æ¢¥â®¢
-		67	ci_panel_zoom_x equ 178 ;ª®®à¤. x ¤«ï ª®¯®ª ¯ ¥«¨ ¬ áèâ ¡
67		68
68	; ®ª® à¥¤ ªâ®à	69	; ®ª® à¥¤ ªâ®à
69	ci_edit_wnd_x_pos equ 0 ;ª®®à¤¨ â x ¤«ï ®ª à¥¤ ªâ®à	70	ci_edit_wnd_x_pos equ 0 ;ª®®à¤. x ¤«ï ®ª à¥¤ ªâ®à
70	ci_edit_wnd_y_pos equ 71 ;ª®®à¤¨ â y ¤«ï ®ª à¥¤ ªâ®à	71	ci_edit_wnd_y_pos equ 71 ;ª®®à¤. y ¤«ï ®ª à¥¤ ªâ®à
71	ci_edit_wnd_border equ 3 ;à ¬ª ¢®ªàã£ ®ª à¥¤ ªâ®à	72	ci_edit_wnd_border equ 3 ;à ¬ª ¢®ªàã£ ®ª à¥¤ ªâ®à
72		73
73	; áªà®««¨£¨	74	; áªà®««¨£¨
74	ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨£®¢	75	ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨£®¢
75	ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª	76	ci_scrollh_coord_x_min equ (ci_edit_wnd_x_pos+3) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª
76	;£®à¨§®â «ì®£® áªà®««¨£	77	;£®à¨§®â «ì®£® áªà®««¨£
77	ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª	78	ci_scrollv_coord_y_min equ (ci_edit_wnd_y_pos+3) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª
78	;¢¥àâ¨ª «ì®£® áªà®««¨£	79	;¢¥àâ¨ª «ì®£® áªà®««¨£
79	;---------------------------------------------------------	80	;---------------------------------------------------------
80		81
81	include 'bmplib.inc'	82	include 'bmplib.inc'
82	include 'dialog2.inc'	83	include 'dialog2.inc'
83	include 'design.inc'	84	include 'design.inc'
84	include 'graphlib.inc'	85	include 'graphlib.inc'
85		86
86	include 'cursors.inc'	87	include 'cursors.inc'
87	include 'memory.inc'	88	include 'memory.inc'
88	include 'load_from_parameters.inc'	89	include 'load_from_parameters.inc'
89		90
90	START:	91	START:
91	mcall SF_SYS_MISC,SSF_HEAP_INIT	92	mcall SF_SYS_MISC,SSF_HEAP_INIT
92	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors	93	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors
93		94
94	load_libraries l_libs_start,end_l_libs	95	load_libraries l_libs_start,end_l_libs
95		96
96	cmp eax,-1	97	cmp eax,-1
97	jz close	98	jz close
98		99
99	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b	100	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b
100	;---------------------------------------------------------	101	;---------------------------------------------------------
101	;-----------------------init data-------------------------	102	;-----------------------init data-------------------------
102	;---------------------------------------------------------	103	;---------------------------------------------------------
103	include 'init_data.inc'	104	include 'init_data.inc'
104		105
105	;----------------------------------------------------------	106	;----------------------------------------------------------
106	;--------get memory and draw window of program-------------	107	;--------get memory and draw window of program-------------
107	;----------------------------------------------------------	108	;----------------------------------------------------------
108	call GetMemory	109	call GetMemory
109	mov [Current_instrument],10 ;pencil	110	mov [Current_instrument],10 ;pencil
110	call TakeButtonInstruments ;set startup instrument	111	call TakeButtonInstruments ;set startup instrument
111	call cleare_work_arrea	112	call cleare_work_arrea
112	call load_icons	113	call load_icons
113	call init_main_menu	114	call init_main_menu
114		115
115	;load cursors	116	;load cursors
116	mov eax,CursorsID	117	mov eax,CursorsID
117	call load_cursors	118	call load_cursors
118		119
119	;---------------------------------------------------------	120	;---------------------------------------------------------
120	;---------check loading of file from parameters-----------	121	;---------check loading of file from parameters-----------
121	;---------------------------------------------------------	122	;---------------------------------------------------------
122	mov eax,file_path	123	mov eax,file_path
123	cmp [eax],byte 0	124	cmp [eax],byte 0
124	jz @f	125	jz @f
125	call load_picture	126	call load_picture
126	call MovePictureToWorkScreen	127	call MovePictureToWorkScreen
127	@@:	128	@@:
128		129
129	;---------------------------------------------------------------------	130	;---------------------------------------------------------------------
130	mov edi,filename_area	131	mov edi,filename_area
131	mov esi,path4+5	132	mov esi,path4+5
132	call copy_str_1	133	call copy_str_1
133		134
134	mov edi,file_path	135	mov edi,file_path
135	cmp [edi],byte 0	136	cmp [edi],byte 0
136	jne @f	137	jne @f
137	mov esi,path4	138	mov esi,path4
138	call copy_str_1	139	call copy_str_1
139	@@:	140	@@:
140	;OpenDialog initialisation	141	;OpenDialog initialisation
141	stdcall [OpenDialog_Init], OpenDialog_data	142	stdcall [OpenDialog_Init], OpenDialog_data
142	;---------------------------------------------------------------------	143	;---------------------------------------------------------------------
143		144
144	align 4	145	align 4
145	red:	146	red:
146	call drawwin	147	call drawwin
147	;----------------------------------------------------------	148	;----------------------------------------------------------
148	;---------------------main loop----------------------------	149	;---------------------main loop----------------------------
149	;----------------------------------------------------------	150	;----------------------------------------------------------
150	align 4	151	align 4
151	still:	152	still:
152	mcall SF_WAIT_EVENT	153	mcall SF_WAIT_EVENT
153		154
154	cmp eax,1	155	cmp eax,1
155	je red	156	je red
156		157
157	cmp eax,2	158	cmp eax,2
158	je keys	159	je keys
159		160
160	cmp eax,3	161	cmp eax,3
161	je buttons	162	je buttons
162		163
163	cmp eax,6	164	cmp eax,6
164	je mouse	165	je mouse
165		166
166	jmp still	167	jmp still
167		168
168	;---------------------------------------------------------------------	169	;---------------------------------------------------------------------
169	copy_str_1:	170	copy_str_1:
170	xor eax,eax	171	xor eax,eax
171	cld	172	cld
172	@@:	173	@@:
173	lodsb	174	lodsb
174	stosb	175	stosb
175	test eax,eax	176	test eax,eax
176	jnz @b	177	jnz @b
177	ret	178	ret
178	;---------------------------------------------------------------------	179	;---------------------------------------------------------------------
179	include 'events.inc'	180	include 'events.inc'
180	include 'events_of_window.inc'	181	include 'events_of_window.inc'
181	include 'events_of_keys.inc'	182	include 'events_of_keys.inc'
182	include 'events_of_buttons.inc'	183	include 'events_of_buttons.inc'
183	include 'events_of_mouse.inc'	184	include 'events_of_mouse.inc'
184	include 'panel_engen.inc'	185	include 'panel_engen.inc'
185	include 'screen.inc'	186	include 'screen.inc'
186	include 'menu_instruments.inc'	187	include 'menu_instruments.inc'
187	include 'icons_instruments.inc'	188	include 'icons_instruments.inc'
188	include 'icons.inc'	189	include 'icons.inc'
189	include 'sprites.inc'	190	include 'sprites.inc'
190	include 'string.inc'	191	include 'string.inc'
191	include 'palette.inc'	192	include 'palette.inc'
192	include 'files.inc'	193	include 'files.inc'
193	include 'time.inc'	194	include 'time.inc'
194	include 'menu.inc'	195	include 'menu.inc'
195	;-----------------------------------------------------------	196	;-----------------------------------------------------------
196	;------------variables and data of program------------------	197	;------------variables and data of program------------------
197	;-----------------------------------------------------------	198	;-----------------------------------------------------------
198	sound_havent_memory db 150,64,0	199	;sound_havent_memory db 150,64,0
199		200
200	include 'lib_data.inc'	201	include 'lib_data.inc'
201	include 'panel_data.inc'	202	include 'panel_data.inc'
202	include 'palitra256.inc'	203	include 'palitra256.inc'
203	include 'brushes.inc'	204	include 'brushes.inc'
204	include 'spray.inc'	205	include 'spray.inc'
205	include 'width_lines.inc'	206	include 'width_lines.inc'
206	;----------------------------------------------------------	207	;----------------------------------------------------------
207	;-------------------icon's picture-------------------------	208	;-------------------icon's picture-------------------------
208	;----------------------------------------------------------	209	;----------------------------------------------------------
209	align 4	210	align 4
210	panel_picture:	211	panel_picture:
211	file 'panel_buttons.png'	212	file 'panel_buttons.png'
212	.end:	213	.end:
-		214	align 4
-		215	panel_zoom:
-		216	file 'panel_zoom.png'
-		217	.end:
213	;**************cursors****************	218	;**************cursors****************
214	brush_cursor:	219	brush_cursor:
215	file 'brush.cur'	220	file 'brush.cur'
216	flood_fill_cursor:	221	flood_fill_cursor:
217	file 'flood_fill.cur'	222	file 'flood_fill.cur'
218	lastik_cursor:	223	lastik_cursor:
219	file 'lastik.cur'	224	file 'lastik.cur'
220	other_cursor:	225	other_cursor:
221	file 'other.cur'	226	file 'other.cur'
222	pencil_cursor:	227	pencil_cursor:
223	file 'pencil.cur'	228	file 'pencil.cur'
224	pipette_cursor:	229	pipette_cursor:
225	file 'pipette.cur'	230	file 'pipette.cur'
226	spray_cursor:	231	spray_cursor:
227	file 'spray.cur'	232	file 'spray.cur'
228	zoom_cursor:	233	zoom_cursor:
229	file 'zoom.cur'	234	file 'zoom.cur'
230	;----------------------------------------------------------	235	;----------------------------------------------------------
231	align 4	236	align 4
232	IM_END:	237	IM_END:
233	;-----------------------------------------------------------	238	;-----------------------------------------------------------
234	;------------variables and data of program------------------	239	;------------variables and data of program------------------
235	;-----------------------------------------------------------	240	;-----------------------------------------------------------
236	time rd 1	241	time rd 1
237	PosX rd 1 ;scroll x file position	242	PosX rd 1 ;scroll x file position
238	PosY rd 1 ;scroll y file position	243	PosY rd 1 ;scroll y file position
239	PointerToIcons rd 1	244	PointerToIcons rd 1
240	ScreenPointer rd 1	245	ScreenPointer rd 1
241	PointerToPicture rd 1	246	PointerToPicture rd 1
242	PointerToCopyPicture rd 1	247	PointerToCopyPicture rd 1
243	PointerToCopyPicture2 rd 1	248	PointerToCopyPicture2 rd 1
244	PointerToEditBufer rd 1	249	PointerToEditBufer rd 1
245	PointerToSpriteBufer rd 1	250	PointerToSpriteBufer rd 1
246	PointerToPalette rd 1 ;ãª § â¥«ì ¯¨«¨âàã (ã¦¥ ¤«ï á®åà ¥¨ï ¢ *.bmp)	251	PointerToPalette rd 1 ;ãª § â¥«ì ¯¨«¨âàã (ã¦¥ ¤«ï á®åà ¥¨ï ¢ *.bmp)
247	Color rd 1	252	Color rd 1
248	SColor rd 1	253	SColor rd 1
249	Number_Brush rd 1	254	Number_Brush rd 1
250	Brush_SizeX rd 1	255	Brush_SizeX rd 1
251	Brush_SizeY rd 1	256	Brush_SizeY rd 1
252	Current_instrument rd 1	257	Current_instrument rd 1
253	Last_instrument rd 1	258	Last_instrument rd 1
254	OldX rd 1	259	OldX rd 1
255	OldY rd 1	260	OldY rd 1
256		261
257	MouseX rd 1	262	MouseX rd 1
258	MouseY rd 1	263	MouseY rd 1
259	Window_SizeX rd 1	264	Window_SizeX rd 1
260	Window_SizeY rd 1	265	Window_SizeY rd 1
261	Window_CordinatX rd 1	266	Window_CordinatX rd 1
262	Window_CordinatY rd 1	267	Window_CordinatY rd 1
263	Picture_SizeX rd 1	268	Picture_SizeX rd 1
264	Picture_SizeY rd 1	269	Picture_SizeY rd 1
265	ScreenX rd 1 ;ª®®à¤¨ â x ªãàá®à á ãç¥â®¬ ¬ áèâ ¡	270	ScreenX rd 1 ;ª®®à¤¨ â x ªãàá®à á ãç¥â®¬ ¬ áèâ ¡
266	ScreenY rd 1 ;ª®®à¤¨ â y ªãàá®à á ãç¥â®¬ ¬ áèâ ¡	271	ScreenY rd 1 ;ª®®à¤¨ â y ªãàá®à á ãç¥â®¬ ¬ áèâ ¡
267	WorkScreen_SizeX rd 1	272	WorkScreen_SizeX rd 1
268	WorkScreen_SizeY rd 1	273	WorkScreen_SizeY rd 1
269	MaxWorkScreen_SizeX rd 1	274	MaxWorkScreen_SizeX rd 1
270	MaxWorkScreen_SizeY rd 1	275	MaxWorkScreen_SizeY rd 1
271	k rd 1 ;¬ áèâ ¡	276	k rd 1 ;¬ áèâ ¡
272		277
273	ReserveArray rd 1	278	ReserveArray rd 1
274	register rd 1	279	register rd 1
275	CounterX rd 1	280	CounterX rd 1
276	CounterY rd 1	281	CounterY rd 1
277	OffsetYPicture rd 1	282	OffsetYPicture rd 1
278	OffsetYWorkScreen rd 1	283	OffsetYWorkScreen rd 1
279	OffsetYBigPixel rd 1	284	OffsetYBigPixel rd 1
280		285
281	Icon_X rd 1	286	Icon_X rd 1
282	Icon_Y rd 1	287	Icon_Y rd 1
283	counter rd 1	288	counter rd 1
284	counter2 rd 1	289	counter2 rd 1
285	number_panel rd 1	290	number_panel rd 1
286	number_menu rd 1	291	number_menu rd 1
287		292
288	Scroll1CoordinatX rd 1 ;scroll x screen position	293	Scroll1CoordinatX rd 1 ;scroll x screen position
289	Scroll1CoordinatY rd 1 ;scroll y screen position	294	Scroll1CoordinatY rd 1 ;scroll y screen position
290	Scroll1MaxSizeX rd 1	295	Scroll1MaxSizeX rd 1
291	Scroll1MaxSizeY rd 1	296	Scroll1MaxSizeY rd 1
292	Scroll1SizeX rd 1 ;scroll polzunok size	297	Scroll1SizeX rd 1 ;scroll polzunok size
293	Scroll1FreeX rd 1	298	Scroll1FreeX rd 1
294		299
295	Scroll2CoordinatX rd 1	300	Scroll2CoordinatX rd 1
296	Scroll2CoordinatY rd 1	301	Scroll2CoordinatY rd 1
297	Scroll2MaxSizeX rd 1	302	Scroll2MaxSizeX rd 1
298	Scroll2MaxSizeY rd 1	303	Scroll2MaxSizeY rd 1
299	Scroll2SizeY rd 1	304	Scroll2SizeY rd 1
300	Scroll2FreeY rd 1	305	Scroll2FreeY rd 1
301		306
302	x rd 1	307	x rd 1
303	y rd 1	308	y rd 1
304		309
305	Radius rd 1	310	Radius rd 1
306	Dx_ rd 1	311	Dx_ rd 1
307	Dy_ rd 1	312	Dy_ rd 1
308	line_width rd 1	313	line_width rd 1
309	a_ellips rd 1	314	a_ellips rd 1
310	b_ellips rd 1	315	b_ellips rd 1
311		316
312	used_OldX rd 1 ;for draw hard contour	317	used_OldX rd 1 ;for draw hard contour
313	used_OldY rd 1	318	used_OldY rd 1
314	rectangular_shade_x rd 1 ;ª®®à¤¨ â x ®¡« áâ¨ ¤«ï ª®¯¨à®¢ ¨ï	319	rectangular_shade_x rd 1 ;ª®®à¤¨ â x ®¡« áâ¨ ¤«ï ª®¯¨à®¢ ¨ï
315	rectangular_shade_y rd 1	320	rectangular_shade_y rd 1
316	paste_img_w rd 1 ;è¨à¨ ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï	321	paste_img_w rd 1 ;è¨à¨ ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï
317	paste_img_h rd 1 ;¢ëá®â ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï	322	paste_img_h rd 1 ;¢ëá®â ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï
318	crossing_old_x rd 1	323	crossing_old_x rd 1
319	crossing_old_y rd 1	324	crossing_old_y rd 1
320	crossing rd 1	325	crossing rd 1
321	finishing_crossing rd 1	326	finishing_crossing rd 1
322	number_undo rd 1	327	number_undo rd 1
323	SpriteSizeX rd 1	328	SpriteSizeX rd 1
324	SpriteSizeY rd 1	329	SpriteSizeY rd 1
325	SpriteCoordinatX rd 1	330	SpriteCoordinatX rd 1
326	SpriteCoordinatY rd 1	331	SpriteCoordinatY rd 1
327	SpriteOldCoordinatX rd 1	332	SpriteOldCoordinatX rd 1
328	SpriteOldCoordinatY rd 1	333	SpriteOldCoordinatY rd 1
329		334
330	CursorsID rd 10	335	CursorsID rd 10
331		336
332	Activate_instrument rb 1	337	Activate_instrument rb 1
333	save_flag rb 1	338	save_flag rb 1
334	exit_from_work_arrea rb 1	339	exit_from_work_arrea rb 1
335	lastik_is_active rb 1	340	lastik_is_active rb 1
336	instrument_used rb 1	341	instrument_used rb 1
337	DrawSprite_flag rb 1	342	DrawSprite_flag rb 1
338	Paste_flag rb 1	343	Paste_flag rb 1
339	;---------------------------------------------------------------------	344	;---------------------------------------------------------------------
340	IncludeUGlobals	345	IncludeUGlobals
341	;---------------------------------------------------------------------	346	;---------------------------------------------------------------------
342	align 4	347	align 4
343	file_path rb 4096	348	file_path rb 4096
344	filename_area rb 256	349	filename_area rb 256
345	temp_dir_pach rb 4096	350	temp_dir_pach rb 4096
346	library_path rb 4096	351	library_path rb 4096
347	cur_dir_path rb 4096	352	cur_dir_path rb 4096
348	procinfo: rb 1024	353	procinfo: rb 1024
349	align 4	354	align 4
350	syscolors rb 192	355	syscolors rb 192
351	syscolors_end:	356	syscolors_end:
352	;---------------------------------------------------------------------	357	;---------------------------------------------------------------------
353	align 4	358	align 4
354	rb 4096	359	rb 4096
355	stacktop:	360	stacktop:
356	;---------------------------------------------------------------------	361	;---------------------------------------------------------------------
357	I_END:	362	I_END:

Subversion Repositories Kolibri OS

(root)/programs/media/animage/trunk/animage.asm – Rev 6369 → 6371