PureBoard

Code: Alles auswählen

MP_Graphics3D (640,480,0,3) ; Create Windows, #Window = 0
SetWindowTitle(0, "Alpha Cube with scrolling Background") 

camera=MP_CreateCamera() ; Create Camera

light=MP_CreateLight(1) ; Create light

Mesh=MP_CreateCube() ; Cretae Cube

Texture = MP_CatchTexture(?Pic, ?Picend-?Pic) ; Make textur from Scroll Image (2280 X 450 Pixel)
Surface  = MP_TextureToSurface(Texture) ; Make a Surface from Textur

If CreateImage(0, 255, 255) ; Make image -> Original Purebasic procedure

    Height=255 
    x = 128
    y = 128
    StartDrawing(ImageOutput(0))
    For Radius = Height/2 To 10 Step -10
       Circle(x, y, radius ,RGB(Random(255),Random(255),Random(255)))
    Next
    StopDrawing() ; This is absolutely needed when the drawing operations are finished !!! Never forget it !
    
EndIf

Texture2 = MP_ImageToTexture(0) ; Make Textur from Purebasic Image

MP_EntitySetTexture(Mesh, Texture2) ; Put Texture to Cube 

MP_TexturSetAlpha (Texture2,1) ; Make Alpha Cube

;-

MP_SurfaceSetPosition(Surface,0,0,1) ; Start Surface on Position 0,0

MP_SurfaceSrcRect(Surface,0, 0, 256, 256) ; get 256*256 Pixel from Scroll Image

MP_SurfaceDestRect(Surface,0, 0, 640, 480) ; Strech it on the 640*480 Screen
 
MP_PositionEntity (Mesh,0,0,5) ; Position of the Cube



While Not MP_KeyDown(#PB_Key_Escape) And Not MP_WindowEvent() = #PB_Event_CloseWindow; Esc abfrage oder Windows Schliessen
    yy.f + 0.01
    
    MP_ScrollSurface(Surface, Sin(yy) * 0.9, 1 ) ; Scroll the Surface Image 
   
    MP_DrawText (10,10,Str(MP_FPS())) ; Have i the normal FPS?
    MP_TurnEntity (Mesh,0.1,0.1,0.1)  ; Turn the Cube


    MP_RenderWorld() ; Erstelle die Welt

    MP_Flip () ; Stelle Sie dar

Wend

DataSection
   Pic: IncludeBinary "Regensburg_Uferpanorama_08_2006_.jpg"
   PicEnd:
 EndDataSection

Code: Alles auswählen

MP_Graphics3D (640,480,0,3) ; Erstelle ein WindowsFenster mit 3D Funktion #Window = 0
SetWindowTitle(0, "Darstellung von Primitives") ; Setzt einen Fensternamen

camera=MP_CreateCamera() ; Kamera erstellen

Entity = MP_CreatePrimitives (6, 2) ; 6 Vertexe und LINELIST (einzelne Linien)

MP_EntitySetZ (Entity, 8)
    
MP_SetPrimitives(Entity, 0,  0, 2, 0,  $FFFFFFFF)
MP_SetPrimitives(Entity, 1,  0, -2, 0, $FF0000FF)
MP_SetPrimitives(Entity, 2,  -2, 0, 0, $FF00FF00)
MP_SetPrimitives(Entity, 3, 2, 0, 0,   $FF00FFFF)    
MP_SetPrimitives(Entity, 4, 0, 0, 2,   $FFFF0000) 
MP_SetPrimitives(Entity, 5, 0, 0, -2,  $FFFF00FF)    

While Not MP_KeyDown(#PB_Key_Escape) And Not MP_WindowEvent() = #PB_Event_CloseWindow; Esc abfrage oder Windows Schliessen

    MP_TurnEntity (Entity,0.1,0.1,0.1) ; dreh den Würfel
    MP_RenderWorld() ; Erstelle die Welt
    MP_Flip () ; Stelle Sie dar

Wend

Code: Alles auswählen

While Not MP_KeyDown(#PB_Key_Escape) And Not MP_WindowEvent() = #PB_Event_CloseWindow; 
  If MP_FPS() > 60: count +1 : EndIf
  MP_DrawText (1,1,"FPS = "+Str(MP_FPS()) + " Boxes: " + Str(count),0,$FFFF0000)

  MP_StartDrawing()
    For n = 1 To count
      MP_2DBox(MP_RandomFloat(-14,12) ,MP_RandomFloat(-10,8),2,2,Random($AAAAAA)+$11111,0 ,1)
    Next n
  MP_StopDrawing()
   
  MP_RenderAll() 
  MP_Flip () 
Wend

Code: Alles auswählen

MP_Graphics3DWindow(30,30, 800,600 ,"", #PB_Window_SystemMenu )
MP_Viewport(20,20,400,400)

camera=MP_CreateCamera()

light=MP_CreateLight(1)

Mesh=MP_CreateCube()

CreateImage(0, 255, 255,32)
  StartDrawing(ImageOutput(0))
    DrawingMode(#PB_2DDrawing_AlphaChannel)
    Box(0, 0, 800, 600, $00000000)
   
    ; The classic Circle-thing :)
    ;
    DrawingMode(#PB_2DDrawing_AlphaBlend)
    Circle( 90,  90, 60, RGBA(255,   0,   0, 128))
    Circle(160,  90, 60, RGBA(  0, 255,   0, 128))
    Circle(125, 160, 60, RGBA(  0,   0, 255, 128))
    
 StopDrawing()

Texture = MP_ImageToTexture(0,0,1,1)

MP_TexturSetAlpha (Texture,2)


MP_EntitySetTexture (Mesh, Texture)
MP_PositionEntity (Mesh,0,0,3)

MP_AmbientSetLight(RGB(255,255,0))

While Not MP_KeyDown(#PB_Key_Escape) And Not MP_WindowEvent() = #PB_Event_CloseWindow

    MP_TurnEntity (Mesh,0.1,0.1,0.1)
    MP_RenderWorld()
    MP_Flip ()

Wend

Code: Alles auswählen

Structure s_coor3D
  
  StructureUnion
  x.f
  theta.f
  EndStructureUnion
  StructureUnion
  y.f
  phi.f
  EndStructureUnion
  StructureUnion
  z.f
  r.f
  EndStructureUnion
  
EndStructure

Procedure.f rad_to_deg(rad.f)
  
  Protected deg.f = rad * 180/#PI
  ProcedureReturn deg
  
EndProcedure
Procedure.f deg_to_rad(deg.f)
  
  Protected rad.f = deg * #PI/180
  ProcedureReturn rad
  
EndProcedure
Procedure spheric_to_cartesian(*coor.s_coor3D)
  
  Protected temp.s_coor3D
  
  temp\x = *coor\r * Sin(*coor\theta) * Cos(*coor\phi)
  temp\y = *coor\r * Sin(*coor\theta) * Sin(*coor\phi)
  temp\z = *coor\r * Cos(*coor\theta)
  
  *coor\x = temp\x
  *coor\y = temp\y
  *coor\z = temp\z
  
EndProcedure
Procedure cartesian_to_spheric(*coor.s_coor3D)
  
  Protected temp.s_coor3D
  
  temp\theta = #PI/2 - ATan( *coor\z / Sqr(*coor\x * *coor\x + *coor\y * *coor\y))
  temp\phi   = ATan2(*coor\x,*coor\y)
  temp\r     = Sqr(*coor\x * *coor\x + *coor\y * *coor\y + *coor\z * *coor\z)
  
  *coor\theta = temp\theta
  *coor\phi   = temp\phi
  *coor\r     = temp\r
  
EndProcedure


Define deg.f
Define rad.f

deg = 90
rad = deg_to_rad(deg)
Debug "deg: " + StrF(deg) + " rad: " + StrF(rad)

rad = -#PI/4
deg = rad_to_deg(rad)
Debug "deg: " + StrF(deg) + " rad: " + StrF(rad)


Define coor.s_coor3D
coor\x = 1 : coor\y = 1 : coor\z = 0

cartesian_to_spheric(coor)
Debug "spheric:"
Debug StrF(coor\theta) + " " + StrF(coor\phi) + " " + StrF(coor\r)

spheric_to_cartesian(coor)
Debug "cartesian:"
Debug StrF(coor\x) + " " + StrF(coor\y) + " " + StrF(coor\z)