tbgl_Box and the color

[zak]

Hi Petr , Hi all
in the NeHe Lesson 05 by matthew in his message:
http://community.thinbasic.com/index.php?topic=677.0
there is a cube defined by 4*6 = 24 TBGL_Vertex in addition to the color definition for every cube face
but you have a tbgl_Box function, which is great in making drawing quadrics easier, is there any way to color the faces of the cube defined by tbgl_Box but every face in a different color ?
below is a stripped down example from the matthew code, the cube color is blue.
[code=thinbasic]
uses "TBGL" ' thinBASIC OpenGL Library

' Declare Variables here
dim rquad as single ' Quad Rotation
dim frameRate as double ' Timing Variable


' Create Display, Return Handle.
dim hWnd as dword
dim bits as long

hWnd = tbgl_createwindowex(" - Press 'Esc' to Quit", 640, 480, bits, %TBGL_WS_WINDOWED)

tbgl_showwindow ' Show Display

TBGL_ResetKeyState() ' Reset all Keys

' Start Main Loop
while tbgl_iswindow(hWnd)

frameRate = tbgl_getframerate
tbgl_clearframe ' Clear Display

tbgl_camera 0,0,1,0,0,0 ' Default Camera, View From 0,0,1 To 0,0,0.
TBGL_Translate 0.0, 0.0, -7.0 ' Move Right 1.5 Units, Into the Screen 7 Units.
TBGL_Rotate rquad, 1.0, 1.0, 1.0 ' X,Y & Z Axis Rotations.
TBGL_Color 0, 0, 255 ' Blue
tbgl_Box 2, 2, 2

rquad -= ( 27.0 / frameRate ) ' Increase Quad Rotation

tbgl_drawframe ' Display anything

if tbgl_getWindowkeystate(hWnd, %VK_ESCAPE) then exit while

wend

tbgl_destroywindow ' Closes Display[/code]

[Petr Schreiber]

Hi Zak,

interesting idea.

The thing is I thought in most cases I always used single colored box, that's what TBGL_box is defined how it is.

Here is function in TBGL which will do what you need ( I hope ) for you.
- colors are defined as RGB in array of 6 items
- superBox function takes width, height, length + array of colors as parameter

For optimal performance you could consider making it a display list first.

[code=thinbasic]
uses "TBGL" ' thinBASIC OpenGL Library

' Declare Variables here
dim rquad as single ' Quad Rotation
dim frameRate as double ' Timing Variable

' Create Display, Return Handle.
dim hWnd as dword
dim bits as long = 32

hWnd = tbgl_createwindowex(" - Press 'Esc' to Quit", 640, 480, bits, %TBGL_WS_WINDOWED)
tbgl_showwindow ' Show Display

' -- color definition
TYPE SuperBox_RGB
R AS BYTE
G AS BYTE
B AS BYTE
END TYPE

' -- auxiliary names
begin const
%top = 1
%bottom
%front
%back
%left
%right
end const

' -- Array of colors
Dim CustomColor(6) as SuperBox_RGB

with CustomColor(%top)
.R = 255
.G = 255
.B = 255
end with

with CustomColor(%bottom)
.R = 255
.G = 255
.B = 0
end with

with CustomColor(%front)
.R = 255
.G = 0
.B = 0
end with

with CustomColor(%back)
.R = 0
.G = 255
.B = 255
end with

with CustomColor(%left)
.R = 0
.G = 0
.B = 255
end with

with CustomColor(%right)
.R = 255
.G = 0
.B = 255
end with

TBGL_ResetKeyState() ' Reset all Keys

' Start Main Loop
while tbgl_iswindow(hWnd)

frameRate = tbgl_getframerate
tbgl_clearframe ' Clear Display

tbgl_camera 0,0,1,0,0,0 ' Default Camera, View From 0,0,1 To 0,0,0.
TBGL_Translate 0.0, 0.0, -7.0 ' Move Right 1.5 Units, Into the Screen 7 Units.
TBGL_Rotate rquad, 1.0, 1.0, 1.0 ' X,Y & Z Axis Rotations.

' -- Super box takes dimnesions and color array as parameters
SuperBox 2, 2, 2, CustomColor

rquad -= ( 27.0 / frameRate ) ' Increase Quad Rotation

tbgl_drawframe ' Display anything

if tbgl_getWindowkeystate(hWnd, %VK_ESCAPE) then exit while

wend

tbgl_destroywindow ' Closes Display

' ------------------
' SuperBox procedure
' ------------------

SUB SuperBox(a as single, b as single , c as single, Colors() as SuperBox_RGB )
TBGL_BeginPoly %GL_QUADS
' Top Quad
TBGL_Color Colors(1).R, Colors(1).G, Colors(1).B
TBGL_Vertex a, b, -c ' Top Right
TBGL_Vertex -a, b, -c ' Top Left
TBGL_Vertex -a, b, c ' Bottom Left
TBGL_Vertex a, b, c ' Bottom Right

' Bottom Quad
TBGL_Color Colors(2).R, Colors(2).G, Colors(2).B
TBGL_Vertex a, -b, c ' Top Right
TBGL_Vertex -a, -b, c ' Top left
TBGL_Vertex -a, -b, -c ' Bottom Left
TBGL_Vertex a, -b, -c ' Bottom Right

' Front Quad
TBGL_Color Colors(3).R, Colors(3).G, Colors(3).B
TBGL_Vertex a, b, c ' Top Right
TBGL_Vertex -a, b, c ' Top Left
TBGL_Vertex -a, -b, c ' Bottom Left
TBGL_Vertex a, -b, c ' Bottom Right

' Back Quad
TBGL_Color Colors(4).R, Colors(4).G, Colors(4).B
TBGL_Vertex a, -b, -c ' Bottom Left
TBGL_Vertex -a, -b, -c ' Bottom Right
TBGL_Vertex -a, b, -c ' Top Right
TBGL_Vertex a, b, -c ' Top Left

' Left Quad
TBGL_Color Colors(5).R, Colors(5).G, Colors(5).B
TBGL_Vertex -a, b, -c ' Top Right
TBGL_Vertex -a, -b, -c ' Top Left
TBGL_Vertex -a, -b, c ' Bottom Left
TBGL_Vertex -a, b, c ' Bottom Right

' Right Quad
TBGL_Color Colors(6).R, Colors(6).G, Colors(6).B
TBGL_Vertex a, b, -c ' Top Right
TBGL_Vertex a, b, c ' Top Left
TBGL_Vertex a, -b, c ' Bottom Left
TBGL_Vertex a, -b, -c ' Bottom Right
TBGL_EndPoly
END SUB
[/code]


Petr

EDIT: corrected

[zak]

Hi Petr
you forget to change the numbers in the function SuperBox to a,b,c i attached the code below.
this is great, a superbox, i suggest i a future tbgl version something like this coded internaly tbgl_superbox a,b,c, ct,cb,cr,cl,cf,cb
in wich the ct= top color, cb= bottom color and so on.
thanks

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144

' Empty GUI script created on 06-22-2009 13:32:46 by (ThinAIR) uses "TBGL" ' thinBASIC OpenGL Library    ' Declare Variables here dim rquad as single ' Quad Rotation dim frameRate as double ' Timing Variable    ' Create Display, Return Handle.          dim hWnd as dword dim bits as long = 32    hWnd = tbgl_createwindowex("  - Press 'Esc' to Quit", 640, 480, bits, %TBGL_WS_WINDOWED) tbgl_showwindow ' Show Display    ' -- color definition TYPE SuperBox_RGB  R AS BYTE  G AS BYTE  B AS BYTE END TYPE    ' -- auxiliary names begin const  %top = 1  %bottom  %front  %back  %left  %right end const    ' -- Array of colors Dim CustomColor(6) as SuperBox_RGB    with CustomColor(%top)  .R = 255  .G = 255  .B = 255 end with    with CustomColor(%bottom)  .R = 255  .G = 255  .B = 0 end with    with CustomColor(%front)  .R = 255  .G = 0  .B = 0 end with    with CustomColor(%back)  .R = 0  .G = 255  .B = 255 end with    with CustomColor(%left)  .R = 0  .G = 0  .B = 255 end with    with CustomColor(%right)  .R = 255  .G = 0  .B = 255 end with    TBGL_ResetKeyState() ' Reset all Keys    ' Start Main Loop while tbgl_iswindow(hWnd)     frameRate = tbgl_getframerate  tbgl_clearframe         ' Clear Display     tbgl_camera 0,0,1,0,0,0      ' Default Camera, View From 0,0,1 To 0,0,0.  TBGL_Translate 0.0, 0.0, -7.0   ' Move Right 1.5 Units, Into the Screen 7 Units.  TBGL_Rotate rquad, 1.0, 1.0, 1.0 ' X,Y & Z Axis Rotations.     ' -- Super box takes dimnesions and color array as parameters  SuperBox 2, 1, 1, CustomColor     rquad -= ( 27.0 / frameRate ) ' Increase Quad Rotation     tbgl_drawframe      ' Display anything     if tbgl_getWindowkeystate(hWnd, %VK_ESCAPE) then exit while    wend    tbgl_destroywindow ' Closes Display    ' ------------------ ' SuperBox procedure ' ------------------    SUB SuperBox(a as single, b as single , c as single, Colors() as SuperBox_RGB )  TBGL_BeginPoly %GL_QUADS    ' Top Quad   TBGL_Color Colors(1).R, Colors(1).G, Colors(1).B   TBGL_Vertex a, b, -c ' Top Right   TBGL_Vertex -a, b, -c ' Top Left   TBGL_Vertex -a, b, c ' Bottom Left   TBGL_Vertex a, b, c ' Bottom Right      ' Bottom Quad   TBGL_Color Colors(2).R, Colors(2).G, Colors(2).B   TBGL_Vertex a, -b, c ' Top Right   TBGL_Vertex -a, -b, c ' Top left   TBGL_Vertex -a, -b, -c ' Bottom Left   TBGL_Vertex a, -b, -c ' Bottom Right      ' Front Quad   TBGL_Color Colors(3).R, Colors(3).G, Colors(3).B   TBGL_Vertex a, b, c ' Top Right   TBGL_Vertex -a, b, c ' Top Left   TBGL_Vertex -a, -b, c ' Bottom Left   TBGL_Vertex a, -b, c ' Bottom Right      ' Back Quad   TBGL_Color Colors(4).R, Colors(4).G, Colors(4).B   TBGL_Vertex a, -b, -c ' Bottom Left   TBGL_Vertex -a, -b, -c ' Bottom Right   TBGL_Vertex -a, b, -c ' Top Right   TBGL_Vertex a, b, -c ' Top Left      ' Left Quad   TBGL_Color Colors(5).R, Colors(5).G, Colors(5).B   TBGL_Vertex -a, b, -c ' Top Right   TBGL_Vertex -a, -b, -c ' Top Left   TBGL_Vertex -a, -b, c ' Bottom Left   TBGL_Vertex -a, b, c ' Bottom Right      ' Right Quad   TBGL_Color Colors(6).R, Colors(6).G, Colors(6).B   TBGL_Vertex a, b, -c ' Top Right   TBGL_Vertex a, b, c ' Top Left   TBGL_Vertex a, -b, c ' Bottom Left   TBGL_Vertex a, -b, -c ' Bottom Right  TBGL_EndPoly END SUB

[zak]

why the code in my messages is small and black??

[Petr Schreiber]

Hi Zak,

thanks for correction, I was in hurry too much.

Regarding the formatting - you use CODE tag without parameters I presume.

Try to use (without spaces) [ code = thinBasic ] ... source here ... [ / code ] instead. It will immediately automatically highlight the code.


Petr

[Michael Clease]

i suggest i a future tbgl version something like this coded internaly tbgl_superbox a,b,c, ct,cb,cr,cl,cf,cb
in wich the ct= top color, cb= bottom color and so on.
thanks

I also think that would be useful but something like
[code=thinbasic]TBGL_BoxColored (a,b,c, ct,cb,cr,cl,cf,cb)[/code]

and perhaps if each face could be assigned a texure that would be even better.

[code=thinbasic]TBGL_BoxColoredTextured (a,b,c, ct,cb,cr,cl,cf,cb, tt,tb,tr,tl,tf,tb)[/code]


Mike

[Petr Schreiber]

Hi,

thanks all for the suggestions.

I think having 12 extra parameters is pretty mad, thats why I would propose similar solution to the one I showed, which is passing array of parameters (Texture/R/G/B for each face). The UDT could be pre-defined in module already.

Second thing is that using different texture for each face will give your graphic card a bit of headache, in case of multiple cubes I would solve it by rendering each side with same texture in series...

But I understand in case of few cubes this would be too much for programmer - so I will try your suggestion, just in slightly modded syntax:
[code=thinbasic]
tbgl_Box ( width, height, length [, faceParameters ])
[/code]


Thanks,
Petr

[ErosOlmi]

why the code in my messages is small and black??

Hi zak,

as suggested by Petr you need to add the language name in Code block or use "forum syntax highligher GeShi".
See atached picture.

Ciao
Eros