kolibrios/programs/demos/PlasmaEffect/PlasmaEffect.asm

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