forked from KolibriOS/kolibrios
upload PlasmaEffect demo
git-svn-id: svn://kolibrios.org@7315 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
0CodErr
parent
a1a9148eb9
commit
8924de4eb3
24
programs/demos/PlasmaEffect/LScript.x
Normal file
24
programs/demos/PlasmaEffect/LScript.x
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
PATH_SIZE = 1024;
|
||||||
|
PARAMS_SIZE = 256;
|
||||||
|
STACK_SIZE = 1024;
|
||||||
|
|
||||||
|
SECTIONS
|
||||||
|
{
|
||||||
|
.all : AT(0){
|
||||||
|
LONG(0x554e454D);
|
||||||
|
LONG(0x31305445);
|
||||||
|
LONG(1);
|
||||||
|
LONG("@Main");
|
||||||
|
LONG(END);
|
||||||
|
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||||
|
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
|
||||||
|
LONG($END + PATH_SIZE);
|
||||||
|
LONG($END);
|
||||||
|
*(.text)
|
||||||
|
*(.rdata)
|
||||||
|
*(.data)
|
||||||
|
}
|
||||||
|
END = .;
|
||||||
|
.bss ALIGN(16) : {*(.bss)}
|
||||||
|
$END = .;
|
||||||
|
}
|
||||||
281
programs/demos/PlasmaEffect/PlasmaEffect.asm
Normal file
281
programs/demos/PlasmaEffect/PlasmaEffect.asm
Normal file
@ -0,0 +1,281 @@
|
|||||||
|
Comment *---------------------------+
|
||||||
|
| |
|
||||||
|
| Plasma Effect |
|
||||||
|
| |
|
||||||
|
+-----------------------------------*
|
||||||
|
.686
|
||||||
|
.Model Flat, StdCall
|
||||||
|
Option CaseMap: None
|
||||||
|
|
||||||
|
RepArg Macro Arg
|
||||||
|
Local NewStr
|
||||||
|
Quot SubStr <Arg>, 1, 1
|
||||||
|
IfIdn Quot, <">
|
||||||
|
.Data
|
||||||
|
NewStr db Arg,0
|
||||||
|
.Code
|
||||||
|
ExitM <ADDR NewStr>
|
||||||
|
Else
|
||||||
|
ExitM <Arg>
|
||||||
|
EndIf
|
||||||
|
EndM
|
||||||
|
|
||||||
|
@ Macro Function:Req, Args:VarArg
|
||||||
|
Arg equ <Invoke Function>
|
||||||
|
For Var, <Args>
|
||||||
|
Arg CatStr Arg, <, RepArg(Var)>
|
||||||
|
EndM
|
||||||
|
Arg
|
||||||
|
ExitM <eax>
|
||||||
|
EndM
|
||||||
|
|
||||||
|
Public @Main
|
||||||
|
|
||||||
|
; Event Constants
|
||||||
|
REDRAW_EVENT = 1
|
||||||
|
KEY_EVENT = 2
|
||||||
|
|
||||||
|
; Event Mask Constants
|
||||||
|
EM_REDRAW = 1
|
||||||
|
EM_KEY = 2
|
||||||
|
|
||||||
|
; Window styles
|
||||||
|
WS_FILL_TRANSPARENT = 40000000H
|
||||||
|
|
||||||
|
TSize Struct
|
||||||
|
SizeY Word ?
|
||||||
|
SizeX Word ?
|
||||||
|
TSize EndS
|
||||||
|
|
||||||
|
TRGBQuad Struct
|
||||||
|
Blue Byte ?
|
||||||
|
Green Byte ?
|
||||||
|
Red Byte ?
|
||||||
|
reserved Byte ?
|
||||||
|
TRGBQuad EndS
|
||||||
|
|
||||||
|
SetEventMask Proto EventMask:Dword
|
||||||
|
CheckEvent Proto
|
||||||
|
BeginDraw Proto
|
||||||
|
EndDraw Proto
|
||||||
|
GetScreenSize Proto
|
||||||
|
DrawWindow Proto Left:SDword, Top:SDword, Right:SDword, Bottom:SDword, Caption:Ptr, BackColor:Dword, Style:Dword, CapStyle:Dword
|
||||||
|
DrawImageEx Proto Image:Ptr, X:SDword, Y:SDword, XSize:Dword, YSize:Dword, BPP:Dword, Palette:Ptr, Padding:Dword
|
||||||
|
HeapCreate Proto
|
||||||
|
HeapAllocate Proto Bytes:Dword
|
||||||
|
GetTickCount Proto
|
||||||
|
Sleep Proto Time:Dword
|
||||||
|
ThreadTerminate Proto
|
||||||
|
|
||||||
|
.Const
|
||||||
|
Float_50 Real4 50.0 ; to keep the FrameRate
|
||||||
|
Float_40 Real4 40.0 ; around 40-50 FPS
|
||||||
|
; The table below can be calculated approximately as: SinTab[i] = Sin(2 * PI * i / 255) * 128 + 128
|
||||||
|
SinTab Label Byte
|
||||||
|
Byte 128, 131, 134, 137, 141, 144, 147, 150, 153, 156, 159, 162, 165, 168, 171, 174
|
||||||
|
Byte 177, 180, 183, 186, 189, 191, 194, 197, 199, 202, 205, 207, 209, 212, 214, 217
|
||||||
|
Byte 219, 221, 223, 225, 227, 229, 231, 233, 235, 236, 238, 240, 241, 243, 244, 245
|
||||||
|
Byte 246, 248, 249, 250, 251, 252, 252, 253, 254, 254, 255, 255, 255, 255, 255, 255
|
||||||
|
Byte 255, 255, 255, 255, 255, 255, 254, 254, 253, 253, 252, 251, 250, 249, 248, 247
|
||||||
|
Byte 246, 245, 243, 242, 240, 239, 237, 236, 234, 232, 230, 228, 226, 224, 222, 220
|
||||||
|
Byte 218, 215, 213, 211, 208, 206, 203, 201, 198, 195, 193, 190, 187, 184, 181, 179
|
||||||
|
Byte 176, 173, 170, 167, 164, 161, 158, 155, 152, 148, 145, 142, 139, 136, 133, 130
|
||||||
|
Byte 126, 123, 120, 117, 114, 111, 108, 104, 101, 98, 95, 92, 89, 86, 83, 80
|
||||||
|
Byte 77, 75, 72, 69, 66, 63, 61, 58, 55, 53, 50, 48, 45, 43, 41, 38
|
||||||
|
Byte 36, 34, 32, 30, 28, 26, 24, 22, 20, 19, 17, 16, 14, 13, 11, 10
|
||||||
|
Byte 9, 8, 7, 6, 5, 4, 3, 3, 2, 2, 1, 1, 0, 0, 0, 0
|
||||||
|
Byte 0, 0, 0, 1, 1, 1, 2, 2, 3, 4, 4, 5, 6, 7, 8, 10
|
||||||
|
Byte 11, 12, 13, 15, 16, 18, 20, 21, 23, 25, 27, 29, 31, 33, 35, 37
|
||||||
|
Byte 39, 42, 44, 47, 49, 51, 54, 57, 59, 62, 65, 67, 70, 73, 76, 79
|
||||||
|
Byte 82, 85, 88, 91, 94, 97, 100, 103, 106, 109, 112, 115, 119, 122, 125, 128
|
||||||
|
|
||||||
|
.Data
|
||||||
|
i1 Dword 50
|
||||||
|
j1 Dword 90
|
||||||
|
Freq Dword 100 ; // GetTickCount return count of 1/100s of second
|
||||||
|
Instant Real4 0.0
|
||||||
|
SleepTime Dword 0
|
||||||
|
|
||||||
|
.Data?
|
||||||
|
Screen TSize <>
|
||||||
|
i2 Dword ?
|
||||||
|
j2 Dword ?
|
||||||
|
Palette TRGBQuad 256 Dup (<>)
|
||||||
|
Image Dword ?
|
||||||
|
ImageWidth Dword ?
|
||||||
|
ImageHeight Dword ?
|
||||||
|
FrameStart Dword ?
|
||||||
|
|
||||||
|
.Code
|
||||||
|
CreatePalette Proc Uses ebx
|
||||||
|
Local i:Dword
|
||||||
|
Local Red:Dword, Green:Dword, Blue:Dword
|
||||||
|
mov i, 0
|
||||||
|
.Repeat
|
||||||
|
mov eax, i
|
||||||
|
.If eax <= 63
|
||||||
|
; do nothing
|
||||||
|
.ElseIf eax <= 127
|
||||||
|
neg eax
|
||||||
|
add eax, 127
|
||||||
|
.ElseIf eax <= 189
|
||||||
|
sub eax, 128
|
||||||
|
.ElseIf eax <= 255
|
||||||
|
neg eax
|
||||||
|
add eax, 255
|
||||||
|
.EndIf
|
||||||
|
|
||||||
|
mov Red, eax
|
||||||
|
mov Green, eax
|
||||||
|
mov Blue, eax
|
||||||
|
|
||||||
|
.If i <= 127
|
||||||
|
shl Green, 1
|
||||||
|
shl Blue, 2
|
||||||
|
.ElseIf i <= 255
|
||||||
|
shl Red, 2
|
||||||
|
shl Blue, 1
|
||||||
|
.EndIf
|
||||||
|
|
||||||
|
mov eax, Red ;
|
||||||
|
cmp eax, 255 ;
|
||||||
|
setna bl ; IF Red > 255 THEN bl = 255
|
||||||
|
dec bl ; ELSE bl = Red
|
||||||
|
or bl, al ;
|
||||||
|
|
||||||
|
mov eax, Green ;
|
||||||
|
cmp eax, 255 ;
|
||||||
|
setna cl ; IF Green > 255 THEN cl = 255
|
||||||
|
dec cl ; ELSE cl = Green
|
||||||
|
or cl, al ;
|
||||||
|
|
||||||
|
mov eax, Blue ;
|
||||||
|
cmp eax, 255 ;
|
||||||
|
setna dl ; IF Blue > 255 THEN dl = 255
|
||||||
|
dec dl ; ELSE dl = Blue
|
||||||
|
or dl, al ;
|
||||||
|
|
||||||
|
mov eax, i
|
||||||
|
mov Palette.Red[eax * SizeOf(Type(Palette))], bl
|
||||||
|
mov Palette.Green[eax * SizeOf(Type(Palette))], cl
|
||||||
|
mov Palette.Blue[eax * SizeOf(Type(Palette))], dl
|
||||||
|
|
||||||
|
inc i
|
||||||
|
.Until i > 255
|
||||||
|
ret
|
||||||
|
CreatePalette EndP
|
||||||
|
;*******************************************************************************
|
||||||
|
Render Proc
|
||||||
|
Local X:Dword, Y:Dword
|
||||||
|
Local Row:Ptr
|
||||||
|
dec i1
|
||||||
|
add j1, 2
|
||||||
|
|
||||||
|
mov Y, 0
|
||||||
|
Align 4
|
||||||
|
.Repeat
|
||||||
|
mov eax, Y
|
||||||
|
add eax, i1
|
||||||
|
and eax, 255
|
||||||
|
movzx eax, SinTab[eax]
|
||||||
|
mov i2, eax
|
||||||
|
|
||||||
|
mov eax, j1
|
||||||
|
and eax, 255
|
||||||
|
movzx eax, SinTab[eax]
|
||||||
|
mov j2, eax
|
||||||
|
|
||||||
|
mov eax, Y
|
||||||
|
mul ImageWidth
|
||||||
|
add eax, Image
|
||||||
|
mov Row, eax
|
||||||
|
|
||||||
|
mov X, 0
|
||||||
|
Align 4
|
||||||
|
.Repeat
|
||||||
|
mov eax, X
|
||||||
|
add eax, i2
|
||||||
|
and eax, 255
|
||||||
|
movzx ecx, SinTab[eax]
|
||||||
|
|
||||||
|
mov eax, Y
|
||||||
|
add eax, j2
|
||||||
|
and eax, 255
|
||||||
|
movzx eax, SinTab[eax]
|
||||||
|
add ecx, eax
|
||||||
|
|
||||||
|
mov eax, Row
|
||||||
|
add eax, X
|
||||||
|
mov [eax], cl
|
||||||
|
|
||||||
|
inc X
|
||||||
|
mov eax, ImageWidth
|
||||||
|
.Until eax == X
|
||||||
|
inc Y
|
||||||
|
mov eax, ImageHeight
|
||||||
|
.Until eax == Y
|
||||||
|
ret
|
||||||
|
Render EndP
|
||||||
|
;*******************************************************************************
|
||||||
|
QueryPerf Proc
|
||||||
|
Local Diff:Dword
|
||||||
|
Invoke GetTickCount
|
||||||
|
sub eax, FrameStart
|
||||||
|
mov Diff, eax
|
||||||
|
fild Diff
|
||||||
|
fild Freq
|
||||||
|
fdivrp
|
||||||
|
fstp Instant
|
||||||
|
mov FrameStart, @(GetTickCount)
|
||||||
|
ret
|
||||||
|
QueryPerf EndP
|
||||||
|
;*******************************************************************************
|
||||||
|
Waiting Proc
|
||||||
|
; Keep the FrameRate around 40-50 FPS
|
||||||
|
fld Float_50
|
||||||
|
fld Instant
|
||||||
|
fcomip st(0), st(1)
|
||||||
|
fstp st(0)
|
||||||
|
.If ABOVE?
|
||||||
|
inc SleepTime
|
||||||
|
.Else
|
||||||
|
fld Float_40
|
||||||
|
fld Instant
|
||||||
|
fcomip st(0), st(1)
|
||||||
|
fstp st(0)
|
||||||
|
.If BELOW? && (SleepTime != 0)
|
||||||
|
dec SleepTime
|
||||||
|
.EndIf
|
||||||
|
.EndIf
|
||||||
|
Invoke Sleep, SleepTime
|
||||||
|
ret
|
||||||
|
Waiting EndP
|
||||||
|
;*******************************************************************************
|
||||||
|
@Main:
|
||||||
|
Invoke HeapCreate
|
||||||
|
mov Screen, @(GetScreenSize)
|
||||||
|
Invoke CreatePalette
|
||||||
|
movzx eax, Screen.SizeX
|
||||||
|
movzx ecx, Screen.SizeY
|
||||||
|
mov ImageWidth, eax
|
||||||
|
mov ImageHeight, ecx
|
||||||
|
mul ecx
|
||||||
|
mov Image, @(HeapAllocate, eax)
|
||||||
|
mov FrameStart, @(GetTickCount)
|
||||||
|
Invoke SetEventMask, EM_REDRAW + EM_KEY
|
||||||
|
.Repeat
|
||||||
|
Invoke CheckEvent
|
||||||
|
.If eax == REDRAW_EVENT
|
||||||
|
Invoke BeginDraw
|
||||||
|
Invoke DrawWindow, 0, 0, ImageWidth, ImageHeight, 0, 0, WS_FILL_TRANSPARENT, 0
|
||||||
|
Invoke EndDraw
|
||||||
|
.ElseIf eax == KEY_EVENT
|
||||||
|
Invoke ThreadTerminate
|
||||||
|
.Else
|
||||||
|
Invoke Render
|
||||||
|
Invoke QueryPerf
|
||||||
|
Invoke DrawImageEx, Image, 0, 0, ImageWidth, ImageHeight, 8, Offset Palette, 0
|
||||||
|
Invoke Waiting
|
||||||
|
.EndIf
|
||||||
|
.Until 0
|
||||||
|
END
|
||||||
4
programs/demos/PlasmaEffect/Tupfile.lua
Normal file
4
programs/demos/PlasmaEffect/Tupfile.lua
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
if tup.getconfig('NO_JWASM') ~= "" or tup.getconfig("NO_GCC") ~= "" then return end
|
||||||
|
|
||||||
|
tup.rule({"PlasmaEffect.asm"}, "jwasm -zt0 -coff %f ", "PlasmaEffect.o")
|
||||||
|
tup.rule("PlasmaEffect.o", "kos32-ld -T LScript.x -o %o %f -L ../../../contrib/sdk/lib -l KolibriOS && kos32-objcopy %o -O binary -j .all" .. tup.getconfig("KPACK_CMD"),"PlasmaEffect")
|
||||||
6
programs/demos/PlasmaEffect/make.bat
Normal file
6
programs/demos/PlasmaEffect/make.bat
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
: %KolibriOS% - directory which contains KolibriOS.lib
|
||||||
|
uasm32 -zt0 -coff PlasmaEffect.asm
|
||||||
|
ld -T LScript.x PlasmaEffect.obj -o PlasmaEffect.kex -L %KolibriOS% -l KolibriOS
|
||||||
|
objcopy -O binary -j .all PlasmaEffect.kex
|
||||||
|
Del PlasmaEffect.obj
|
||||||
|
Pause
|
||||||
Loading…
Reference in New Issue
Block a user