Wierd Behaviour (Code Included) - GameCreators Forum

Author

Message

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 26th Mar 2019 01:26

Link

It could be that I'm overlooking something simple... but the code below has a weird behaviour when run, where instead of "Smooth" Scrolling through the Colour Palette Raster Bars., they do a little "Skip" at random intervals.
While it does smooth out (albeit not disappear) at Lower Update Commits., it would be good to have a second set of eyes to see if it's something that I'm overlooking that isn't related to the manual Buffer System... or if this is just inherent behaviour (say as a result of DirectX 9.0c / DBP U77) that will need to be resolved via a fix to the DBP Source Code.

//Set Display Mode 1920,1080,32
//Set Window Off
//Sync On  : Sync Rate 0
Disable Escapekey
Draw To Screen // Make Sure we're ONLY Drawing to the BackBuffer

Type BufferFormat
   Width, Height, Address, Pitch As Dword
EndType

Global Dim Buffer(1) As BufferFormat

Restore CLUT_DATA
Read SizeOf
Global Dim CLUT(SizeOf - 1) As Dword
For Index = 0 To SizeOf - 1
   Read CLUT(Index)
Next

Lock Backbuffer
   Buffer(0).Height  = Get Backbuffer Height()
   Buffer(0).Width   = Get Backbuffer Width()
   Buffer(0).Address = Get Backbuffer Ptr()
   Buffer(0).Pitch   = Get Backbuffer Pitch()
Unlock Backbuffer

Buffer(1).Height  = Buffer(0).Height
Buffer(1).Width   = Buffer(0).Width
Buffer(1).Pitch   = Buffer(1).Width * 4
SizeOf = Buffer(1).Width * Buffer(1).Height * 4
Buffer(1).Address = Make Memory(SizeOf)

Global PreviousTime, CurrentTime, DeltaTime, CountTime As Float
Global Count, CountHz As Float

ColourIndex = 5

Do
   //Cls 0x6B69D6
   
   // Timer Update
   TimeB = TimeA
   TimeA = Timer()
   Delta = Abs(TimeA - TimeB)
   
   // Counter Update
   Inc Count, Delta
   Inc CountHz, Delta
   
   // Update Colour Index every 0.5s
   If Count > (15 * 16.67)
      Count = 0
      Inc ColourIndex, 1
      //Inc Index 
      If ColourIndex > 15 Then ColourIndex = 0
      FnDrawRaster( CLUT(ColourIndex) )
   Endif
         
   // 60Hz Sync     
   If CountHz > 16.67
      FnDisplay( )
      CountHz = 0 
   EndIf
   
   RemStart
   Text 10, 10, Str$(Buffer(0).Width) + "x" + Str$(Buffer(0).Height)
   Text 10, 26, "@" + Str$(Buffer(0).Address) + " [" + Str$(Buffer(0).Pitch) + " Bytes]"
   Text 10, 40, Str$(Buffer(0).Width * 4)
   Text 10, 60, "DeltaTime: [" + Str$(DeltaTime) + "] CountTime: [" + Str$(CountTime) + "]" 
   Text 10, 72, "Index Count: " + Str$(Index)
   RemEnd
   
   //Sync 
   If Escapekey() Then Exit
Loop

// Clean-Up
Delete Memory Buffer(1).Address
Undim Buffer(0)
Undim CLUT(0)

End

Function FnDisplay( )
   Local AddressSrc, AddressDest As Dword
   
   AddressDest = Buffer(0).Address
   AddressSrc = Buffer(1).Address
   Lock Backbuffer
      For Y = 0 To Buffer(0).Height - 1
         For X = 0 To Buffer(0).Width - 1
            Inc AddressDest, 4
            Inc AddressSrc, 4
            *AddressDest = *AddressSrc
         Next X
      Next Y
   Unlock Backbuffer
   
Endfunction

Function FnDrawRaster( Colour As Dword )
   Local Address, Index As Dword
   
   For Check = 0 To 15
      If CLUT(Check) = Colour Then Index = Check
   Next
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         Inc Address, 4
         *Address = Colour
      Next X
      
      Inc YBand
      If YBand = Int(Buffer(1).Height / 32)
         Inc Index 
         If Index > 15 Then Index = 0
         Colour = CLUT(Index)
         YBand = 0 
      EndIf
   Next Y
   
Endfunction

CLUT_DATA:
Data 16, 0x000000, 0xFFFFFF, 0x883932, 0x67D6BD, 0x8B3F96, 0x55A049, 0x40318D, 0xBFCE72
Data     0x8B5429, 0x574200, 0xB86962, 0x505050, 0x787878, 0x94E089, 0x7869C4, 0x9F9F9F

+ Code Snippet

//Set Display Mode 1920,1080,32
//Set Window Off
//Sync On  : Sync Rate 0
Disable Escapekey
Draw To Screen // Make Sure we're ONLY Drawing to the BackBuffer

Type BufferFormat
   Width, Height, Address, Pitch As Dword
EndType

Global Dim Buffer(1) As BufferFormat

Restore CLUT_DATA
Read SizeOf
Global Dim CLUT(SizeOf - 1) As Dword
For Index = 0 To SizeOf - 1
   Read CLUT(Index)
Next

Lock Backbuffer
   Buffer(0).Height  = Get Backbuffer Height()
   Buffer(0).Width   = Get Backbuffer Width()
   Buffer(0).Address = Get Backbuffer Ptr()
   Buffer(0).Pitch   = Get Backbuffer Pitch()
Unlock Backbuffer

Buffer(1).Height  = Buffer(0).Height
Buffer(1).Width   = Buffer(0).Width
Buffer(1).Pitch   = Buffer(1).Width * 4
SizeOf = Buffer(1).Width * Buffer(1).Height * 4
Buffer(1).Address = Make Memory(SizeOf)

Global PreviousTime, CurrentTime, DeltaTime, CountTime As Float
Global Count, CountHz As Float

ColourIndex = 5

Do
   //Cls 0x6B69D6
   
   // Timer Update
   TimeB = TimeA
   TimeA = Timer()
   Delta = Abs(TimeA - TimeB)
   
   // Counter Update
   Inc Count, Delta
   Inc CountHz, Delta
   
   // Update Colour Index every 0.5s
   If Count > (15 * 16.67)
      Count = 0
      Inc ColourIndex, 1
      //Inc Index 
      If ColourIndex > 15 Then ColourIndex = 0
      FnDrawRaster( CLUT(ColourIndex) )
   Endif
         
   // 60Hz Sync     
   If CountHz > 16.67
      FnDisplay( )
      CountHz = 0 
   EndIf
   
   RemStart
   Text 10, 10, Str$(Buffer(0).Width) + "x" + Str$(Buffer(0).Height)
   Text 10, 26, "@" + Str$(Buffer(0).Address) + " [" + Str$(Buffer(0).Pitch) + " Bytes]"
   Text 10, 40, Str$(Buffer(0).Width * 4)
   Text 10, 60, "DeltaTime: [" + Str$(DeltaTime) + "] CountTime: [" + Str$(CountTime) + "]" 
   Text 10, 72, "Index Count: " + Str$(Index)
   RemEnd
   
   //Sync 
   If Escapekey() Then Exit
Loop

// Clean-Up
Delete Memory Buffer(1).Address
Undim Buffer(0)
Undim CLUT(0)

End

Function FnDisplay( )
   Local AddressSrc, AddressDest As Dword
   
   AddressDest = Buffer(0).Address
   AddressSrc = Buffer(1).Address
   Lock Backbuffer
      For Y = 0 To Buffer(0).Height - 1
         For X = 0 To Buffer(0).Width - 1
            Inc AddressDest, 4
            Inc AddressSrc, 4
            *AddressDest = *AddressSrc
         Next X
      Next Y
   Unlock Backbuffer
   
Endfunction

Function FnDrawRaster( Colour As Dword )
   Local Address, Index As Dword
   
   For Check = 0 To 15
      If CLUT(Check) = Colour Then Index = Check
   Next
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         Inc Address, 4
         *Address = Colour
      Next X
      
      Inc YBand
      If YBand = Int(Buffer(1).Height / 32)
         Inc Index 
         If Index > 15 Then Index = 0
         Colour = CLUT(Index)
         YBand = 0 
      EndIf
   Next Y
   
Endfunction

CLUT_DATA:
Data 16, 0x000000, 0xFFFFFF, 0x883932, 0x67D6BD, 0x8B3F96, 0x55A049, 0x40318D, 0xBFCE72
Data     0x8B5429, 0x574200, 0xB86962, 0x505050, 0x787878, 0x94E089, 0x7869C4, 0x9F9F9F

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 26th Mar 2019 04:10

Link

Alright, so I've expanded the example here with a set of 2D Drawing Commands
The Animated Circles perhaps better showcases the issue in the original Code

//Set Display Mode 1920,1080,32
//Set Window Off
//Sync On  : Sync Rate 0
Disable Escapekey
Draw To Screen // Make Sure we're ONLY Drawing to the BackBuffer

Type BufferFormat
   Width, Height, Address, Pitch As Dword
EndType

Global Dim Buffer(1) As BufferFormat

Restore CLUT_DATA
Read SizeOf
Global Dim CLUT(SizeOf - 1) As Dword
For Index = 0 To SizeOf - 1
   Read CLUT(Index)
Next

Lock Backbuffer
   Buffer(0).Height  = Get Backbuffer Height()
   Buffer(0).Width   = Get Backbuffer Width()
   Buffer(0).Address = Get Backbuffer Ptr()
   Buffer(0).Pitch   = Get Backbuffer Pitch()
Unlock Backbuffer

Buffer(1).Height  = Buffer(0).Height
Buffer(1).Width   = Buffer(0).Width
Buffer(1).Pitch   = Buffer(1).Width * 4
SizeOf = Buffer(1).Width * Buffer(1).Height * 4
Buffer(1).Address = Make Memory(SizeOf)

Global PreviousTime, CurrentTime, DeltaTime, CountTime As Float
Global Count, CountHz As Float

ColourIndex = 5

Do
   //Cls 0x6B69D6
   
   // Timer Update
   TimeB = TimeA
   TimeA = Timer()
   Delta = Abs(TimeA - TimeB)
   
   // Counter Update
   Inc Count, Delta
   Inc CountHz, Delta
   
   // Update Colour Index every 0.5s
   If Count > (2 * 16.67)
      FnClear( 0x6B69D6 )
      Count = 0
      
      //If ColourIndex = 5 Then ColourIndex = 13 Else ColourIndex = 5
      
      ColourIndex = 0
      For Y = 10 To 240 Step 10
         Inc ColourIndex, 1   
         If ColourIndex > 15 Then ColourIndex = 0
         FnLine( 10, Y, 320, Y + 40, CLUT(ColourIndex) )
      Next 
      
      FnBox( 320, 10, 480, 120, CLUT(6), 1 )
      FnBox( 320, 10, 480, 120, CLUT(7), 0 )
      
      // Manual Triangle
      FnLine( 154, 55,200,160, CLUT(0) )
      FnLine( 200,160, 95,180, CLUT(0) )
      FnLine(  95,180,154, 55, CLUT(0) ) 
      
      // Test Function
      FnTriangle( 300,160,350,250,250,250, CLUT(15) )
      
      // Test Circles
      FnCircle( 500, 300, 80, CLUT(10) )
      
      Inc AnimRadius1, 1
      If AnimRadius1 > 180 Then AnimRadius1 = 10
      FnCircle( 350, 240, AnimRadius1, CLUT(13) )
      
      Inc AnimRadius2, 2
      If AnimRadius2 > 180 Then AnimRadius2 = 10
      FnCircle( 350, 240, AnimRadius2, CLUT(13) )
      
      Inc AnimRadius3, 3
      If AnimRadius3 > 180 Then AnimRadius3 = 10
      FnCircle( 350, 240, AnimRadius3, CLUT(13) )
      //Inc ColourIndex, 1
      //Inc Index 
      //If ColourIndex > 15 Then ColourIndex = 0
      //FnDrawRaster( CLUT(ColourIndex) )
   Endif
         
   // 60Hz Sync     
   If CountHz > 16.67
      FnDisplay( )
      CountHz = 0 
   EndIf
   
   RemStart
   Text 10, 10, Str$(Buffer(0).Width) + "x" + Str$(Buffer(0).Height)
   Text 10, 26, "@" + Str$(Buffer(0).Address) + " [" + Str$(Buffer(0).Pitch) + " Bytes]"
   Text 10, 40, Str$(Buffer(0).Width * 4)
   Text 10, 60, "DeltaTime: [" + Str$(DeltaTime) + "] CountTime: [" + Str$(CountTime) + "]" 
   Text 10, 72, "Index Count: " + Str$(Index)
   RemEnd
   
   //Sync 
   If Escapekey() Then Exit
Loop

// Clean-Up
Delete Memory Buffer(1).Address
Undim Buffer(0)
Undim CLUT(0)

End

Function FnClear( Colour As Dword )
   Local Address As Dword
   Local X, Y As Integer
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         *Address = Colour
         Inc Address, 4
      Next
   Next
   
EndFunction

Function FnPlot( X As Dword , Y As Dword , Colour As Dword )
   Local Address As Dword
   
   Address = Buffer(1).Address + ((Y * Buffer(1).Pitch) + (X * 4))
   *Address = Colour
   
Endfunction

Function FnCircle( AX As Integer , AY As Integer , Radius As Integer , Colour As Dword )
   Local X, Y, Eval As Integer
   X = Radius
   
   While X >= Y
      FnPlot( AX + X, AY + Y, Colour )
      FnPlot( AX - X, AY + Y, Colour )
      FnPlot( AX + X, AY - Y, Colour )
      FnPlot( AX - X, AY - Y, Colour )
      FnPlot( AX + Y, AY + X, Colour )
      FnPlot( AX - Y, AY + X, Colour )
      FnPlot( AX + Y, AY - X, Colour )
      FnPlot( AX - Y, AY - X, Colour )
      Inc Y, 1
      If Eval <= 0
         Inc Eval, Y * 2 + 1
      Else
         Dec X, 1
         Inc Eval, (Y - X) * 2 + 1
      EndIf
   EndWhile
   
EndFunction

Function FnLineLow( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   Local X, Y, Yi, DeltaX, DeltaY, Delta As Integer
   DeltaX   = BX - AX
   DeltaY   = BY - AY
   Yi       = 1
   If DeltaY < 0
      Yi = -1
      DeltaY = -DeltaY
   EndIf
   Delta    = 2 * DeltaY - DeltaX
   Y        = AY
   
   For X = AX To BX
      FnPlot( X, Y, Colour )
      If Delta > 0
         Inc Y, Yi
         Dec Delta, (2 * DeltaX)
      EndIf
      Inc Delta, (2 * DeltaY)
   Next X
   
Endfunction

Function FnLineHigh( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   Local X, Y, Xi, DeltaX, DeltaY, Delta As Integer
   DeltaX   = BX - AX
   DeltaY   = BY - AY
   Xi       = 1
   If DeltaX < 0
      Xi = -1
      DeltaX = -DeltaX
   EndIf
   Delta    = 2 * DeltaX - DeltaY
   X        = AX
   
   For Y = AY To BY
      FnPlot( X, Y, Colour )
      If Delta > 0
         Inc X, Xi
         Dec Delta, (2 * DeltaY)
      EndIf
      Inc Delta, (2 * DeltaX)
   Next Y
   
Endfunction

Function FnLine( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot(AX, Y, Colour)
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, Colour )
         Else
            FnLineLow( AX, AY, BX, BY, Colour )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot(X, AY, Colour)   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, Colour )
         Else
            FnLineHigh( AX, AY, BX, BY, Colour )
         EndIf
      EndIf
   EndIf
      
EndFunction

Function FnBox( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword, Fill As Boolean )
   Local Y As Integer
   
   If Fill
      For Y = AY To BY
         FnLine( AX, Y, BX, Y, Colour )
      Next
   Else
      FnLine( AX, AY, BX, AY, Colour )
      FnLine( BX, AY, BX, BY, Colour )
      FnLine( BX, BY, AX, BY, Colour )
      FnLine( AX, BY, AX, AY, Colour )
   EndIf
   
EndFunction

Function FnTriangle( AX As Dword , AY As Dword , BX As Dword , BY As Dword , CX As Dword , CY As Dword , Colour As Dword )
   FnLine( AX, AY, BX, BY, Colour )
   FnLine( BX, BY, CX, CY, Colour )
   FnLine( CX, CY, AX, AY, Colour )
      
EndFunction

Function FnDisplay( )
   Local AddressSrc, AddressDest As Dword
   
   AddressDest = Buffer(0).Address
   AddressSrc = Buffer(1).Address
   Lock Backbuffer
      For Y = 0 To Buffer(0).Height - 1
         For X = 0 To Buffer(0).Width - 1
            *AddressDest = *AddressSrc
            Inc AddressDest, 4
            Inc AddressSrc, 4
         Next X
      Next Y
   Unlock Backbuffer
   
Endfunction

Function FnDrawRaster( Colour As Dword )
   Local Address, Index As Dword
   
   For Check = 0 To 15
      If CLUT(Check) = Colour Then Index = Check
   Next
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         *Address = Colour
         Inc Address, 4
      Next X
      
      Inc YBand
      If YBand = Int(Buffer(1).Height / 32)
         Inc Index 
         If Index > 15 Then Index = 0
         Colour = CLUT(Index)
         YBand = 0 
      EndIf
   Next Y
   
Endfunction

CLUT_DATA:
Data 16, 0x000000, 0xFFFFFF, 0x883932, 0x67D6BD, 0x8B3F96, 0x55A049, 0x40318D, 0xBFCE72
Data     0x8B5429, 0x574200, 0xB86962, 0x505050, 0x787878, 0x94E089, 0x7869C4, 0x9F9F9F

+ Code Snippet

//Set Display Mode 1920,1080,32
//Set Window Off
//Sync On  : Sync Rate 0
Disable Escapekey
Draw To Screen // Make Sure we're ONLY Drawing to the BackBuffer

Type BufferFormat
   Width, Height, Address, Pitch As Dword
EndType

Global Dim Buffer(1) As BufferFormat

Restore CLUT_DATA
Read SizeOf
Global Dim CLUT(SizeOf - 1) As Dword
For Index = 0 To SizeOf - 1
   Read CLUT(Index)
Next

Lock Backbuffer
   Buffer(0).Height  = Get Backbuffer Height()
   Buffer(0).Width   = Get Backbuffer Width()
   Buffer(0).Address = Get Backbuffer Ptr()
   Buffer(0).Pitch   = Get Backbuffer Pitch()
Unlock Backbuffer

Buffer(1).Height  = Buffer(0).Height
Buffer(1).Width   = Buffer(0).Width
Buffer(1).Pitch   = Buffer(1).Width * 4
SizeOf = Buffer(1).Width * Buffer(1).Height * 4
Buffer(1).Address = Make Memory(SizeOf)

Global PreviousTime, CurrentTime, DeltaTime, CountTime As Float
Global Count, CountHz As Float

ColourIndex = 5

Do
   //Cls 0x6B69D6
   
   // Timer Update
   TimeB = TimeA
   TimeA = Timer()
   Delta = Abs(TimeA - TimeB)
   
   // Counter Update
   Inc Count, Delta
   Inc CountHz, Delta
   
   // Update Colour Index every 0.5s
   If Count > (2 * 16.67)
      FnClear( 0x6B69D6 )
      Count = 0
      
      //If ColourIndex = 5 Then ColourIndex = 13 Else ColourIndex = 5
      
      ColourIndex = 0
      For Y = 10 To 240 Step 10
         Inc ColourIndex, 1   
         If ColourIndex > 15 Then ColourIndex = 0
         FnLine( 10, Y, 320, Y + 40, CLUT(ColourIndex) )
      Next 
      
      FnBox( 320, 10, 480, 120, CLUT(6), 1 )
      FnBox( 320, 10, 480, 120, CLUT(7), 0 )
      
      // Manual Triangle
      FnLine( 154, 55,200,160, CLUT(0) )
      FnLine( 200,160, 95,180, CLUT(0) )
      FnLine(  95,180,154, 55, CLUT(0) ) 
      
      // Test Function
      FnTriangle( 300,160,350,250,250,250, CLUT(15) )
      
      // Test Circles
      FnCircle( 500, 300, 80, CLUT(10) )
      
      Inc AnimRadius1, 1
      If AnimRadius1 > 180 Then AnimRadius1 = 10
      FnCircle( 350, 240, AnimRadius1, CLUT(13) )
      
      Inc AnimRadius2, 2
      If AnimRadius2 > 180 Then AnimRadius2 = 10
      FnCircle( 350, 240, AnimRadius2, CLUT(13) )
      
      Inc AnimRadius3, 3
      If AnimRadius3 > 180 Then AnimRadius3 = 10
      FnCircle( 350, 240, AnimRadius3, CLUT(13) )
      //Inc ColourIndex, 1
      //Inc Index 
      //If ColourIndex > 15 Then ColourIndex = 0
      //FnDrawRaster( CLUT(ColourIndex) )
   Endif
         
   // 60Hz Sync     
   If CountHz > 16.67
      FnDisplay( )
      CountHz = 0 
   EndIf
   
   RemStart
   Text 10, 10, Str$(Buffer(0).Width) + "x" + Str$(Buffer(0).Height)
   Text 10, 26, "@" + Str$(Buffer(0).Address) + " [" + Str$(Buffer(0).Pitch) + " Bytes]"
   Text 10, 40, Str$(Buffer(0).Width * 4)
   Text 10, 60, "DeltaTime: [" + Str$(DeltaTime) + "] CountTime: [" + Str$(CountTime) + "]" 
   Text 10, 72, "Index Count: " + Str$(Index)
   RemEnd
   
   //Sync 
   If Escapekey() Then Exit
Loop

// Clean-Up
Delete Memory Buffer(1).Address
Undim Buffer(0)
Undim CLUT(0)

End

Function FnClear( Colour As Dword )
   Local Address As Dword
   Local X, Y As Integer
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         *Address = Colour
         Inc Address, 4
      Next
   Next
   
EndFunction

Function FnPlot( X As Dword , Y As Dword , Colour As Dword )
   Local Address As Dword
   
   Address = Buffer(1).Address + ((Y * Buffer(1).Pitch) + (X * 4))
   *Address = Colour
   
Endfunction

Function FnCircle( AX As Integer , AY As Integer , Radius As Integer , Colour As Dword )
   Local X, Y, Eval As Integer
   X = Radius
   
   While X >= Y
      FnPlot( AX + X, AY + Y, Colour )
      FnPlot( AX - X, AY + Y, Colour )
      FnPlot( AX + X, AY - Y, Colour )
      FnPlot( AX - X, AY - Y, Colour )
      FnPlot( AX + Y, AY + X, Colour )
      FnPlot( AX - Y, AY + X, Colour )
      FnPlot( AX + Y, AY - X, Colour )
      FnPlot( AX - Y, AY - X, Colour )
      Inc Y, 1
      If Eval <= 0
         Inc Eval, Y * 2 + 1
      Else
         Dec X, 1
         Inc Eval, (Y - X) * 2 + 1
      EndIf
   EndWhile
   
EndFunction

Function FnLineLow( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   Local X, Y, Yi, DeltaX, DeltaY, Delta As Integer
   DeltaX   = BX - AX
   DeltaY   = BY - AY
   Yi       = 1
   If DeltaY < 0
      Yi = -1
      DeltaY = -DeltaY
   EndIf
   Delta    = 2 * DeltaY - DeltaX
   Y        = AY
   
   For X = AX To BX
      FnPlot( X, Y, Colour )
      If Delta > 0
         Inc Y, Yi
         Dec Delta, (2 * DeltaX)
      EndIf
      Inc Delta, (2 * DeltaY)
   Next X
   
Endfunction

Function FnLineHigh( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   Local X, Y, Xi, DeltaX, DeltaY, Delta As Integer
   DeltaX   = BX - AX
   DeltaY   = BY - AY
   Xi       = 1
   If DeltaX < 0
      Xi = -1
      DeltaX = -DeltaX
   EndIf
   Delta    = 2 * DeltaX - DeltaY
   X        = AX
   
   For Y = AY To BY
      FnPlot( X, Y, Colour )
      If Delta > 0
         Inc X, Xi
         Dec Delta, (2 * DeltaY)
      EndIf
      Inc Delta, (2 * DeltaX)
   Next Y
   
Endfunction

Function FnLine( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot(AX, Y, Colour)
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, Colour )
         Else
            FnLineLow( AX, AY, BX, BY, Colour )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot(X, AY, Colour)   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, Colour )
         Else
            FnLineHigh( AX, AY, BX, BY, Colour )
         EndIf
      EndIf
   EndIf
      
EndFunction

Function FnBox( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword, Fill As Boolean )
   Local Y As Integer
   
   If Fill
      For Y = AY To BY
         FnLine( AX, Y, BX, Y, Colour )
      Next
   Else
      FnLine( AX, AY, BX, AY, Colour )
      FnLine( BX, AY, BX, BY, Colour )
      FnLine( BX, BY, AX, BY, Colour )
      FnLine( AX, BY, AX, AY, Colour )
   EndIf
   
EndFunction

Function FnTriangle( AX As Dword , AY As Dword , BX As Dword , BY As Dword , CX As Dword , CY As Dword , Colour As Dword )
   FnLine( AX, AY, BX, BY, Colour )
   FnLine( BX, BY, CX, CY, Colour )
   FnLine( CX, CY, AX, AY, Colour )
      
EndFunction

Function FnDisplay( )
   Local AddressSrc, AddressDest As Dword
   
   AddressDest = Buffer(0).Address
   AddressSrc = Buffer(1).Address
   Lock Backbuffer
      For Y = 0 To Buffer(0).Height - 1
         For X = 0 To Buffer(0).Width - 1
            *AddressDest = *AddressSrc
            Inc AddressDest, 4
            Inc AddressSrc, 4
         Next X
      Next Y
   Unlock Backbuffer
   
Endfunction

Function FnDrawRaster( Colour As Dword )
   Local Address, Index As Dword
   
   For Check = 0 To 15
      If CLUT(Check) = Colour Then Index = Check
   Next
   
   Address = Buffer(1).Address
   For Y = 0 To Buffer(1).Height - 1
      For X = 0 To Buffer(1).Width - 1
         *Address = Colour
         Inc Address, 4
      Next X
      
      Inc YBand
      If YBand = Int(Buffer(1).Height / 32)
         Inc Index 
         If Index > 15 Then Index = 0
         Colour = CLUT(Index)
         YBand = 0 
      EndIf
   Next Y
   
Endfunction

CLUT_DATA:
Data 16, 0x000000, 0xFFFFFF, 0x883932, 0x67D6BD, 0x8B3F96, 0x55A049, 0x40318D, 0xBFCE72
Data     0x8B5429, 0x574200, 0xB86962, 0x505050, 0x787878, 0x94E089, 0x7869C4, 0x9F9F9F

Back to top

Profile PM Email Website

Derek Darkly

12

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 27th Mar 2019 00:05

Link

Sorry, I'm useless. The code won't compile for me. It highlights a blank line (243) right above this section:

If Fill
For Y = AY To BY
FnLine( AX, Y, BX, Y, Colour )
Next
Else
FnLine( AX, AY, BX, AY, Colour )
FnLine( BX, AY, BX, BY, Colour )
FnLine( BX, BY, AX, BY, Colour )
FnLine( AX, BY, AX, AY, Colour )
EndIf

I've never really used the Fill command, I assume it's M1Utils.
Maybe someone else can try. Are you using the synergy editor?

Send your parents to noisy sprite demo hell... enter the D-Zone

Back to top

Profile PM

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 27th Mar 2019 11:56

Link

You can grab a copy of the Clean Install (60MB Zip., 120MB Decompressed) … just update the compiler path to point to wherever you decompress it.
It's simply a built "as-is" from the GitHub Source on Visual Studio 2019. No Expansion Libraries (well beyond the TGC ones packaged with the GitHub Source.

The Project source is also provided, in the "Prototype" directory.
I think the Editor is Synergy., but not 100% sure on that... as I didn't really check, but I don't think I'm using any "Special" features of it; rather it's whatever the default options are, well except some colour highlight changes.
It could be that one of the Expansion Libraries you have doesn't like the Variable names being used.

Back to top

Profile PM Email Website

Derek Darkly

12

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 27th Mar 2019 18:46

Link

Hmm... I know this isn't really related to your problem, but I don't think FILL is a native DBP command, is it? Or at least I don't see it in the regular help files.

Since you're saying IF FILL..... what is FILL supposed to return as a value?

Send your parents to noisy sprite demo hell... enter the D-Zone

Back to top

Profile PM

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 27th Mar 2019 18:53

Link

Function FnBox( AX As Integer , AY As Integer , BX As Integer , BY As Integer , Colour As Dword, Fill As Boolean )
Local Y As Integer

If Fill
For Y = AY To BY
FnLine( AX, Y, BX, Y, Colour )
Next
Else
FnLine( AX, AY, BX, AY, Colour )
FnLine( BX, AY, BX, BY, Colour )
FnLine( BX, BY, AX, BY, Colour )
FnLine( AX, BY, AX, AY, Colour )
EndIf

EndFunction

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 29th Mar 2019 20:03

Link

Alright, so I feel like this just needs a fresh pair of eyes...
Was having an issue with "As" and Custom Types., so stripped it out in favour of DBC Compatible Code (aside from the Timer; which is easily replaced)
Also stripped out the BackBuffer approach (at least for now) to focus instead on the actual Draw Commands.

There are two issues I'm having with this particular code.
1) The Anti-Aliased Colours within certain Hues are "Off" … I'm probably just tired and missing something obvious
2) When you enable the Anti-Aliased Line Drawing., the Triangle has one of it's sides do something funky... it looks like it's being incorrectly flipping the X/Y but not sure... again a little tired after trying to work around some odd language behaviour

Anyway here's the code

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   Sync
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 255) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Int(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X
   
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   If Abs(DX#) < Abs(DY#)
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#   
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
   
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   
   // draw line
   For X = Int(IX1#) + 1 To Int(IX2#) - 1
      FnPlotB(X, Int(YF#), Colour, FnInvFracPart(YF#)) 
      FnPlotB(X, Int(YF#) + 1, Colour, FnFracPart(YF#))
      Inc YF#, GRAD#
   Next
      
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

+ Code Snippet

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   Sync
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 255) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Int(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X
   
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   If Abs(DX#) < Abs(DY#)
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#   
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
   
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   
   // draw line
   For X = Int(IX1#) + 1 To Int(IX2#) - 1
      FnPlotB(X, Int(YF#), Colour, FnInvFracPart(YF#)) 
      FnPlotB(X, Int(YF#) + 1, Colour, FnFracPart(YF#))
      Inc YF#, GRAD#
   Next
      
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

I think what I might do is create 2 SKU of the Codebase., one that's DBC Compatible and another that's DBP Compatible.
Not sure about AGK... we'll see.
What I'll likely do next, is combine both Line Routines., while also adding in a Bypass for Straight Lines (which can be highly optimised) into a Single "FnLine" Command then work on Circles / Semi-Circles … before then moving on to Space Filling Polygons as well as adapting the Colour Functions to support the Palette Colours that I originally intended.

Probably require some CLUT for "Nearest" Colour and such.

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 29th Mar 2019 22:29

Link

Well I feel like I'm taking 1 Step Forward and 2 Steps Back...

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)

FnLineAA(186,200,345,445,C)
         FnLineAA(345,445,60,376,C)
         FnLineAA(60,376,186,200,C)
         
         FnLineAA(440,230,555,410,C)
         FnLineAA(555,410,385,400,C)
         FnLineAA(385,400,440,230,C) 
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
         
         FnLine(186,200,345,445,C)
         FnLine(345,445,60,376,C)
         FnLine(60,376,186,200,C)
         
         FnLine(440,230,555,410,C)
         FnLine(555,410,385,400,C)
         FnLine(385,400,440,230,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      //R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   FastSync 1
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 0xFF) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Floor(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X#, STEEP
      
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   STEEP = Abs(DX#) < Abs(DY#)
   
   If STEEP
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#  
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
     
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   
   // draw line
   If STEEP
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(X#), Int(YF#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(X#), Int(YF#) + 1, Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   Else
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(YF#), Int(X#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(YF#) + 1, Int(X#), Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   EndIf
       
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

+ Code Snippet

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)

         FnLineAA(186,200,345,445,C)
         FnLineAA(345,445,60,376,C)
         FnLineAA(60,376,186,200,C)
         
         FnLineAA(440,230,555,410,C)
         FnLineAA(555,410,385,400,C)
         FnLineAA(385,400,440,230,C) 
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
         
         FnLine(186,200,345,445,C)
         FnLine(345,445,60,376,C)
         FnLine(60,376,186,200,C)
         
         FnLine(440,230,555,410,C)
         FnLine(555,410,385,400,C)
         FnLine(385,400,440,230,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      //R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   FastSync 1
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 0xFF) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Floor(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X#, STEEP
      
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   STEEP = Abs(DX#) < Abs(DY#)
   
   If STEEP
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#  
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
     
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   
   // draw line
   If STEEP
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(X#), Int(YF#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(X#), Int(YF#) + 1, Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   Else
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(YF#), Int(X#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(YF#) + 1, Int(X#), Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   EndIf
       
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

So, now regardless of the Line Angle it'll Render "Properly" … so the Triangles are remaining together BUT (and here's the Super-Special-Awesome element) they Edges seem like they're being offset by 33 Degrees CCW; while the Vertex Points are being Plotted correctly.
At first I just thought this was an issue with my implementation but actually I've been checking a few other Xu Line (Fast AA) implementations in different Languages and ALL of them are suffering from the same issue that my original code had., which actually is something that has me a bit baffled to be honest.

Now... I'm strictly speaking I think what I need to do is always ensure the Start X / Y are the Smallest Points (i.e. Closest to View Space 0,0) with a Flip depending on if the X or Y Axis is the Major Axis at Play., this way the Line Function is always Incrementing toward the End-Point.
As a note a Simple corrected to the previous post code, is to comment out the If Abs(DX) / Abs(DY) … EndIf., to prevent the Axis Swap; as this will render the Line Steps Correctly but just won't Render the Gradient between them.

This code does render the line correctly., it's just transposed from origin for all points.
I'll figure out what I'm doing wrong eventually but help would be appreciated.

Back to top

Profile PM Email Website

Raven

19

Years of Service

User Offline

Joined: 23rd Mar 2005

Location: Hertfordshire, England

Posted: 29th Mar 2019 23:03

Link

It's [i]almost[/I] working properly now... check out the screenshot (2 instances running side by side)
The only flaw are some of the Vertex are being Plotted at the Top of the Screen... trying to figure out what 'special case' is causing it to hack in a fix., but other than that... it works

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)

FnLineAA(186,200,345,445,C)
         FnLineAA(345,445,60,376,C)
         FnLineAA(60,376,186,200,C)
         
         FnLineAA(440,230,555,410,C)
         FnLineAA(555,410,385,400,C)
         FnLineAA(385,400,440,230,C) 
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
         
         FnLine(186,200,345,445,C)
         FnLine(345,445,60,376,C)
         FnLine(60,376,186,200,C)
         
         FnLine(440,230,555,410,C)
         FnLine(555,410,385,400,C)
         FnLine(385,400,440,230,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      //R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   FastSync 1
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 0xFF) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Floor(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X#, STEEP
      
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   STEEP = Abs(DX#) < Abs(DY#)
   
   If STEEP
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#  
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
     
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
   If Not STEEP
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   Else
      FnPlotB(Int(IY1#), Int(IX2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IY1#) + 1, Int(IX2#), Colour, FnFracPart(YEND#) * XGAP#)
   EndIf
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
   If Not STEEP
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   Else
      FnPlotB(Int(IY2#), Int(IX2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IY2#) + 1, Int(IX2#), Colour, FnFracPart(YEND#) * XGAP#)
   EndIf
   
   // draw line
   If Not STEEP 
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(X#), Int(YF#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(X#), Int(YF#) + 1, Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   Else
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(YF#), Int(X#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(YF#) + 1, Int(X#), Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   EndIf
       
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

+ Code Snippet

Sync On : Sync Rate 0
Disable Escapekey

Type TimerFormat
   _Prev As Dword
   _Next As Dword
   _Delta As Dword
   _Tock As Dword
   _Tick As Float
EndType

Global Clock As TimerFormat
Clock._Tick = 16

Global bAntiAlias As Boolean

Do
   Cls RGB(R,G,B)
   Ink (Not Point(0,0)), Point(0,0)
   
   C = Not Point(0,0)
   
   Lock Pixels
      If bAntiAlias <> Null
         AntiAlias$ = "True"
         FnLineAA(250,47,449,175,C)
         FnLineAA(449,175,203,306,C)
         FnLineAA(203,306,250,47,C)

         FnLineAA(186,200,345,445,C)
         FnLineAA(345,445,60,376,C)
         FnLineAA(60,376,186,200,C)
         
         FnLineAA(440,230,555,410,C)
         FnLineAA(555,410,385,400,C)
         FnLineAA(385,400,440,230,C) 
      Else
         AntiAlias$ = "False"
         FnLine(250,47,449,175,C)
         FnLine(449,175,203,306,C)
         FnLine(203,306,250,47,C)
         
         FnLine(186,200,345,445,C)
         FnLine(345,445,60,376,C)
         FnLine(60,376,186,200,C)
         
         FnLine(440,230,555,410,C)
         FnLine(555,410,385,400,C)
         FnLine(385,400,440,230,C)
      EndIf
   Unlock Pixels
   
   Clock._Prev = Clock._Next
   Clock._Next = Timer()
   Clock._Delta = Clock._Next - Clock._Prev
   Inc Clock._Tock, Clock._Delta
  
   If Clock._Tock > Clock._Tick
      Clock._Tock = 0
      Inc Frame, 1
   EndIf
   
   If Frame >= 60 
      //R = RND(255) : G = RND(255) : B = RND(255)
      Frame = 0
   EndIf
   
   If Scancode() = 57
      If bHeld = 0
         bAntiAlias = Not bAntiAlias
      EndIf
   EndIf
   
   Text 10, 10, "AntiAlias: " + AntiAlias$
   Text 10, 30, "RED: " + Str$(FnRed(Point(0,0))) + " Green: " + Str$(FnGreen(Point(0,0))) + " Blue: " + Str$(FnBlue(Point(0,0)))
   
   If Escapekey() Then Exit
   If Scancode() <> 0 Then bHeld = 1 Else bHeld = 0 
   
   FastSync 1
Loop

End

Function FnRed( C )
   C = (C && 0xFF0000) >> 16
EndFunction C

Function FnGreen( C )
   C = (C && 0x00FF00) >> 8
EndFunction C

Function FnBlue( C )
   C = (C && 0x0000FF)
EndFunction C

Function FnColour( R, G, B )
   Local C
   C = (R || (G << 8) || (B << 16))
EndFunction C

Function FnPlotB( X, Y, C, B# )
   Rem // Colour isn't correct for certain Hues, not sure why
   Local S, F#
   S = Point( X, Y )
   C = FnColour(FnRed(C) * B# + (S And 0xFF) * (1 - B#), FnGreen(C) * B# + (S >> 8 And 0xFF) * (1 - B#), FnBlue(C) * B# + (S >> 16 And 0xFF) * (1 - B#))
   Dot X, Y, C
EndFunction

Function FnPlot( X, Y, C )
   Dot X, Y, C
EndFunction

Function FnFracPart( X# )
   X# = X# - Floor(X#)
EndFunction X#

Function FnInvFracPart( X# )
   X# = 1.0 - FnFracPart(X#)
EndFunction X#

Function FnRound( X# )
   X# = Int(X# + 0.5)
EndFunction X#

Function FnLineAA( X1#, Y1#, X2#, Y2#, Colour )
   Local DX#, DY#, XEND#, YEND#, GRAD#, T#
   Local YF#, XGAP#, IX1#, IY1#, IX2#, IY2#
   Local X#, STEEP
      
   DX# = X2# - X1#
   DY# = Y2# - Y1#
   STEEP = Abs(DX#) < Abs(DY#)
   
   If STEEP
      T# = X1# : X1# = Y1# : Y1# = T#
      T# = X2# : X2# = Y2# : Y2# = T#
      T# = DX# : DX# = DY# : DY# = T#  
   EndIf
   
   If X2# < X1#
      T# = X1# : X1# = X2# : X2# = T#
      T# = Y1# : Y1# = Y2# : Y2# = T#
   EndIf
   
   GRAD# = DY# / DX#
     
   // first point
   XEND# = FnRound(X1#)
   YEND# = Y1# + GRAD# * (XEND# - X1#)
   XGAP# = FnInvFracPart(X1# + 0.5)
   IX1#  = XEND#
   IY1#  = Int(YEND#)
   If Not STEEP
      FnPlotB(Int(IX1#), Int(IY1#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX1#), Int(IY1#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   Else
      FnPlotB(Int(IY1#), Int(IX2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IY1#) + 1, Int(IX2#), Colour, FnFracPart(YEND#) * XGAP#)
   EndIf
   YF# = YEND# + GRAD#
     
   // end point
   XEND# = FnRound(X2#)
   YEND# = Y2# + GRAD# * (XEND# - X2#)
   XGAP# = FnFracPart(X2# + 0.5)
   IX2#  = XEND#
   IY2#  = Int(YEND#)
   If Not STEEP
      FnPlotB(Int(IX2#), Int(IY2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IX2#), Int(IY2#) + 1, Colour, FnFracPart(YEND#) * XGAP#)
   Else
      FnPlotB(Int(IY2#), Int(IX2#), Colour, FnInvFracPart(YEND#) * XGAP#)
      FnPlotB(Int(IY2#) + 1, Int(IX2#), Colour, FnFracPart(YEND#) * XGAP#)
   EndIf
   
   // draw line
   If Not STEEP 
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(X#), Int(YF#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(X#), Int(YF#) + 1, Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   Else
      For X# = IX1# + 1 To IX2# - 1
         FnPlotB(Int(YF#), Int(X#), Colour, FnInvFracPart(YF#)) 
         FnPlotB(Int(YF#) + 1, Int(X#), Colour, FnFracPart(YF#))
         YF# = YF# + GRAD#
      Next
   EndIf
       
EndFunction

Function FnLineLow( AX, AY, BX, BY, C )
   Local X, Y, YI, DX, DY, D
   
   DX = BX - AX
   DY = BY - AY
   YI = 1
   If DY < 0
      YI = -1
      DY = -DY
   EndIf
   D = 2 * DY - DX
   Y = AY
    
   For X = AX To BX
      FnPlot( X, Y, C )
      If D > 0
         Inc Y, YI
         Dec D, (2 * DX)
      EndIf
      Inc D, (2 * DY)
   Next X
    
EndFunction
 
Function FnLineHigh( AX, AY, BX, BY, C )
   Local X, Y, XI, DX, DY, D As Integer
   DX = BX - AX
   DY = BY - AY
   XI = 1
   If DX < 0
      XI = -1
      DX = -DX
   EndIf
   D = 2 * DX - DY
   X = AX
    
   For Y = AY To BY
      FnPlot( X, Y, C )
      If D > 0
         Inc X, XI
         Dec D, (2 * DY)
      EndIf
      Inc D, (2 * DX)
   Next Y
    
EndFunction
 
Function FnLine( AX, AY, BX, BY, C )
   If Abs(BY - AY) < Abs(BX - AX)
      If AX = BX
         For Y = AY To BY
            FnPlot( AX, Y, C )
         Next
      Else
         If AX > BX
            FnLineLow( BX, BY, AX, AY, C )
         Else
            FnLineLow( AX, AY, BX, BY, C )
         EndIf
      EndIf
   Else
      If AY = BY
         For X = AX To BX
            FnPlot( X, AY, C )   
         Next
      Else
         If AY > BY
            FnLineHigh( BX, BY, AX, AY, C )
         Else
            FnLineHigh( AX, AY, BX, BY, C )
         EndIf
      EndIf
   EndIf
       
EndFunction

Next step is to handle a Fill Routine (for the Shape Areas) … this will be for handling Polygon (Triangle / Quad) Rendering.
Oh., and I still need to sort out the Colour Displacement with the Anti-Aliased Edges but the code is still in there (just need to uncomment) to cycle through a Foreground and a Negative Background., it's a crass approach but eh, was just for testing purposes.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Wierd Behaviour (Code Included)

Attachments