[bb] BlitzPluz + Blitz3D by Cronos [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:43

Previous topic - Next topic

BlitzBot

Title : BlitzPluz + Blitz3D
Author : Cronos
Posted : 1+ years ago

Description : BlitzPluz + Blitz3D

Code :
Code (blitzbasic) Select
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;  3D Test: BlitzPlus + Blitz3D
;       by: Luis Enrique Braga Ramirez
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

-------------- decls CODE --------------
--------- Blitz3d+BlitzPluz.decls ------
 
.lib "User32.dll"

FindWindow%(class$, fenster$):"FindWindowA"
GetActiveWindow%()
SetParent%(hWndChild,hWndNewParent)
ShowWindow% (hwnd%, nCmdShow%): "ShowWindow"

-------------- decls CODE END --------------


-------------- BlitzPlus CODE --------------
---------- BlitzPlus_Blitz3D.EXE -----------

Global Window   = CreateWindow("BlitzPlus + Blitz3D" , 0 , 0 , 640 , 520 , Desktop()  , 1+4+8 )
Global MainHwnd = GetActiveWindow();User32.dll
SetStatusText(Window,"BlitzPlus + Blitz3D")

Global Menu  = WindowMenu( Window )
Global File  = CreateMenu( "File"  , 0 , Menu )
Global Close = CreateMenu( "Close" , 1 , File )
UpdateWindowMenu Window
 

ExecFile("Window3D.exe")

Repeat
vwprt = FindWindow("Blitz Runtime Class" , "Window3D");User32.dll
If WaitEvent() = $803 Then End
Until vwprt <> 0

SetParent(vwprt,MainHwnd);User32.dll
SetWindowPos( vwprt , 0 , -2 , -30 , 640 , 480 , 0);User32.dll
ShowWindow% (vwprt ,1) ;User32.dll


Repeat

If WaitEvent()>0 Then

  Select EventID()

         Case $803
               End
         Case $1001
              Select EventData()
              Case 1
                   End  
              End Select ;Select EventData()

  End Select ;Select EventID()


EndIf

Forever

End ;

-------------- BlitzPlus CODE END --------------



-------------- Blitz3D CODE --------------
-------------- Window3D.EXE --------------

If Windowed3D ()

 Graphics3D 640 , 480 , 16 , 2
 AppTitle("Window3D")
 hwnd = GetActiveWindow() ;User32.dll
 ShowWindow% (hwnd ,0)    ;User32.dll

 SetBuffer BackBuffer()

Else

  End

EndIf

Global camera = CreateCamera()
Global light  = CreateLight()
Global cube   = CreateCube()

CameraViewport camera,0 ,0 , 640 , 480

PositionEntity light,-3,0,3
PositionEntity camera,-3,5,-1
ScaleEntity cube,2,2,2
PointEntity camera,cube


Repeat
    TurnEntity cube,0.5,0.5,0.5

  UpdateWorld
  RenderWorld
  Flip

Until FindWindow( "BlitzMax_Window_Class" , "BlitzPlus + Blitz3D" ) = 0 ;User32.dll

End

-------------- Blitz3D CODE END --------------

PLEASE HELP ME TO IMPROVE IT!!!


Comments :


Rook Zimbabwe(Posted 1+ years ago)

 If I could get it to work...


Phoenix(Posted 1+ years ago)

 It works great!


Rook Zimbabwe(Posted 1+ years ago)

 Then perhaps a little more instruction is needed. I saved the dll in userlibs... I ran the b3d part but I get an error message.-RZ


Rook Zimbabwe(Posted 1+ years ago)

 Oh boy... face red... thought it wuld let me use Blitz+ commands in B3D... nope...


Kev(Posted 1+ years ago)

 @Rook, see winblitz3d. it enables close to blitz+ commands in blitz3d.