Search found 1221 matches

by dafhi
Dec 20, 2010 12:20
Forum: General
Topic: How to write to screen.... in a FASTER way?
Replies: 11
Views: 1444

I just visualized exactly what this sub is for .. magnification. I'll share some tidbits I've found over the years. There's a commercial basic, and online documentation at their website (a long time ago) mentioned that its own compiler was designed to put inner-most nested veriables into CPU registe...
by dafhi
Dec 20, 2010 10:47
Forum: General
Topic: How to write to screen.... in a FASTER way?
Replies: 11
Views: 1444

hey Fox! Dim SHARED AS UBYTE ScaleStepX, ScaleStepY Dim Shared As UInteger GWxGSF, GraphicScaleFactorM ' ... ' ... ' ... Sub RefreshScreen() Dim As UInteger PTR sPtr32 = Screenptr DIM As UInteger x, y Dim As UINTEGER a, b, c DetectScreenChanges() IF (LcdModifiedFirstY < 255) ...
by dafhi
Sep 25, 2010 23:12
Forum: Tips and Tricks
Topic: ASM Mul and Div
Replies: 1
Views: 2264

ASM Mul and Div

[2013 Sept 9] - Div code sample updated per MichaelW's correction. Div and Mul are often confusing for the ASM newb. I developed these two samples to unconfuse. '-----------------' ' ASM DIV EXAMPLE '-----------------' Dim As UInteger Numerator, Denominator, edx_, eax_ Numerator = 1003 Denominator =...
by dafhi
Sep 24, 2010 4:18
Forum: Tips and Tricks
Topic: Very simple random generator (VERY simple).
Replies: 4
Views: 1290

Thor, I applied your technique in one of my graphics projects with spectacular results Benchmark update: This appears to be at least 2% faster than Rnd!!! Dim Shared As UInteger t_rng_z, t_rng_d #Macro tRNG( g_, multiplier_ ) Asm mov ecx, [t_rng_z] mov eax, [t_rng_d] rol eax,7 Add eax,ecx mo...
by dafhi
Sep 23, 2010 13:42
Forum: Tips and Tricks
Topic: particle system
Replies: 3
Views: 898

in-code comment added. thanks
by dafhi
Sep 23, 2010 13:36
Forum: General
Topic: Squares
Replies: 6210
Views: 352744

I have a shelved interest in compression. Albert, looks like you are taking a similar approach to what I was thinking
by dafhi
Sep 22, 2010 14:25
Forum: Tips and Tricks
Topic: particle system
Replies: 3
Views: 898

particle system

#include "fbgfx.bi" '#Include "ArrayedLL_Handler.bi" '=================-------------------------------------===+ ' ArrayedLL_Handler.bi | Author: cRex Sept 22 - 20100922 ' ' Release 0.01 beta ' '========----------------------------------------=+=======+ ' Description: Linked Lis...
by dafhi
Sep 15, 2010 14:08
Forum: Libraries
Topic: [RESOLVED] resizable window
Replies: 2
Views: 987

thanks rollie. I changed the subject to reflect what I really mean. I've seen your work though. Great stuff
by dafhi
Sep 15, 2010 13:09
Forum: Libraries
Topic: [RESOLVED] resizable window
Replies: 2
Views: 987

[RESOLVED] resizable window

anybody have an example of how to do this? I'm looking for one with a buffer all set up, and an animation loop running I think I'd prefer SDL, but open to suggestions == UPDATE: The solution I was hoping for '' '' SDL pixel ploting example '' #include "SDL\SDL.bi" Dim Shared As Integer WIN...
by dafhi
Nov 10, 2005 3:11
Forum: Tips and Tricks
Topic: Starcontrol like melee AI aiming
Replies: 5
Views: 2971

ship control feels great! the bullet looks like it follows a curved path when you're watching your ship
by dafhi
Nov 01, 2005 6:45
Forum: Tips and Tricks
Topic: ShowBits64
Replies: 8
Views: 3881

asm (updated) was the only way i knew how to do this problem. also made this one based on counting_pine and Sisophon's input. for my own personal use i've kept the nice short one by mjs. thanks guys. Sub ShowBits_FAST( byval value as integer ) dim as uinteger I, J, strPos, bitPos, AryFG(...
by dafhi
Oct 31, 2005 13:09
Forum: Tips and Tricks
Topic: ShowBits64
Replies: 8
Views: 3881

ShowBits64

ShowBits64 Sub ShowBits32( p as any ptr, Newline As boolean = true) '' init gfx or u will see wrong color '' use ScreenRes x,y, 32 Dim As ulong I, AryFG(3), AryBG(3) var oldcol = color() AryFG(0) = RGB(200,200,200) AryFG(1) = RGB(255,0,0) AryFG(2) = RGB(0,255,0) AryFG(3) = RGB(0,96,255) AryBG(0) = R...
by dafhi
Jun 17, 2005 14:01
Forum: Windows
Topic: 90 megs of libs
Replies: 4
Views: 3485

weird. i must have installed too many times.
by dafhi
Jun 17, 2005 7:01
Forum: Windows
Topic: 90 megs of libs
Replies: 4
Views: 3485

90 megs of libs

is all that hard drive space for 'look up tables' really necessary?
by dafhi
Jun 13, 2005 11:49
Forum: Beginners
Topic: TinyPTC
Replies: 10
Views: 5166

This is what ByRef does:

Code: Select all

Dim Shared mMyInt = 0 'access var everywhere within document

Sub mMyInt_Add2(ByRef pInt)
  pInt = pInt + 1     'I prefix parameter names with a "p"
  mMyInt = mMyInt + 1
End Sub

mMyInt_Add2 mMyInt
Print mMyInt

Sleep

Go to advanced search