Version 5.01 of the TypeLib Browser released
Started by Patrice Terrier, October 09, 2008, 10:52:50 PM
0 Members and 1 Guest are viewing this topic.
DIM LightAmbient(3) AS SINGLE: ARRAY ASSIGN LightAmbient() = 0.05, 0.05, 0.05, 1.0 DIM LightDiffuse(3) AS SINGLE: ARRAY ASSIGN LightDiffuse() = 1.0, 1.0, 1.0, 1.0 DIM LightPosition(3) AS SINGLE: ARRAY ASSIGN LightPosition() = -0.20, 0.20, 0.20, 0.7 CALL glLightfv(%GL_LIGHT0, %GL_AMBIENT, LightAmbient(0)) ' Setup The Ambient Light CALL glLightfv(%GL_LIGHT0, %GL_DIFFUSE, LightDiffuse(0)) ' Setup The Diffuse Light CALL glLightfv(%GL_LIGHT0, %GL_POSITION, LightPosition(0)) ' Position The Light CALL glEnable(%GL_LIGHT0) ' Enable Light ZERO CALL glEnable(%GL_LIGHTING) ' Enable Lighting CALL glEnable(%GL_COLOR_MATERIAL) ' Enable Coloring Of Material
FOR P = (nWidth * nHeight) TO 1 STEP - 1 @pBits = A? @pBits = R? @pBits = G? @pBits = B? pBits = pBits + 4 NEXT
Quote from: Patrice Terrier on October 12, 2008, 09:00:43 PMYes, pBits is a pointer of byte.See also my zColorARGB API, and PowerBASIC Poke and Poke$.I thought you were moving from Pascal to PB ...
Quotei will show how work the Skin in Delphi
Quote from: Patrice Terrier on October 13, 2008, 09:30:48 AMQuotei will show how work the Skin in DelphiMy code is compatible with any 32-bit compiler and even managed languages, as long as you keep using the low level FLAT API to preserve the portability.
Quote from: Patrice Terrier on October 13, 2008, 05:13:28 PMHere is a new texture to replace the default boing.png.(Better to save the original in case ou don't like it).
Quote from: Patrice Terrier on October 14, 2008, 05:32:03 PMHere are a few new textures to replace the default boing.png.
QuotePlease which grafik Application your use ?
Page created in 0.140 seconds with 21 queries.