Aktuelle Zeit: 14.08.2018 17:53

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 
Autor Nachricht
 Betreff des Beitrags: 3D OGRE Zylinder Projektion für Panorama gesucht
BeitragVerfasst: 05.12.2016 15:51 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:53
Hallo,

Olby hat im englischen Forum einen Panorama Viewer gepostet.

http://www.purebasic.fr/english/viewtop ... 30#p497274

Mit dem man 360 Grad Panoramen in einer Kugelprojektion anschauen kann.

Hat jemand eine Idee wie man das auf einen Zylinder projezieren kann, wenn
man nur normale Panorama Bilder (ohne Himmel und Boden) anschauen will?

Ciao dige

Code:
EnableExplicit

UseJPEGImageDecoder()
UsePNGImageDecoder()

Define.i w,h,d,mx.f,my.f,file$=Trim(ProgramParameter(0))

If file$
   If InitEngine3D() And
      InitSprite() And
      InitKeyboard() And
      InitMouse()
   
      If ExamineScreenModes()
         While NextScreenMode()
            w=ScreenModeWidth()
            h=ScreenModeHeight()
            d=ScreenModeDepth()
         Wend
         
         If OpenScreen(w,h,d,"Panorama",#PB_Screen_SmartSynchronization)
            CreateCamera(0,0,0,100,100)
            CameraFOV(0,90)
           
            Add3DArchive(GetPathPart(file$),#PB_3DArchive_FileSystem)
            CreateMaterial(0,LoadTexture(0,file$))
            DisableMaterialLighting(0,#True)
            MaterialFilteringMode(0,#PB_Material_Trilinear)
            RotateMaterial(0,180,#PB_Material_Fixed)
           
            CreateSphere(0,-10,32,32)
            CreateEntity(0,MeshID(0),MaterialID(0))
           
            Repeat
               If ExamineMouse()
                  mx=-MouseDeltaX()/4.0
                  my=-MouseDeltaY()/4.0
               EndIf
               RotateCamera(0,my,mx,0,#PB_Relative)
               RenderWorld()
               FlipBuffers()
               ExamineKeyboard()
           Until KeyboardPushed(#PB_Key_Escape)
        EndIf
      EndIf
   EndIf
EndIf

_________________
"Papa, ich laufe schneller, dann ist es nicht so weit."


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 1 Beitrag ] 

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye