PureBasic Forums - English

Code: Select all

; Insures that given path is returned with the trailing directory #Slash
Procedure.s FixDirSlash(Path.s)
  If Right(Path.s, 1) <> #Slash: Path.s = Path.s + #Slash: EndIf
  ProcedureReturn Path.s
EndProcedure

Code: Select all

Procedure.s FixDirSlash(Path.s)
  ; Insures that given path is returned with the trailing directory #Slash
  If Right(Path.s, 1) <> #Slash: Path.s = Path.s + #Slash: EndIf
  ProcedureReturn Path.s
EndProcedure

Code: Select all

 
;-===== I SCRIPT SITE =====================================================
Procedure.i SCE_Site_New                         (*Me  .CSCE)
Procedure.i SCE_Site_QueryInterface              (*This.CSCE_SITE, *iid.IID, ...
Procedure.i SCE_Site_AddRef                      (*This.CSCE_SITE)
Procedure.i SCE_Site_Release                     (*This.CSCE_SITE)
Procedure.i SCE_Site_GetLCID                     (*This.CSCE_SITE, *LCID.Long)
Procedure.i SCE_Site_GetItemInfo                 (*This.CSCE_SITE, VbsName.s, ... Procedure.i SCE_Site_GetDocVersionString         (*This.CSCE_SITE, a)
Procedure.i SCE_Site_OnScriptTerminate           (*This.CSCE_SITE, a, b)
Procedure.i SCE_Site_OnStateChange               (*This.CSCE_SITE, a)
Procedure.i SCE_Site_OnScriptError               (*This.CSCE_SITE, ...
Procedure.i SCE_Site_OnEnterScript               (*This.CSCE_SITE)
Procedure.i SCE_Site_OnLeaveScript               (*This.CSCE_SITE)

Code: Select all

ProcedureDLL.i sgl_SetTextureFromImage (hTex, nImage)
; [DESC]
; Set the texture's texel data from the specified PB image.
;
; [INPUT]
; *Tex : A valid SGL texture.
; nImage : A valid PB image (24 or 32 bits).
;
; [RETURN]
; 1 if successful, else 0.
;
; [NOTES]
; The texture must be a new, empty texture just been created with sgl_CreateTexture().
; This command will set filtering, generate mipmaps and set anisotropic level based on the current SGL settings.
; After this command completes the SGL texture is ready to be bind to an OpenGL texture unit with sgl_SelectTexture().
;
; Generation of mipmaps it's a costly operation and so they can be generated only at this moment, when the image is converted to texels
; for the texture. If you want mipmaps for this texture be sure to have #sgl_Cap_Tex_MipMapping enabled before using this command.
; Also if you want the texture to be compressed enable the capability #sgl_Cap_Tex_Compression before using this.
;
; Filtering option can be instead changed at any moment setting the caps and calling sgl_UpdateTextureFiltering().
;
; If you want to replace the texel data with a completely new image destroy the texture with sgl_FreeTexture() and invoke 
; sgl_CreateTexture() again.
;
; If you just want to update the texel data with a compatible (same depth) image but having different size / content use the lighter
; sgl_UpdateTextureFromImage(). 
 
... code ...

EndProcedure