Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
My TinyPTC Extension Library (WARNING: LARGE IMAGES)
#27
Routines completed as of right now:
Code:
'get an image array
Declare Sub PTC_Get(startX As Integer, startY As Integer, destX As Integer, destY As Integer, buffer() As Integer, offset As Integer)
'fastest blit; directly blits a sprite with no special features
Declare Sub PTC_Put (x As Integer, y As Integer, buffer() As Integer, offset As Integer)
'bllits a sprite using a unified colour mask
Declare Sub PTC_TPut (x As Integer, y As Integer, buffer() As Integer, transcolor As Integer, offset As Integer)
'blits a scaled sprite without colour masking
Declare Sub PTC_SPut (x As Integer, y As Integer, xs As Double, ys As Double, buffer() As Integer, offset As Integer)
'blits a scaled alpha blended sprite without colour masking
Declare Sub PTC_SAPut (x As Integer, y As Integer, xs As Double, ys As Double, buffer() As Integer, offset As Integer, alpha As Double)
'clears the buffer and optionally the screen as well
Declare Sub PTC_ClsX(update As Integer)
'plot a pixel
Declare Sub PTC_Pset(x As Integer, y As Integer, red As Integer, green As Integer, blue As Integer)
'plot an alpha pixel
Declare Sub PTC_APset(x As Integer, y As Integer, red As Integer, green As Integer, blue As Integer, alpha As Double)
'plot a pixel using a unified colour
Declare Sub PTC_RawPset(x As Integer, y As Integer, colour As Integer)
'plot an alpha pixel using a unified colour
Declare Sub PTC_RawAPset(x As Integer, y As Integer, colour As Integer, alpha As Double)
'draw a line using a unified colour
Declare Sub PTC_DrawLine (startX As Integer, startY As Integer, endX As Integer, endY As Integer, colour As Integer)
'draw an alpha line using a unified colour
Declare Sub PTC_DrawAlphaLine (startX As Integer, startY As Integer, endX As Integer, endY As Integer, colour As Integer, alpha As Double)
'draw an ellipse using a unified colour
Declare Sub PTC_DrawEllipse (x As Integer, y As Integer, xr As Integer, yr As Integer, colour As Integer)
'draw an alpha ellipse using a unified colour
Declare Sub PTC_DrawAlphaEllipse (x As Integer, y As Integer, xr As Integer, yr As Integer, colour As Integer, alpha As Double)
'draw an empty box using a unified colour
Declare Sub PTC_DrawBox(startX As Integer, startY As Integer, destX As Integer, destY As Integer, colour As Integer)
'draw a filled box using two unified colours
Declare Sub PTC_DrawFilledBox(startX As Integer, startY As Integer, destX As Integer, destY As Integer, colour As Integer, fillcolour As Integer)
'draw a filled box using two unified colours and using alpha blending on the fill
Declare Sub PTC_DrawFilledAlphaBox(startX As Integer, startY As Integer, destX As Integer, destY As Integer, colour As Integer, fillcolour As Integer, alpha As Double)
'load a 16x16 sized bitmapped character font from a bmp file
Declare Sub PTC_LoadBitmappedFont(filetoopen As String, fontbuffer() As Integer)
'show text in the buffer
Declare Sub PTC_ShowText(textstring As String, x As Integer, y As Integer, transcol As Integer, fontbuffer() As Integer)
'return a unified colour from r g b components
Declare Function PTC_ReturnRGB(red As Integer, green As Integer, blue As Integer) As Integer
'import a bmp to the buffer
Declare Function PTC_ImportBMP(filetoopen As String, offsetX As Integer, offsetY As Integer) As Integer
'import a bmp to the buffer but alpha blend it over anything that's already there
Declare Function PTC_ImportABMP(filetoopen As String, offsetX As Integer, offsetY As Integer, alpha As Double) As Integer
More to come.
I'd knock on wood, but my desk is particle board.
Reply


Messages In This Thread
My TinyPTC Extension Library (WARNING: LARGE IMAGES) - by adosorken - 12-08-2004, 12:34 AM
Request... - by Ryan - 12-27-2004, 05:41 AM
Re: Request... - by Dr_Davenstein - 12-29-2004, 03:45 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)