forked from KolibriOS/kolibrios
314 lines
6.8 KiB
NASM
314 lines
6.8 KiB
NASM
use32
|
|
org 0x0
|
|
db 'MENUET01' ;èäåíòèô. èñïîëíÿåìîãî ôàéëà âñåãäà 8 áàéò
|
|
dd 0x1
|
|
dd start
|
|
dd i_end ; ðàçìåð ïðèëîæåíèÿ
|
|
dd mem
|
|
dd stacktop
|
|
dd 0x0
|
|
dd cur_dir_path
|
|
|
|
include 'macros.inc'
|
|
include 'vectors.inc' ;vectors functions constant
|
|
include 'load_lib.mac'
|
|
|
|
@use_library
|
|
|
|
delt_angl dd 0.15708 ;óãîë ïîâîðîòà ïðè íàæàòèè êóðñîðîâ
|
|
delt_size dd 0.05 ;øàã èçìåíåíèÿ ìàñøòàáà
|
|
scale_min dd 0.05 ;ìèíèìàëüíûé ìàñøòàá
|
|
delt_x dd 10.0 ;ïåðåäâèæåíèå ïî îñè x
|
|
delt_y equ delt_x
|
|
|
|
arr0c:
|
|
.x dd 200.0
|
|
.y dd 150.0
|
|
.a dd 0.0 ;angle
|
|
.s dd 0.35 ;scale
|
|
arr1v:
|
|
dw 12+VECT_PARAM_PROP_L+VECT_PARAM_COLOR ;òóëîâèùå
|
|
dd 0xffd040
|
|
dd VECT_CONT_BEZIER
|
|
dd 6.0,128.0, 41.0,113.0, 175.0,94.0, 211.0,78.0
|
|
dd 263.0,48.0, 300.0,29.0, 345.0,30.0, 383.0,52.0
|
|
dd 415.0,85.0, 443.0,100.0, 476.0,112.0, 519.0,135.0
|
|
dw 32+VECT_PARAM_PROP_L
|
|
dd VECT_CONT_BEZIER
|
|
dd 6.0,128.0, 48.0,127.0, 119.0,116.0, 202.0,114.0
|
|
dd 233.0,127.0, 274.0,185.0, 300.0,211.0, 351.0,243.0
|
|
dd 386.0,271.0, 398.0,292.0, 429.0,328.0, 507.0,384.0
|
|
dd 517.0,401.0, 534.0,402.0, 545.0,388.0, 568.0,386.0
|
|
dd 587.0,370.0, 612.0,393.0, 660.0,409.0, 712.0,447.0
|
|
dd 711.0,422.0, 764.0,438.0, 837.0,481.0, 853.0,480.0
|
|
dd 838.0,470.0, 860.0,466.0, 836.0,451.0, 851.0,447.0
|
|
dd 796.0,412.0, 743.0,361.0, 719.0,335.0, 677.0,290.0
|
|
|
|
dw 23+VECT_PARAM_PROP_L ;êðûëüÿ
|
|
dd VECT_CONT_BEZIER
|
|
dd 437.0,130.0, 519.0,135.0, 591.0,139.0, 616.0,150.0
|
|
dd 697.0,163.0, 776.0,183.0, 849.0,230.0, 811.0,245.0
|
|
dd 808.0,265.0, 771.0,258.0, 769.0,281.0, 729.0,277.0
|
|
dd 718.0,296.0, 679.0,284.0, 665.0,294.0, 642.0,290.0
|
|
dd 636.0,304.0, 609.0,296.0, 596.0,306.0, 574.0,301.0
|
|
dd 541.0,299.0, 514.0,302.0, 495.0,299.0
|
|
dw 16+VECT_PARAM_PROP_L
|
|
dd VECT_CONT_BEZIER
|
|
dd 484.0,116.0, 514.0,110.0, 564.0,82.0, 618.0,63.0
|
|
dd 712.0,25.0, 774.0,25.0, 796.0,39.0, 778.0,51.0
|
|
dd 779.0,64.0, 754.0,78.0, 745.0,97.0, 720.0,113.0
|
|
dd 713.0,132.0, 688.0,146.0, 683.0,153.0, 668.0,158.0
|
|
|
|
dw 7+VECT_PARAM_PROP_L+VECT_PARAM_COLOR ;ãëàç
|
|
dd 0x0
|
|
dd VECT_CONT_BEZIER
|
|
dd 292.0,88.0, 278.0,78.0, 262.0,86.0, 261.0,101.0
|
|
dd 274.0,110.0, 291.0,105.0, 292.0,88.0, 778.0,51.0
|
|
dw 0
|
|
|
|
align 4
|
|
start:
|
|
mov ecx,sc
|
|
mov edx,sizeof.system_colors
|
|
mcall 48,3
|
|
mcall 40,0x27
|
|
|
|
sys_load_library vectors_name, cur_dir_path, library_path, system_path, \
|
|
err_message_found_lib, head_f_l, vectors_lib_import, err_message_import, head_f_i
|
|
|
|
push 5*65536+40
|
|
push 500*65536+350
|
|
push 0xffffd0 ;öâåò ôîíà
|
|
push word 24*256+1
|
|
call [vect_buf_create]
|
|
|
|
push word 1
|
|
call [vect_buf_set_active] ;óñòàíàâëèâàåì ðåæèì ðèñîâàíèÿ â 1-é áóôåð
|
|
|
|
red_win:
|
|
call draw_window
|
|
|
|
still:
|
|
mcall 10
|
|
|
|
cmp al,0x1 ;èçì. ïîëîæåíèå îêíà
|
|
jz red_win
|
|
cmp al,0x2
|
|
jz key
|
|
cmp al,0x3
|
|
jz button
|
|
jmp still
|
|
|
|
draw_window:
|
|
mcall 12,1
|
|
|
|
xor eax,eax
|
|
mov ebx,10*65536+520
|
|
mov ecx,10*65536+430
|
|
mov edx,0xffffff;[sc.work]
|
|
or edx,0x33000000
|
|
mov edi,hed
|
|
mcall
|
|
|
|
mov eax,4
|
|
mov ebx,5*65536+5
|
|
mov ecx,0x808000
|
|
or ecx,0x80000000
|
|
mov edx,txtInfo1
|
|
int 0x40
|
|
mov ebx,5*65536+20
|
|
mov edx,txtInfo2
|
|
int 0x40
|
|
|
|
call draw_vect_image
|
|
|
|
mcall 12,2
|
|
ret
|
|
|
|
draw_vect_image:
|
|
push word 1
|
|
call [vect_buf_clear] ;÷èñòèì 1-é áóôåð
|
|
|
|
push dword 0x808000
|
|
push dword arr1v
|
|
push dword arr0c
|
|
call [vect_draw_cont]
|
|
|
|
push word 1
|
|
call [vect_buf_draw] ;âûâîäèì 1-é áóôåð íà ýêðàí
|
|
ret
|
|
|
|
button:
|
|
; mcall 17 ;ïîëó÷èòü êîä íàæàòîé êíîïêè
|
|
; cmp ah,1
|
|
; jne still
|
|
.exit:
|
|
push word 1
|
|
call [vect_buf_delete] ;óäàëÿåì 1-é áóôåð
|
|
mcall -1 ;âûõîä èç ïðîãðàììû
|
|
|
|
key:
|
|
mcall 2
|
|
|
|
cmp ah,27 ;Esc
|
|
je button.exit
|
|
|
|
cmp ah,176 ;Left
|
|
jne @f
|
|
call Image_RotLeft
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,179 ;Right
|
|
jne @f
|
|
call Image_RotRight
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,178 ;Up
|
|
jne @f
|
|
fld dword[arr0c.s]
|
|
fadd dword[delt_size]
|
|
fstp dword[arr0c.s]
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,177 ;Down
|
|
jne @f
|
|
call ScaleDec
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,119 ;w
|
|
jne @f
|
|
call Image_MoveUp
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,115 ;s
|
|
jne @f
|
|
call Image_MoveDown
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,100 ;d
|
|
jne @f
|
|
call Image_MoveRight
|
|
call draw_vect_image
|
|
@@:
|
|
cmp ah,97 ;a
|
|
jne @f
|
|
call Image_MoveLeft
|
|
call draw_vect_image
|
|
@@:
|
|
|
|
jmp still
|
|
|
|
;d
|
|
Image_MoveRight:
|
|
fld dword[arr0c.x]
|
|
fadd dword[delt_x]
|
|
fstp dword[arr0c.x]
|
|
ret
|
|
|
|
;a
|
|
Image_MoveLeft:
|
|
fld dword[arr0c.x]
|
|
fsub dword[delt_x]
|
|
fstp dword[arr0c.x]
|
|
ret
|
|
|
|
;w
|
|
Image_MoveUp:
|
|
fld dword[arr0c.y]
|
|
fsub dword[delt_y]
|
|
fstp dword[arr0c.y]
|
|
ret
|
|
|
|
;s
|
|
Image_MoveDown:
|
|
fld dword[arr0c.y]
|
|
fadd dword[delt_y]
|
|
fstp dword[arr0c.y]
|
|
ret
|
|
|
|
Image_RotLeft:
|
|
mov bl,1
|
|
fld dword[arr0c.a]
|
|
fsub dword[delt_angl]
|
|
fstp dword[arr0c.a]
|
|
ret
|
|
|
|
Image_RotRight:
|
|
mov bl,1
|
|
fld dword[arr0c.a]
|
|
fadd dword[delt_angl]
|
|
fstp dword[arr0c.a]
|
|
ret
|
|
|
|
ScaleDec:
|
|
push ax
|
|
finit
|
|
fld dword[arr0c.s]
|
|
fsub dword[delt_size]
|
|
|
|
fcom dword[scale_min]
|
|
fstsw ax
|
|
sahf
|
|
jbe @f
|
|
fstp dword[arr0c.s]
|
|
@@:
|
|
pop ax
|
|
ret
|
|
|
|
o_dan dd ?
|
|
hed db 'Drawing vector image',0
|
|
txtInfo1 db 'Šãàá®àë: [',27,'], [',26,'] - ¯®¢®à®â; [',24,'], [',25,'] - à §¬¥à',0
|
|
txtInfo2 db 'Š®¯ª¨: [a], [d] - ¢«¥¢®, ¢¯à ¢®; [w], [s] - ¢¢¥àå, ¢¨§',0
|
|
sc system_colors
|
|
|
|
;--------------------------------------------------
|
|
align 4
|
|
vectors_lib_import:
|
|
vect_buf_create dd av_buf_create
|
|
vect_buf_set_active dd av_buf_set_active
|
|
vect_buf_clear dd av_buf_clear
|
|
vect_buf_draw dd av_draw_buf
|
|
vect_buf_delete dd av_buf_delete
|
|
vect_line dd av_line
|
|
vect_c_bezier dd av_c_bezier
|
|
vect_conv_cont dd av_conv_cont
|
|
vect_draw_cont dd av_draw_cont
|
|
vect_opred2i dd av_opred2i
|
|
vect_line_len4i dd av_line_len4i
|
|
vect_o_len dd av_o_len
|
|
vect_o_ang dd av_o_ang
|
|
|
|
dd 0,0
|
|
av_buf_create db 'vect_buf_create',0
|
|
av_buf_set_active db 'vect_buf_set_active',0
|
|
av_buf_clear db 'vect_buf_clear',0
|
|
av_draw_buf db 'vect_buf_draw',0
|
|
av_buf_delete db 'vect_buf_delete',0
|
|
av_line db 'vect_line',0
|
|
av_c_bezier db 'vect_c_bezier',0
|
|
av_conv_cont db 'vect_conv_cont',0
|
|
av_draw_cont db 'vect_draw_cont',0
|
|
av_opred2i db 'vect_opred2i',0
|
|
av_line_len4i db 'vect_line_len4i',0
|
|
av_o_len db 'vect_o_len',0
|
|
av_o_ang db 'vect_o_ang',0
|
|
|
|
;--------------------------------------------------
|
|
system_path db '/sys/lib/'
|
|
vectors_name db 'vectors.obj',0
|
|
err_message_found_lib db 'Sorry I cannot load library vectors.obj',0
|
|
head_f_i:
|
|
head_f_l db 'System error',0
|
|
err_message_import db 'Error on load import library vectors.obj',0
|
|
;--------------------------------------------------
|
|
|
|
i_end: ;êîíåö êîäà
|
|
rb 1024
|
|
stacktop:
|
|
cur_dir_path:
|
|
rb 4096
|
|
library_path:
|
|
rb 4096
|
|
mem:
|
|
|