forked from KolibriOS/kolibrios
281 lines
7.0 KiB
NASM
281 lines
7.0 KiB
NASM
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 !CARRY? && !ZERO?
|
|
inc SleepTime
|
|
.Else
|
|
fld Float_40
|
|
fld Instant
|
|
fcomip st(0), st(1)
|
|
fstp st(0)
|
|
.If CARRY? && (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 |