forked from KolibriOS/kolibrios
Add spiral: 2D demo and screen saver example.
Originally written in UASM by 0CodErr. git-svn-id: svn://kolibrios.org@7599 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
8973200440
commit
9823d47546
4
programs/demos/spiral/Tupfile.lua
Normal file
4
programs/demos/spiral/Tupfile.lua
Normal file
@ -0,0 +1,4 @@
|
||||
if tup.getconfig("NO_FASM") ~= "" then return end
|
||||
HELPERDIR = (tup.getconfig("HELPERDIR") == "") and "../.." or tup.getconfig("HELPERDIR")
|
||||
tup.include(HELPERDIR .. "/use_fasm.lua")
|
||||
tup.rule("spiral.asm", FASM .. " %f %o " .. tup.getconfig("KPACK_CMD"), "spiral")
|
||||
433
programs/demos/spiral/spiral.asm
Normal file
433
programs/demos/spiral/spiral.asm
Normal file
@ -0,0 +1,433 @@
|
||||
;
|
||||
; Spiral demo using Turtle graphics
|
||||
;
|
||||
; Written in UASM by 0CorErr
|
||||
; Translated to FASM by dunkaist
|
||||
;
|
||||
|
||||
use32
|
||||
org 0
|
||||
db 'MENUET01'
|
||||
dd 0x01,start,i_end,e_end,e_end,params,0
|
||||
|
||||
include 'proc32.inc'
|
||||
include 'macros.inc'
|
||||
|
||||
struct RGB
|
||||
Blue db ?
|
||||
Green db ?
|
||||
Red db ?
|
||||
ends
|
||||
|
||||
struct HSV
|
||||
Hue dw ?
|
||||
Sat db ?
|
||||
Val db ?
|
||||
ends
|
||||
|
||||
struct Turtle
|
||||
PosX dd ?
|
||||
PosY dd ?
|
||||
Orientation dd ?
|
||||
PenColor HSV
|
||||
ends
|
||||
|
||||
|
||||
proc forward _t, _d
|
||||
locals
|
||||
.x1 dd ?
|
||||
.x2 dd ?
|
||||
.y1 dd ?
|
||||
.y2 dd ?
|
||||
endl
|
||||
mov eax, [_t]
|
||||
|
||||
fld [eax+Turtle.PosX]
|
||||
fistp [.x1]
|
||||
|
||||
fld [eax+Turtle.PosY]
|
||||
fistp [.y1]
|
||||
|
||||
fld [eax+Turtle.Orientation]
|
||||
fcos
|
||||
fmul [_d]
|
||||
fadd [eax+Turtle.PosX]
|
||||
fstp [eax+Turtle.PosX]
|
||||
|
||||
fld [eax+Turtle.Orientation]
|
||||
fsin
|
||||
fmul [_d]
|
||||
fadd [eax+Turtle.PosY]
|
||||
fstp [eax+Turtle.PosY]
|
||||
|
||||
fld [eax+Turtle.PosX]
|
||||
fistp [.x2]
|
||||
|
||||
fld [eax+Turtle.PosY]
|
||||
fistp [.y2]
|
||||
|
||||
mov ebx, [.x1]
|
||||
shl ebx, 16
|
||||
add ebx, [.x2]
|
||||
mov ecx, [.y1]
|
||||
shl ecx, 16
|
||||
add ecx, [.y2]
|
||||
mov edx, [color]
|
||||
mcall 38
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc turn _t, _degrees
|
||||
mov eax, [_t]
|
||||
fldpi
|
||||
fmul [_degrees]
|
||||
fdiv [float_180]
|
||||
fadd [eax+Turtle.Orientation]
|
||||
fstp [eax+Turtle.Orientation]
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc reposition _t, _x, _y
|
||||
mov eax, [_t]
|
||||
mov ecx, [_x]
|
||||
mov [eax+Turtle.PosX], ecx
|
||||
mov ecx, [_y]
|
||||
mov [eax+Turtle.PosY], ecx
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
; H = 0..360, S = 0..255, V = 0..255 --> R = 0..255, G = 0..255, B = 0..255
|
||||
proc hsv_to_rgb uses ebx, _h, _s, _v, _rgb
|
||||
locals
|
||||
.f dd ?
|
||||
.vs dd ?
|
||||
endl
|
||||
mov ebx, [_rgb]
|
||||
cmp [_s], 0
|
||||
jnz @f
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Red], al
|
||||
mov [ebx+RGB.Green], al
|
||||
mov [ebx+RGB.Blue], al
|
||||
jmp .end
|
||||
@@:
|
||||
cmp [_h], 360
|
||||
jnz @f
|
||||
mov [_h], 0
|
||||
@@:
|
||||
mov eax, [_v]
|
||||
mul [_s]
|
||||
mov [.vs], eax
|
||||
mov eax, [_h]
|
||||
mov ecx, 60
|
||||
xor edx, edx
|
||||
div ecx
|
||||
mov [.f], edx
|
||||
|
||||
test eax, eax
|
||||
jnz @f
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Red], al
|
||||
mov eax, 60
|
||||
sub eax, [.f]
|
||||
mul [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Green], dl
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Blue], dl
|
||||
jmp .end
|
||||
@@:
|
||||
cmp eax, 1
|
||||
jnz @f
|
||||
mov eax, [.vs]
|
||||
mul [.f]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Red], dl
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Green], al
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Blue], dl
|
||||
jmp .end
|
||||
@@:
|
||||
cmp eax, 2
|
||||
jnz @f
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Red], dl
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Green], al
|
||||
mov eax, 60
|
||||
sub eax, [.f]
|
||||
mul [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Blue], dl
|
||||
jmp .end
|
||||
@@:
|
||||
cmp eax, 3
|
||||
jnz @f
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Red], dl
|
||||
mov eax, [.vs]
|
||||
mul [.f]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Green], dl
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Blue], al
|
||||
jmp .end
|
||||
@@:
|
||||
cmp eax, 4
|
||||
jnz @f
|
||||
mov eax, 60
|
||||
sub eax, [.f]
|
||||
mul [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Red], dl
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Green], dl
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Blue], al
|
||||
jmp .end
|
||||
@@:
|
||||
cmp eax, 5
|
||||
jnz @f
|
||||
mov eax, [_v]
|
||||
mov [ebx+RGB.Red], al
|
||||
mov eax, [.vs]
|
||||
xor edx, edx
|
||||
div [dword_255]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Green], dl
|
||||
mov eax, [.vs]
|
||||
mul [.f]
|
||||
xor edx, edx
|
||||
div [dword_255_mul_60]
|
||||
mov edx, [_v]
|
||||
sub dl, al
|
||||
mov [ebx+RGB.Blue], dl
|
||||
@@:
|
||||
.end:
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc hue_shift _t, _n
|
||||
mov ecx, [_t]
|
||||
movzx eax, [ecx+Turtle.PenColor.Hue]
|
||||
add eax, [_n]
|
||||
xor edx, edx
|
||||
div [dword_360]
|
||||
mov [ecx+Turtle.PenColor.Hue], dx
|
||||
|
||||
movzx eax, [ecx+Turtle.PenColor.Hue]
|
||||
movzx edx, [ecx+Turtle.PenColor.Sat]
|
||||
movzx ecx, [ecx+Turtle.PenColor.Val]
|
||||
|
||||
stdcall hsv_to_rgb, eax, edx, ecx, color
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc query_perf
|
||||
locals
|
||||
.diff dd ?
|
||||
endl
|
||||
mcall 26, 9
|
||||
sub eax, [frame_start]
|
||||
mov [.diff], eax
|
||||
fild [.diff]
|
||||
fild [freq]
|
||||
fdivrp
|
||||
fstp [instant]
|
||||
mcall 26, 9
|
||||
mov [frame_start], eax
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc waiting
|
||||
fld [max_frame_rate]
|
||||
fld [instant]
|
||||
fcomip st1
|
||||
fstp st0
|
||||
jna @f
|
||||
inc [sleep_time]
|
||||
jmp .end
|
||||
@@:
|
||||
fld [min_frame_rate]
|
||||
fld [instant]
|
||||
fcomip st1
|
||||
fstp st0
|
||||
jnc .end
|
||||
cmp [sleep_time], 0
|
||||
jz .end
|
||||
dec [sleep_time]
|
||||
.end:
|
||||
mcall 5, [sleep_time]
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
proc drawing
|
||||
locals
|
||||
.i dd ?
|
||||
.n dd ?
|
||||
.posx dd ?
|
||||
.posy dd ?
|
||||
endl
|
||||
mov [turtle.Orientation], 0
|
||||
mov eax, [window_width]
|
||||
mov ecx, [window_height]
|
||||
shr eax, 1
|
||||
shr ecx, 1
|
||||
mov [.posx], eax
|
||||
mov [.posy], ecx
|
||||
fild [.posx]
|
||||
fstp [.posx]
|
||||
fild [.posy]
|
||||
fstp [.posy]
|
||||
stdcall reposition, turtle, [.posx], [.posy]
|
||||
mov [.n], 5.0
|
||||
mov eax, [window_height]
|
||||
imul eax, 15
|
||||
shr eax, 4
|
||||
mov ecx, eax
|
||||
xor edx, edx
|
||||
div [dword_360]
|
||||
neg edx
|
||||
add edx, ecx
|
||||
sub edx, 10
|
||||
mov [.i], edx
|
||||
@@:
|
||||
stdcall hue_shift, turtle, 1
|
||||
stdcall forward, turtle, [.n]
|
||||
stdcall turn, turtle, 72.5
|
||||
fld [.n]
|
||||
fadd [ndelta]
|
||||
fstp [.n]
|
||||
dec [.i]
|
||||
jnz @b
|
||||
ret
|
||||
endp
|
||||
|
||||
|
||||
start:
|
||||
cmp dword[params], '@ss'
|
||||
setz [screensaver]
|
||||
mov ebx, EVM_REDRAW + EVM_KEY
|
||||
cmovz ebx, EVM_REDRAW + EVM_KEY + EVM_MOUSE
|
||||
mcall 40
|
||||
|
||||
mov edi, transparent_cursor
|
||||
xor eax, eax
|
||||
mov ecx, 32*32
|
||||
rep stosd
|
||||
mcall 37, 4, transparent_cursor, 2
|
||||
mov ecx, eax
|
||||
mcall 37, 5
|
||||
|
||||
mcall 14
|
||||
add eax, 0x00010001
|
||||
movzx ecx, ax
|
||||
shr eax, 16
|
||||
mov [window_width], eax
|
||||
mov [window_height], ecx
|
||||
mcall 26, 9
|
||||
mov [frame_start], eax
|
||||
.still:
|
||||
mcall 11
|
||||
dec eax
|
||||
js .draw_spiral ; no event
|
||||
jnz .quit
|
||||
mcall 12, 1
|
||||
mcall 0, [window_width], [window_height], 0, 0x01000000
|
||||
mcall 12, 2
|
||||
.draw_spiral:
|
||||
cmp [screensaver], 0
|
||||
jz @f
|
||||
mcall 9, proc_info, -1
|
||||
cmp [proc_info.window_stack_position], ax
|
||||
jnz .quit
|
||||
@@:
|
||||
stdcall query_perf
|
||||
stdcall drawing
|
||||
stdcall waiting
|
||||
jmp .still
|
||||
.quit:
|
||||
cmp [screensaver], 0
|
||||
jz @f
|
||||
mcall 70, f70
|
||||
@@:
|
||||
mcall -1
|
||||
|
||||
|
||||
align 4
|
||||
dword_255_mul_60 dd 255 * 60
|
||||
dword_255 dd 255
|
||||
dword_360 dd 360
|
||||
float_180 dd 180.0
|
||||
ndelta dd 0.6 ; used in drawing Proc: n = n + ndelta
|
||||
max_frame_rate dd 15.0 ; to keep the FrameRate
|
||||
min_frame_rate dd 8.0 ; around min_frame_rate..max_frame_rate FPS
|
||||
|
||||
freq dd 100 ; GetTickCount return count of 1/100s of second
|
||||
instant dd 0.0
|
||||
sleep_time dd 0
|
||||
|
||||
turtle Turtle 0.0, 0.0, 0.0, <180, 255, 255>
|
||||
|
||||
f70: ; run
|
||||
dd 7, 0, 0, 0, 0
|
||||
db '/sys/@ss',0
|
||||
i_end:
|
||||
|
||||
align 4
|
||||
window_width dd ?
|
||||
window_height dd ?
|
||||
frame_start dd ?
|
||||
color dd ?
|
||||
|
||||
proc_info process_information
|
||||
params rb 0x400
|
||||
transparent_cursor rd 32*32
|
||||
screensaver db ?
|
||||
align 4
|
||||
rb 0x200
|
||||
e_end:
|
||||
Loading…
Reference in New Issue
Block a user