;"Web" demo for KolibriOS, version 0.3 ;Copyright Alexander Meshcheryakov (Self-Perfection), 2009 ;Contact me: alexander.s.m@gmail.com ;distributed under BSD license ;Used assumptions: ; 1) Screen resolution does not change while app is running ; 2) Screen width bigger than height ; 3) Screen width and height are even (2*k) use32 org 0 db 'MENUET01' dd 0x01,__start,__end,__memory,__stack,param,0 include '../../../macros.inc' background_cl = 0x000000 foreground_cl = 0xFFFFFF delay = 4 ; debug = 1 ;KOS_APP_START CODE cmp dword [param], '@ss' setz [screensaver] mov ebx, EVM_REDRAW + EVM_KEY + EVM_BUTTON cmovz ebx, EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE mcall 40 ;Preinit. Randomize start counter mcall 3 mov [initial_counter], eax ;init with system time ;Query screen size mcall 14 add eax, 0x00010001 mov dword [y_max], eax ;store x_max and y_max shr eax, 1 mov dword [radius], eax ;store radius and x_center ;Calc line_number mov ax, [y_max] mov dx, 0 mov bx, 5 div bx mov word [half_line_number], ax movzx edx, ax ;edx = half_line_number imul edx, 2 * line_coords_element_size ;Space needed for line_coords_array ;Demand memory mcall 68, 11 ; Init heap test eax, eax ; Is heap successfully inited? jnz @f jmp exit ; Netu pamjati?! Nu i nahuj vas @@: movzx ecx, [y_max] inc ecx movzx eax, [x_max] imul ecx, eax ;[Remember to left here space for 1-2 emergency lines at bottom] add ecx, edx ;And add space for line_coords_array mcall 68, 12, test eax, eax ; Did we get something non zero? jnz @f jmp exit @@: mov [line_coords_array_pointer], eax add eax, edx mov [image_pointer], eax call clear_offscreen_bitmap ;Calc fixed line ends coords fninit fldpi fidiv word [half_line_number] ;Now st0 contains angle step of line start points mov eax, [line_coords_array_pointer] ;cleanup: comment movzx ecx, word [half_line_number] shl ecx, 1 fld st ;skip zero angle to avoid 1px fixed line at right side calculate_next_line_start_point: fld st ;Calculate line start points coords fsincos fimul [radius] fiadd [x_center] fistp word [eax+start_x_offset] ; fchs ;affects direction, uncomment with corresponding line below fimul [radius] fiadd [radius] fistp word [eax+start_y_offset] ;Calculate line start point pointer movzx ebx, word [eax+start_y_offset] movzx edx, word [x_max] imul ebx, edx movzx edx, word [eax+start_x_offset] add ebx, edx add ebx, [image_pointer] mov [eax+line_start_pointer_offset], ebx fadd st0, st1 add eax, line_coords_element_size ;Move to next element in line_coords_array loop calculate_next_line_start_point fstp st0 ;drop current angle fidiv [divider] ;change angle step draw_window: ;Start line coords calculation fld st ;skip zero angle to avoid 1px fixed line at right side ;Use time since start to get current counter value mcall 26, 9 add eax, [initial_counter] mov [current_counter], eax mov eax, [line_coords_array_pointer] ;cleanup: comment movzx ecx, word [half_line_number] shl ecx, 1 calculate_next_line_end_point: fld st ;Calculate line end points fimul [current_counter] fsincos fimul [radius] fiadd [x_center] fistp word [eax+2] ; fchs ;affects direction, uncomment with corresponding line above fimul [radius] fiadd [radius] fistp word [eax+6] fadd st0, st1 add eax, line_coords_element_size ;Move to next element in line_coords_array loop calculate_next_line_end_point fstp st0 ;drop current angle inc dword [initial_counter] ; ********************************************* ; *******Draw lines on offscreen bitmap******** ; ********************************************* ;draw end points movzx edi, [half_line_number] shl edi, 1 mov esi, [line_coords_array_pointer] draw_next_line: if defined debug ;Draw red points next to line ends in debug mode movzx ebx, word [esi+start_y_offset] movzx eax, word [x_max] imul eax, ebx movzx ebx, word [esi+start_x_offset] add eax, ebx add eax, dword [image_pointer] inc eax mov [eax], byte red_cl_index movzx ebx, word [esi+end_y_offset] movzx eax, word [x_max] imul eax, ebx movzx ebx, word [esi+end_x_offset] add eax, ebx add eax, dword [image_pointer] inc eax ;Move one right to make more visible mov [eax], byte red_cl_index end if ;Drawing lines. Need to keep esi and edi values in process mov eax, [esi+line_start_pointer_offset] check_horizontal_line: mov bx, word [esi+start_y_offset] cmp bx, word [esi+end_y_offset] jnz general_draw_line ;Jump to next test if dy!=0 pusha movzx ecx, word [esi+end_x_offset] sub cx, word [esi+start_x_offset] jnc @f neg cx sub eax, ecx @@: cld inc cx mov edi, eax mov al, foreground_cl_index rep stos byte [edi] popa jmp line_drawing_end ;General line draw algorithm. Based on Bresenham's algorithm (below) but heavily optimized ; function line(x0, x1, y0, y1) ; boolean steep := abs(y1 - y0) > abs(x1 - x0) ; if steep then ; swap(x0, y0) ; swap(x1, y1) ; if x0 > x1 then ; swap(x0, x1) ; swap(y0, y1) ; int deltax := x1 - x0 ; int deltay := abs(y1 - y0) ; int error := deltax / 2 ; int ystep ; int y := y0 ; if y0 < y1 then ystep := 1 else ystep := -1 ; for x from x0 to x1 ; if steep then plot(y,x) else plot(x,y) ; error := error - deltay ; if error < 0 then ; y := y + ystep ; error := error + deltax general_draw_line: pusha ;init step_base and step_secondary mov edx, esi mov esi, 1 movzx edi, word [x_max] ;calc initial delta_base & delta_secondary values movzx ebx, word [edx+end_x_offset] sub bx, [edx+start_x_offset] jnc @f neg bx neg esi @@: movzx ecx, word [edx+end_y_offset] sub cx, [edx+start_y_offset] jnc @f neg cx neg edi @@: ;compare abs(y1 - y0) and abs(x1 - x0) cmp bx, cx jnc @f xchg ebx, ecx xchg esi, edi @@: shl ebx, 16 mov bx, cx rol ebx, 16 mov cx, bx ;init counter inc cx mov dx, bx ;init error shr dx, 1 rol ebx, 16 ;At current point: ;eax = current point pointer ;ebx = (delta_base shl 16) + delta_secondary ;ecx = counter ;[e]dx = error ;esi = step_base ;edi = step_secondary brasenham_plot_point: mov byte [eax], foreground_cl_index add eax, esi sub dx, bx jnc end_loop ; y := y + ystep ; error := error + deltax change_y: add eax, edi rol ebx, 16 add dx, bx rol ebx, 16 end_loop: loopw brasenham_plot_point end_bresenham: popa line_drawing_end: add esi, line_coords_element_size ;Move to next element in line_coords_array dec edi jnz draw_next_line ; ********************************************* ; ******* WINDOW DEFINITIONS AND DRAW ******** ; ********************************************* ; mcall 18, 14 ;Wait for scanning (it seems doesn't do any good now) ; start redraw (without calling 12 proc our window overwrites window that above it) mcall 12, 1 xor eax,eax movzx ebx, [x_max] movzx ecx, [y_max] mov edx, 0x01000000 ;Window style ;Draw nothing ; mov edx, 0x00000000 ;Window style ; mov esi, 0x00000000 ;Header color (prevent odd color line on top of window in random cases) mcall ;Define window mov ebp, 0 mov ecx, dword [y_max] mcall 65, [image_pointer], , <0,0>, 8, palette mcall 12, 2 ; end redraw call clear_offscreen_bitmap wait_event: mcall 23, delay ; mcall 10 test eax, 0xFFFF - 1 ;Test for 0 (delay passed) or 1 (redraw) event jz draw_window ; Delay passed or redraw event dec eax dec eax jnz exit ; If not key then Alt+F4 ; key pressed, read it and ignore mcall 2 cmp ah, 27 ; Test Esc key press in ASCII jne wait_event ; button pressed; we have only one button, close ; also seems to handle Alt+F4 exit: cmp [screensaver], 0 jz @f mcall 70, f70 @@: mcall -1 clear_offscreen_bitmap: mov edi, [image_pointer] movzx ecx, [y_max] movzx eax, [x_max] imul ecx, eax shr ecx, 2 ;dword is 4 bytes mov eax, 0 rep stos dword [edi] ret DATA divider dw 5000 palette: background_cl_index = 0 dd background_cl foreground_cl_index = 1 dd foreground_cl if defined debug red_cl_index = 2 dd 0x00FF0000 ;Cleanup this! end if UDATA image_pointer dd ? initial_counter dd ? current_counter dd ? ;counter + current time half_line_number dw ? y_max dw ? ; screen size x_max dw ? radius dw ? x_center dw ? line_coords_array_pointer dd ? ; line_coords_array: ; repeat 1000 ;line_number ; dw ? ;start_x ; dw ? ;end_x ; dw ? ;start_y ; dw ? ;end_y ; dd ? ;line_start_pointer ; end repeat start_x_offset = 0 end_x_offset = 2 start_y_offset = 4 end_y_offset = 6 line_start_pointer_offset = 8 line_coords_element_size = 12 __params: param rb 40 f70: ; run dd 7, 0, 0, 0, 0 db '/sys/@SS',0 screensaver db ? MEOS_APP_END