Not sure if this is the correct forum!
Ive posted a little change below which doesn't change any functionality of Graphics3D it simply passes back a TGraphics object, whether this isn't done in the first place for a specific reason I do not know.
If there is no reason not to return a TGraphics object can it be added?
Cheers,
James
Ive posted a little change below which doesn't change any functionality of Graphics3D it simply passes back a TGraphics object, whether this isn't done in the first place for a specific reason I do not know.
If there is no reason not to return a TGraphics object can it be added?
Function Graphics3D:TGraphics(w,h,d=0,m=0,r=60) 'mode: '0: windowed in debug mode, fullscreen in non-debug mode '1: full-screen always '2: windowed always ' change depth values so that Graphics will behave in the same way as Blitz3D-style Graphics3D Select m Case 0 ?debug d=0 ? ?Not debug If d=0 Then d=16 ? Case 1 If d=0 Then d=16 Case 2 d=0 Default d=0 End Select width=w height=h depth=d mode=m rate=r SetGraphicsDriver(GLMax2DDriver()) Local res:TGraphics = Graphics(width,height,depth,rate,GRAPHICS_BACKBUFFER|GRAPHICS_DEPTHBUFFER|GRAPHICS_ACCUMBUFFER) GraphicsInit() Return res End Function
Cheers,
James