# Autor: Geraldo Clézio Oliveira Júnior
#Email: geraldoclezio@yahoo.com.br
#Data:11 de Agosto de 2005
# Descrição: cria um objeto através de uma caixa de dialogo e permite excluir um objeto selecionado

require 'fox12'
require 'fox12/responder'
require 'fox12/colors'
begin
 require	'fox12/glshapes'
#require 'opengl'
rescue LoadError
	require 'fox12/missingdep'
	MSG = <<EOM
	Este exemplo depende da extensão de OpenGL.
	Por favor confira os Arquivos de Aplicação de Ruby 
	para uma apropriada execução.
EOM
	  missingDependency(MSG)
end

include Fox

$Vet= Array.new 
$Vet[0,5]=[ 0.0,0.0,0.0, 0.0,0.0,0.0] 



class DialogoCubo < FXDialogBox

    def atualiza(opcao)

	case (opcao)
	when 1: $gp2.append(FXGLCube.new( $Vet[0], $Vet[1], $Vet[2], $Vet[3], $Vet[4], $Vet[5]))
	when 2: $gp2.append(FXGLCylinder.new($Vet[0], $Vet[1], $Vet[2], $Vet[3], $Vet[4]))
	when 3: $gp2.append(FXGLCone.new($Vet[0], $Vet[1], $Vet[2], $Vet[3], $Vet[4]))
        when 4: $gp2.append(FXGLSphere.new($Vet[0], $Vet[1], $Vet[2], $Vet[3]))
	end
	
	$Vet[0] = $Vet[1] = $Vet[2] = $Vet[3] = $Vet[4] = $Vet[5]=0
	$viewer.update
        $viewer.repaint
     end 
     
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criação do Cubo", DECOR_TITLE|DECOR_BORDER)
     
        @matrix = FXMatrix.new(self, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,0,0,0,0,0,0)
	
	FXLabel.new(@matrix, "Valores para criação do cubo",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
	FXLabel.new(@matrix, "",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
     
	FXLabel.new(@matrix, "Coordenada X em pixels:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       coord_x = FXSpinner.new(@matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       coord_x.range = -400..400
       coord_x.connect(SEL_COMMAND){ $Vet[0] = (Float(coord_x.value)/100) }
      
      FXLabel.new(@matrix, "Coordenada y pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       coord_y = FXSpinner.new(@matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       coord_y.range = -400..400
       coord_y.connect(SEL_COMMAND){ $Vet[1] = (Float(coord_y.value)/100) }
      
       FXLabel.new(@matrix, "Coordenada Z pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       coord_z = FXSpinner.new(@matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       coord_z.range = -400..400
       coord_z.connect(SEL_COMMAND){ $Vet[2] = (Float(coord_z.value)/100) }
			
       FXLabel.new(@matrix, "Largura X pixels:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       larg_x = FXSpinner.new(@matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       larg_x.range = -400..400
       larg_x.connect(SEL_COMMAND){ $Vet[3] = (Float(larg_x.value)/100) }
		
       FXLabel.new(@matrix, "Largura Y pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       larg_y = FXSpinner.new(@matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       larg_y.range = -400..400
       larg_y.connect(SEL_COMMAND){ $Vet[4] = (Float(larg_y.value)/100) }
 
       FXLabel.new(@matrix, "Largura Z pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       larg_z= FXSpinner.new(@matrix, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       larg_z.range = -400..400
       larg_z.connect(SEL_COMMAND){ $Vet[5] = (Float(larg_z.value)/100) }	

       localbotaoCubo = FXVerticalFrame.new(@matrix, (FRAME_SUNKEN|LAYOUT_FILL_Y|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0, 0, 0, 0, 0, 0)
   		
	botaoCubo=FXButton.new(localbotaoCubo, "&Criar Cubo", nil,nil,
	FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
        LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 10, 10, 5, 5)
	botaoCubo.connect(SEL_COMMAND){ 
	coord_x.value = coord_y.value = coord_z.value = larg_x.value = larg_y.value = larg_z.value =0
	atualiza(1) 
	}
	
	# Sair
        sair = FXButton.new(@matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
	
  end
end
#definindo minha classe
class GLTestInicio< FXMainWindow

include Responder
  
  ID_QUERY_MODE = FXMainWindow::ID_LAST
  ID_GLVIEWER   = ID_QUERY_MODE + 1
  
  def loadIcon(filename)
    begin
      filename = File.join("icons", filename) + ".png"
      icon = nil
      File.open(filename, "rb") { |f|
        icon = FXPNGIcon.new(getApp(), f.read)
      }
      icon
    rescue
      raise RuntimeError, "Couldn't load icon: #{filename}"
    end
  end

  def excluirobjeto()
     begin
        if $viewer.selection != nil
	$gp2.remove($viewer.selection)
	$viewer.update
	end
   end
  end
  
#inicializa a classe GLTestInicio
def initialize(app)
	
	#define nome e tamanho da janela
	super(app, "Cria e exclui um objeto", nil, nil, DECOR_ALL, 0, 0,750, 550)
		
	# Menu bar
	menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
    	
	filemenu = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&File", nil, filemenu)
        FXMenuCommand.new(filemenu, "Sair", nil, getApp(), FXApp::ID_QUIT)
	
	opcaomenu =FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Opções", nil, opcaomenu)
	menu_cube=FXMenuCommand.new(opcaomenu , "Cubo\tShift c",nil,nil, FXWindow::ID_TOGGLESHOWN)
        menu_cube.connect(SEL_COMMAND) {@dialogocubo.show}
	
       # Contents
        frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
	
	# Nice sunken box around GL viewer
        box = FXVerticalFrame.new(frame,
        FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0, 0, 0)
	
	#local dos chek buttons
	frame2 = FXVerticalFrame.new(frame,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0, -520, 0, 0)
		
	#  area da janela MDI Client
        @mdiclient = FXMDIClient.new(box, LAYOUT_FILL_X|LAYOUT_FILL_Y)
   		
        # Make MDI Window Menu
        @mdimenu = FXMDIMenu.new(self, @mdiclient)
    
	# Make an MDI Child
	mdichild = FXMDIChild.new(@mdiclient, "OpenGl", @mdiicon,
	@mdimenu, MDI_NORMAL, 0, 0, 850, 320)
	
	@glvisual = FXGLVisual.new(getApp(), VISUAL_DOUBLEBUFFER)

	#inreracao com os valores de criacao  Make it active
        @mdiclient.setActiveChild(mdichild)

	# Drawing gl canvas
	$viewer = FXGLViewer.new(mdichild, @glvisual, self, ID_GLVIEWER,
	LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
   
        @excluir = loadIcon("excluir")
        @sinal = true  
        excluir = FXButton.new(menubar, "\tDelete",
        @excluir, @mdiclient,FXGLViewer::ID_DELETE_SEL,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        excluir.connect(SEL_COMMAND){excluirobjeto()}
        
       $viewer.projection = 0
       @texto = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto2 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto3 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto4 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto5 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto6 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto7 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto8 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto9 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto10 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
       @texto11 = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
      
      @array = [0.1,0.1,0.1]
       
       $viewer.connect(SEL_MOUSEWHEEL) do
       $viewer.distance = 3.2
       #@viewer.scale = @Array      
       @texto.text = "ID:" + String($viewer.selection)#$viewer.selection.position)#(@gp2[@gp2.size-1].width) 
       @texto2.text = "Ângulo:" + String($viewer.fieldOfView) #($viewer.selection.object_id)#
        @texto3.text = "zoom:" + String($viewer.zoom) 
        @texto4.text = "distance:" + String($viewer.distance) 
        @texto5.text = "scale:" + String($viewer.scale) 
        @texto6.text = "orientation:" + String($viewer.orientation) 
        @texto7.text = "center:" + String($viewer.center) 
        @texto8.text = "vetor de vista:" + String($viewer.eyeVector) 
        @texto9.text = "Eye position:" + String($viewer.eyePosition) 
        @texto10.text = "transformation matrix:" + String($viewer.transform) 
        @texto11.text = "inverse transformation matrix:" + String($viewer.invTransform) 
         end       
       
      # $viewer.connect(SEL_MIDDLEBUTTONPRESS) do
       # print"\n id selecao>> ",$viewer.selection. object_id
 	#@texto.text = "ID:" + String($viewer.selection)
	#$viewer.selection.width = 0.8
	#$viewer.center = @array#$viewer.selection.position 
	#$gp2.remove($viewer.selection)
	#$viewer.update
        #@viewer.repaint	
   #    end
        #@id = @gp2[@gp2.size-1].object_id
	#@gp2.remove(@id)

     #  end
       
       # Make a scene!
	@scene = FXGLGroup.new
	$gp2 = FXGLGroup.new
	@scene.append($gp2)
	# Add scene to GL viewer
        $viewer.scene = @scene
	
	#dialogocubo
	 @dialogocubo = DialogoCubo.new(self)
	

end#final de initialize


  # Crie e inicialize
def create
	super
	    show(PLACEMENT_SCREEN)
end



end#final de clase

if __FILE__==$0
	application = FXApp.new("GLTest", "FoxTest")
	application.disableThreads

	GLTestInicio.new(application)
	application.create
	application.run
end