PureBasic Forums - English

Code: Select all

#GL_COLOR_BUFFER_BIT = $00004000
#GL_DEPTH_BUFFER_BIT = $00000100
#GL_MODELVIEW  = $1700
#GL_PROJECTION = $1701
#GL_TRIANGLES = 4

EnableExplicit

ImportC "/System/Library/Frameworks/OpenGL.framework/OpenGL"
  glBegin_(PrimitiveID.I) As "_glBegin"
  glClear_(BuffersToClear.I) As "_glClear"
  glColor3f_(Red.F, Green.F, Blue.F) As "_glColor3f"
  glEnd_() As "_glEnd"
  glLoadIdentity_() As "_glLoadIdentity"
  glMatrixMode_(Target.I) As "_glMatrixMode"
  glTranslatef_(x.F, y.F, z.F) As "_glTranslatef"
  gluPerspective_(FieldOfViewAngle.D, WidthToHeightRatio.D, DistanceToNearPlane.D, DistanceToFarPlane.D) As "_gluPerspective"
  glVertex3f_(x.F, y.F, z.F) As "_glVertex3f"
  glViewport_(x.I, y.I, Width.I, Height.I) As "_glViewport"
EndImport

If InitSprite() = 0
  MessageRequester("Error", "Can't open screen & sprite environment!")
  End
EndIf

OpenWindow(0, 270, 100, 640, 480, "MacOS X Cocoa & Carbon OpenGL demo", #PB_Window_SystemMenu)
SetWindowColor(0, 0)
OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0), WindowHeight(0), 0, 0, 0)

Repeat
  glViewport_(0, 0, WindowWidth(0), WindowHeight(0))
  glMatrixMode_(#GL_PROJECTION)
  glLoadIdentity_()
  gluPerspective_(30.0, Abs(WindowWidth(0) / WindowHeight(0)), 0.1, 500.0)
  glMatrixMode_(#GL_MODELVIEW)
  glLoadIdentity_()
  glClear_(#GL_COLOR_BUFFER_BIT | #GL_DEPTH_BUFFER_BIT)
  glLoadIdentity_()
  glTranslatef_(0.0, 0.0, -8.0)
  glColor3f_(1.0, 1.0, 1.0)
  glBegin_(#GL_TRIANGLES)      ; Start drawing a triangle
  glColor3f_ ( 1.0,  0.0, 0.0) ; Set top point of triangle to Red
  glVertex3f_( 0.0,  1.0, 0.0) ; First point of the triangle
  glColor3f_ ( 0.0,  1.0, 0.0) ; Set left point of triangle to Green
  glVertex3f_(-1.0, -1.0, 0.0) ; Second point of the triangle
  glColor3f_ ( 0.0,  0.0, 1.0) ; Set right point of triangle to Blue
  glVertex3f_( 1.0, -1.0, 0.0) ; Third point of the triangle
  glEnd_()                     ; Done drawing the triangle
  FlipBuffers()
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

MidiPlayer = Midi_Load("test.mid")
Midi_Play(MidiPlayer)

Message_OSD("Playing MIDI")

If OpenWindow(0, 0, 0, 400, 300, "Midi Playback", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  Repeat 
    EventID = WaitWindowEvent()
  Until EventID = #PB_Event_CloseWindow
  
EndIf

Code: Select all

If OpenWindow(0, 100, 150, 195, 260, "Menu")
  
  If CreateMenu(0, WindowID(0))
    MenuTitle("File")
    MenuItem( 1, "Load...")
    MenuItem( 2, "Save")
    MenuItem( 3, "Save As...")
  EndIf
  
  PreferencesItem = Menu_ItemAtIndex(0, 0, 2); preferences item is at index (0, 2) of main menu

  ; alternative approach ...
  ; PreferencesItem = Menu_ItemWithTitle(0, "Preferences", #False); find preferences item

  Menu_SetItemEnabled(PreferencesItem, #False); disable preferences
  
  SaveItem = Menu_ItemAtIndex(0, 1, 1); save iten is at index (1, 1) of main menu
  Menu_SetItemKey(SaveItem, "s", %0010); set Ctrl+S as key  ( Bit Mask = Command - Alt - Ctrl - Shift )
  Menu_SetItemToolTip(SaveItem, "This is the save item")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Menu
        MessageRequester("Info", "MenuItem: "+Str(EventMenu()), 0)
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect
  Until Quit = 1
  
EndIf

Code: Select all

Debug MainBundle_GetInfo("CFBundleSignature")

Code: Select all

If OpenWindow(0, 0, 0, 300, 200, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  StringGadget(0, 0, 0, 96, 32, "")
  
  CreateImage(0, 32, 32)
  StartDrawing(ImageOutput(0))
  Box(0,0,32,32,RGB(255,255,255))
  Box(4,4,24,24,RGB(255,0,0))
  StopDrawing()
  
  CreateToolBar(0, WindowID(0))
  TB_ID = ToolBarID(0)
  ToolBar_SetMode(TB_ID, 1, 1)
  
  ToolBarImageButton(0, ImageID(0))
  Item = ToolBar_ItemAtIndex(TB_ID, 0)
  ToolBar_SetItemLabel(Item, "Button")
  
  ToolBarImageButton(1, ImageID(0))
  Item = ToolBar_ItemAtIndex(TB_ID, 1)
  ToolBar_SetItemLabel(Item, "String gadget")
  ToolBar_SetItemGadget(Item, GadgetID(0))
  
  Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow 
  
EndIf

Code: Select all

void PB_ToolBar_SetMode(NSToolbar * toolbar, NSUInteger displayMode, NSUInteger sizeMode,BOOL userCustomization)
{
    [toolbar setDisplayMode:displayMode];
    [toolbar setSizeMode:sizeMode];
    [toolbar setAllowsUserCustomization:userCustomization];
}