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 'cursors/brush.cur'
flood_fill_cursor:
file 'cursors/flood_fill.cur'
lastik_cursor:
file 'cursors/lastik.cur'
other_cursor:
file 'cursors/other.cur'
pencil_cursor:
file 'cursors/pencil.cur'
pipette_cursor:
file 'cursors/pipette.cur'
spray_cursor:
file 'cursors/spray.cur'
zoom_cursor:
file 'cursors/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 6371	Rev 6373
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	ci_panel_zoom_x equ 178 ;ª®®à¤. x ¤«ï ª®¯®ª ¯ ¥«¨ ¬ áèâ ¡
68		68
69	; ®ª® à¥¤ ªâ®à	69	; ®ª® à¥¤ ªâ®à
70	ci_edit_wnd_x_pos equ 0 ;ª®®à¤. x ¤«ï ®ª à¥¤ ªâ®à	70	ci_edit_wnd_x_pos equ 0 ;ª®®à¤. x ¤«ï ®ª à¥¤ ªâ®à
71	ci_edit_wnd_y_pos equ 71 ;ª®®à¤. y ¤«ï ®ª à¥¤ ªâ®à	71	ci_edit_wnd_y_pos equ 71 ;ª®®à¤. y ¤«ï ®ª à¥¤ ªâ®à
72	ci_edit_wnd_border equ 3 ;à ¬ª ¢®ªàã£ ®ª à¥¤ ªâ®à	72	ci_edit_wnd_border equ 3 ;à ¬ª ¢®ªàã£ ®ª à¥¤ ªâ®à
73		73
74	; áªà®««¨£¨	74	; áªà®««¨£¨
75	ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨£®¢	75	ci_scroll_dim equ 22 ;à §¬¥àë áªà®««¨£®¢
76	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) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª
77	;£®à¨§®â «ì®£® áªà®««¨£	77	;£®à¨§®â «ì®£® áªà®««¨£
78	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) ;¬¨¨¬ «ì ï ¯®§¨æ¨ï ¯®«§ãª
79	;¢¥àâ¨ª «ì®£® áªà®««¨£	79	;¢¥àâ¨ª «ì®£® áªà®««¨£
80	;---------------------------------------------------------	80	;---------------------------------------------------------
81		81
82	include 'bmplib.inc'	82	include 'bmplib.inc'
83	include 'dialog2.inc'	83	include 'dialog2.inc'
84	include 'design.inc'	84	include 'design.inc'
85	include 'graphlib.inc'	85	include 'graphlib.inc'
86		86
87	include 'cursors.inc'	87	include 'cursors.inc'
88	include 'memory.inc'	88	include 'memory.inc'
89	include 'load_from_parameters.inc'	89	include 'load_from_parameters.inc'
90		90
91	START:	91	START:
92	mcall SF_SYS_MISC,SSF_HEAP_INIT	92	mcall SF_SYS_MISC,SSF_HEAP_INIT
93	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors	93	mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscolors, syscolors_end-syscolors
94		94
95	load_libraries l_libs_start,end_l_libs	95	load_libraries l_libs_start,end_l_libs
96		96
97	cmp eax,-1	97	cmp eax,-1
98	jz close	98	jz close
99		99
100	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b	100	mcall SF_SET_EVENTS_MASK,0x80000067 ; 1100111b
101	;---------------------------------------------------------	101	;---------------------------------------------------------
102	;-----------------------init data-------------------------	102	;-----------------------init data-------------------------
103	;---------------------------------------------------------	103	;---------------------------------------------------------
104	include 'init_data.inc'	104	include 'init_data.inc'
105		105
106	;----------------------------------------------------------	106	;----------------------------------------------------------
107	;--------get memory and draw window of program-------------	107	;--------get memory and draw window of program-------------
108	;----------------------------------------------------------	108	;----------------------------------------------------------
109	call GetMemory	109	call GetMemory
110	mov [Current_instrument],10 ;pencil	110	mov [Current_instrument],10 ;pencil
111	call TakeButtonInstruments ;set startup instrument	111	call TakeButtonInstruments ;set startup instrument
112	call cleare_work_arrea	112	call cleare_work_arrea
113	call load_icons	113	call load_icons
114	call init_main_menu	114	call init_main_menu
115		115
116	;load cursors	116	;load cursors
117	mov eax,CursorsID	117	mov eax,CursorsID
118	call load_cursors	118	call load_cursors
119		119
120	;---------------------------------------------------------	120	;---------------------------------------------------------
121	;---------check loading of file from parameters-----------	121	;---------check loading of file from parameters-----------
122	;---------------------------------------------------------	122	;---------------------------------------------------------
123	mov eax,file_path	123	mov eax,file_path
124	cmp [eax],byte 0	124	cmp [eax],byte 0
125	jz @f	125	jz @f
126	call load_picture	126	call load_picture
127	call MovePictureToWorkScreen	127	call MovePictureToWorkScreen
128	@@:	128	@@:
129		129
130	;---------------------------------------------------------------------	130	;---------------------------------------------------------------------
131	mov edi,filename_area	131	mov edi,filename_area
132	mov esi,path4+5	132	mov esi,path4+5
133	call copy_str_1	133	call copy_str_1
134		134
135	mov edi,file_path	135	mov edi,file_path
136	cmp [edi],byte 0	136	cmp [edi],byte 0
137	jne @f	137	jne @f
138	mov esi,path4	138	mov esi,path4
139	call copy_str_1	139	call copy_str_1
140	@@:	140	@@:
141	;OpenDialog initialisation	141	;OpenDialog initialisation
142	stdcall [OpenDialog_Init], OpenDialog_data	142	stdcall [OpenDialog_Init], OpenDialog_data
143	;---------------------------------------------------------------------	143	;---------------------------------------------------------------------
144		144
145	align 4	145	align 4
146	red:	146	red:
147	call drawwin	147	call drawwin
148	;----------------------------------------------------------	148	;----------------------------------------------------------
149	;---------------------main loop----------------------------	149	;---------------------main loop----------------------------
150	;----------------------------------------------------------	150	;----------------------------------------------------------
151	align 4	151	align 4
152	still:	152	still:
153	mcall SF_WAIT_EVENT	153	mcall SF_WAIT_EVENT
154		154
155	cmp eax,1	155	cmp eax,1
156	je red	156	je red
157		157
158	cmp eax,2	158	cmp eax,2
159	je keys	159	je keys
160		160
161	cmp eax,3	161	cmp eax,3
162	je buttons	162	je buttons
163		163
164	cmp eax,6	164	cmp eax,6
165	je mouse	165	je mouse
166		166
167	jmp still	167	jmp still
168		168
169	;---------------------------------------------------------------------	169	;---------------------------------------------------------------------
170	copy_str_1:	170	copy_str_1:
171	xor eax,eax	171	xor eax,eax
172	cld	172	cld
173	@@:	173	@@:
174	lodsb	174	lodsb
175	stosb	175	stosb
176	test eax,eax	176	test eax,eax
177	jnz @b	177	jnz @b
178	ret	178	ret
179	;---------------------------------------------------------------------	179	;---------------------------------------------------------------------
180	include 'events.inc'	180	include 'events.inc'
181	include 'events_of_window.inc'	181	include 'events_of_window.inc'
182	include 'events_of_keys.inc'	182	include 'events_of_keys.inc'
183	include 'events_of_buttons.inc'	183	include 'events_of_buttons.inc'
184	include 'events_of_mouse.inc'	184	include 'events_of_mouse.inc'
185	include 'panel_engen.inc'	185	include 'panel_engen.inc'
186	include 'screen.inc'	186	include 'screen.inc'
187	include 'menu_instruments.inc'	187	include 'menu_instruments.inc'
188	include 'icons_instruments.inc'	188	include 'icons_instruments.inc'
189	include 'icons.inc'	189	include 'icons.inc'
190	include 'sprites.inc'	190	include 'sprites.inc'
191	include 'string.inc'	191	include 'string.inc'
192	include 'palette.inc'	192	include 'palette.inc'
193	include 'files.inc'	193	include 'files.inc'
194	include 'time.inc'	194	include 'time.inc'
195	include 'menu.inc'	195	include 'menu.inc'
196	;-----------------------------------------------------------	196	;-----------------------------------------------------------
197	;------------variables and data of program------------------	197	;------------variables and data of program------------------
198	;-----------------------------------------------------------	198	;-----------------------------------------------------------
199	;sound_havent_memory db 150,64,0	199	;sound_havent_memory db 150,64,0
200		200
201	include 'lib_data.inc'	201	include 'lib_data.inc'
202	include 'panel_data.inc'	202	include 'panel_data.inc'
203	include 'palitra256.inc'	203	include 'palitra256.inc'
204	include 'brushes.inc'	204	include 'brushes.inc'
205	include 'spray.inc'	205	include 'spray.inc'
206	include 'width_lines.inc'	206	include 'width_lines.inc'
207	;----------------------------------------------------------	207	;----------------------------------------------------------
208	;-------------------icon's picture-------------------------	208	;-------------------icon's picture-------------------------
209	;----------------------------------------------------------	209	;----------------------------------------------------------
210	align 4	210	align 4
211	panel_picture:	211	panel_picture:
212	file 'panel_buttons.png'	212	file 'panel_buttons.png'
213	.end:	213	.end:
214	align 4	214	align 4
215	panel_zoom:	215	panel_zoom:
216	file 'panel_zoom.png'	216	file 'panel_zoom.png'
217	.end:	217	.end:
218	;**************cursors****************	218	;**************cursors****************
219	brush_cursor:	219	brush_cursor:
220	file 'brush.cur'	220	file 'cursors/brush.cur'
221	flood_fill_cursor:	221	flood_fill_cursor:
222	file 'flood_fill.cur'	222	file 'cursors/flood_fill.cur'
223	lastik_cursor:	223	lastik_cursor:
224	file 'lastik.cur'	224	file 'cursors/lastik.cur'
225	other_cursor:	225	other_cursor:
226	file 'other.cur'	226	file 'cursors/other.cur'
227	pencil_cursor:	227	pencil_cursor:
228	file 'pencil.cur'	228	file 'cursors/pencil.cur'
229	pipette_cursor:	229	pipette_cursor:
230	file 'pipette.cur'	230	file 'cursors/pipette.cur'
231	spray_cursor:	231	spray_cursor:
232	file 'spray.cur'	232	file 'cursors/spray.cur'
233	zoom_cursor:	233	zoom_cursor:
234	file 'zoom.cur'	234	file 'cursors/zoom.cur'
235	;----------------------------------------------------------	235	;----------------------------------------------------------
236	align 4	236	align 4
237	IM_END:	237	IM_END:
238	;-----------------------------------------------------------	238	;-----------------------------------------------------------
239	;------------variables and data of program------------------	239	;------------variables and data of program------------------
240	;-----------------------------------------------------------	240	;-----------------------------------------------------------
241	time rd 1	241	time rd 1
242	PosX rd 1 ;scroll x file position	242	PosX rd 1 ;scroll x file position
243	PosY rd 1 ;scroll y file position	243	PosY rd 1 ;scroll y file position
244	PointerToIcons rd 1	244	PointerToIcons rd 1
245	ScreenPointer rd 1	245	ScreenPointer rd 1
246	PointerToPicture rd 1	246	PointerToPicture rd 1
247	PointerToCopyPicture rd 1	247	PointerToCopyPicture rd 1
248	PointerToCopyPicture2 rd 1	248	PointerToCopyPicture2 rd 1
249	PointerToEditBufer rd 1	249	PointerToEditBufer rd 1
250	PointerToSpriteBufer rd 1	250	PointerToSpriteBufer rd 1
251	PointerToPalette rd 1 ;ãª § â¥«ì ¯¨«¨âàã (ã¦¥ ¤«ï á®åà ¥¨ï ¢ *.bmp)	251	PointerToPalette rd 1 ;ãª § â¥«ì ¯¨«¨âàã (ã¦¥ ¤«ï á®åà ¥¨ï ¢ *.bmp)
252	Color rd 1	252	Color rd 1
253	SColor rd 1	253	SColor rd 1
254	Number_Brush rd 1	254	Number_Brush rd 1
255	Brush_SizeX rd 1	255	Brush_SizeX rd 1
256	Brush_SizeY rd 1	256	Brush_SizeY rd 1
257	Current_instrument rd 1	257	Current_instrument rd 1
258	Last_instrument rd 1	258	Last_instrument rd 1
259	OldX rd 1	259	OldX rd 1
260	OldY rd 1	260	OldY rd 1
261		261
262	MouseX rd 1	262	MouseX rd 1
263	MouseY rd 1	263	MouseY rd 1
264	Window_SizeX rd 1	264	Window_SizeX rd 1
265	Window_SizeY rd 1	265	Window_SizeY rd 1
266	Window_CordinatX rd 1	266	Window_CordinatX rd 1
267	Window_CordinatY rd 1	267	Window_CordinatY rd 1
268	Picture_SizeX rd 1	268	Picture_SizeX rd 1
269	Picture_SizeY rd 1	269	Picture_SizeY rd 1
270	ScreenX rd 1 ;ª®®à¤¨ â x ªãàá®à á ãç¥â®¬ ¬ áèâ ¡	270	ScreenX rd 1 ;ª®®à¤¨ â x ªãàá®à á ãç¥â®¬ ¬ áèâ ¡
271	ScreenY rd 1 ;ª®®à¤¨ â y ªãàá®à á ãç¥â®¬ ¬ áèâ ¡	271	ScreenY rd 1 ;ª®®à¤¨ â y ªãàá®à á ãç¥â®¬ ¬ áèâ ¡
272	WorkScreen_SizeX rd 1	272	WorkScreen_SizeX rd 1
273	WorkScreen_SizeY rd 1	273	WorkScreen_SizeY rd 1
274	MaxWorkScreen_SizeX rd 1	274	MaxWorkScreen_SizeX rd 1
275	MaxWorkScreen_SizeY rd 1	275	MaxWorkScreen_SizeY rd 1
276	k rd 1 ;¬ áèâ ¡	276	k rd 1 ;¬ áèâ ¡
277		277
278	ReserveArray rd 1	278	ReserveArray rd 1
279	register rd 1	279	register rd 1
280	CounterX rd 1	280	CounterX rd 1
281	CounterY rd 1	281	CounterY rd 1
282	OffsetYPicture rd 1	282	OffsetYPicture rd 1
283	OffsetYWorkScreen rd 1	283	OffsetYWorkScreen rd 1
284	OffsetYBigPixel rd 1	284	OffsetYBigPixel rd 1
285		285
286	Icon_X rd 1	286	Icon_X rd 1
287	Icon_Y rd 1	287	Icon_Y rd 1
288	counter rd 1	288	counter rd 1
289	counter2 rd 1	289	counter2 rd 1
290	number_panel rd 1	290	number_panel rd 1
291	number_menu rd 1	291	number_menu rd 1
292		292
293	Scroll1CoordinatX rd 1 ;scroll x screen position	293	Scroll1CoordinatX rd 1 ;scroll x screen position
294	Scroll1CoordinatY rd 1 ;scroll y screen position	294	Scroll1CoordinatY rd 1 ;scroll y screen position
295	Scroll1MaxSizeX rd 1	295	Scroll1MaxSizeX rd 1
296	Scroll1MaxSizeY rd 1	296	Scroll1MaxSizeY rd 1
297	Scroll1SizeX rd 1 ;scroll polzunok size	297	Scroll1SizeX rd 1 ;scroll polzunok size
298	Scroll1FreeX rd 1	298	Scroll1FreeX rd 1
299		299
300	Scroll2CoordinatX rd 1	300	Scroll2CoordinatX rd 1
301	Scroll2CoordinatY rd 1	301	Scroll2CoordinatY rd 1
302	Scroll2MaxSizeX rd 1	302	Scroll2MaxSizeX rd 1
303	Scroll2MaxSizeY rd 1	303	Scroll2MaxSizeY rd 1
304	Scroll2SizeY rd 1	304	Scroll2SizeY rd 1
305	Scroll2FreeY rd 1	305	Scroll2FreeY rd 1
306		306
307	x rd 1	307	x rd 1
308	y rd 1	308	y rd 1
309		309
310	Radius rd 1	310	Radius rd 1
311	Dx_ rd 1	311	Dx_ rd 1
312	Dy_ rd 1	312	Dy_ rd 1
313	line_width rd 1	313	line_width rd 1
314	a_ellips rd 1	314	a_ellips rd 1
315	b_ellips rd 1	315	b_ellips rd 1
316		316
317	used_OldX rd 1 ;for draw hard contour	317	used_OldX rd 1 ;for draw hard contour
318	used_OldY rd 1	318	used_OldY rd 1
319	rectangular_shade_x rd 1 ;ª®®à¤¨ â x ®¡« áâ¨ ¤«ï ª®¯¨à®¢ ¨ï	319	rectangular_shade_x rd 1 ;ª®®à¤¨ â x ®¡« áâ¨ ¤«ï ª®¯¨à®¢ ¨ï
320	rectangular_shade_y rd 1	320	rectangular_shade_y rd 1
321	paste_img_w rd 1 ;è¨à¨ ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï	321	paste_img_w rd 1 ;è¨à¨ ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï
322	paste_img_h rd 1 ;¢ëá®â ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï	322	paste_img_h rd 1 ;¢ëá®â ¢áâ ¢«ï¥¬®£® ¨§®¡à ¦¥¨ï
323	crossing_old_x rd 1	323	crossing_old_x rd 1
324	crossing_old_y rd 1	324	crossing_old_y rd 1
325	crossing rd 1	325	crossing rd 1
326	finishing_crossing rd 1	326	finishing_crossing rd 1
327	number_undo rd 1	327	number_undo rd 1
328	SpriteSizeX rd 1	328	SpriteSizeX rd 1
329	SpriteSizeY rd 1	329	SpriteSizeY rd 1
330	SpriteCoordinatX rd 1	330	SpriteCoordinatX rd 1
331	SpriteCoordinatY rd 1	331	SpriteCoordinatY rd 1
332	SpriteOldCoordinatX rd 1	332	SpriteOldCoordinatX rd 1
333	SpriteOldCoordinatY rd 1	333	SpriteOldCoordinatY rd 1
334		334
335	CursorsID rd 10	335	CursorsID rd 10
336		336
337	Activate_instrument rb 1	337	Activate_instrument rb 1
338	save_flag rb 1	338	save_flag rb 1
339	exit_from_work_arrea rb 1	339	exit_from_work_arrea rb 1
340	lastik_is_active rb 1	340	lastik_is_active rb 1
341	instrument_used rb 1	341	instrument_used rb 1
342	DrawSprite_flag rb 1	342	DrawSprite_flag rb 1
343	Paste_flag rb 1	343	Paste_flag rb 1
344	;---------------------------------------------------------------------	344	;---------------------------------------------------------------------
345	IncludeUGlobals	345	IncludeUGlobals
346	;---------------------------------------------------------------------	346	;---------------------------------------------------------------------
347	align 4	347	align 4
348	file_path rb 4096	348	file_path rb 4096
349	filename_area rb 256	349	filename_area rb 256
350	temp_dir_pach rb 4096	350	temp_dir_pach rb 4096
351	library_path rb 4096	351	library_path rb 4096
352	cur_dir_path rb 4096	352	cur_dir_path rb 4096
353	procinfo: rb 1024	353	procinfo: rb 1024
354	align 4	354	align 4
355	syscolors rb 192	355	syscolors rb 192
356	syscolors_end:	356	syscolors_end:
357	;---------------------------------------------------------------------	357	;---------------------------------------------------------------------
358	align 4	358	align 4
359	rb 4096	359	rb 4096
360	stacktop:	360	stacktop:
361	;---------------------------------------------------------------------	361	;---------------------------------------------------------------------
362	I_END:	362	I_END:

Subversion Repositories Kolibri OS

(root)/programs/media/animage/trunk/animage.asm @ 6379 – Rev 6371 → 6373