# Autor: Geraldo Clézio Oliveira Júnior
#Email: geraldoclezio@yahoo.com.br

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.05,0.05,0.05] 
$Posicao= FXVec3f.new 
$Posicao = [0.5,0.5,0.5]
$Material = FXMaterial.new()

class Camera 
   def camera(frame,mdiclient)
	angles = FXMatrix.new(frame, 6,
	MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,10,0,30,5)
	
	FXLabel.new(angles, "Rotação sobre X:")
	FXTextField.new(angles, 6, mdiclient, FXGLViewer::ID_ROLL,
	TEXTFIELD_INTEGER|JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	x_dial = FXDial.new(angles, mdiclient, FXGLViewer::ID_DIAL_X,
	(FRAME_SUNKEN|FRAME_THICK|DIAL_CYCLIC|DIAL_HORIZONTAL|
	LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT|LAYOUT_CENTER_Y),0, 0, 160, 14, 0, 0, 0, 0)
	x_dial.tipText = "Rotação sobre X"
	x_dial.notchOffset = 900

	FXLabel.new(angles, "Escala X:")
	FXTextField.new(angles, 5, mdiclient, FXGLViewer::ID_SCALE_X, JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	FXFrame.new(angles, 0)
	   
	FXLabel.new(angles, "Rotação sobre Y:")
	FXTextField.new(angles, 6, mdiclient, FXGLViewer::ID_PITCH,
	TEXTFIELD_INTEGER|JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	y_dial = FXDial.new(angles, mdiclient, FXGLViewer::ID_DIAL_Y,
	(FRAME_SUNKEN|FRAME_THICK|DIAL_CYCLIC|DIAL_HORIZONTAL|
	LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT|LAYOUT_CENTER_Y),0, 0, 160, 14, 0, 0, 0, 0)
	y_dial.tipText = "Rotação sobre Y"
	y_dial.notchOffset = 900
 
	FXLabel.new(angles, "Escala Y:")
	FXTextField.new(angles, 5, mdiclient, FXGLViewer::ID_SCALE_Y,JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	FXFrame.new(angles, 0)

	FXLabel.new(angles, "Rotação sobre Z:")
	FXTextField.new(angles, 6, mdiclient, FXGLViewer::ID_YAW,
        TEXTFIELD_INTEGER|JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	z_dial = FXDial.new(angles, mdiclient, FXGLViewer::ID_DIAL_Z,
	(FRAME_SUNKEN|FRAME_THICK|DIAL_CYCLIC|DIAL_HORIZONTAL|
	LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT|LAYOUT_CENTER_Y),0, 0, 160, 14, 0, 0, 0, 0)
	z_dial.tipText = "Rotação sobre Z"
	z_dial.notchOffset = 900

	FXLabel.new(angles, "Escala Z:")
	FXTextField.new(angles, 5, mdiclient, FXGLViewer::ID_SCALE_Z,JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	FXFrame.new(angles, 0)
  	
	FXLabel.new(angles, "Zoom:")
	zz = FXTextField.new(angles, 6, mdiclient, FXGLViewer::ID_ZOOM,
	JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK)
	#FXFrame.new(angles, 0)
	zz.tipText = "Zooming"
	
	zoom_dial = FXDial.new(angles, mdiclient, FXGLViewer::ID_ZOOM,
	(FRAME_SUNKEN|FRAME_THICK|DIAL_CYCLIC|DIAL_HORIZONTAL|
	LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT|LAYOUT_CENTER_Y),0, 0, 160, 14, 0, 0, 0, 0)
	zoom_dial.tipText = "Rotação sobre Z"
	zoom_dial.notchOffset = 100
  end
end

class DialogoCubo < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criar CUBO", DECOR_TITLE|DECOR_BORDER)
     
        FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,125,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,110,30,0,0,-30,0)
	        
       FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
        FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
        matrix1 = FXMatrix.new(frame, 6,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,0,10,10,0)
		
        FXLabel.new(matrix1, "Largura:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
        larg_x = FXSpinner.new(matrix1, 4,nil,0,
        SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
        larg_x.range = 5..400
        larg_x.connect(SEL_COMMAND){ $Vet[3] = (Float(larg_x.value)/100) }
		
        FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        larg_y = FXSpinner.new(matrix1, 4,nil,0,
        SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
        larg_y.range = 5..400
        larg_y.connect(SEL_COMMAND){ $Vet[4] = (Float(larg_y.value)/100) }
 
       FXLabel.new(matrix1, "Profundidade:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       larg_z= FXSpinner.new(matrix1, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       larg_z.range = 5..400
       larg_z.connect(SEL_COMMAND){ $Vet[5] = (Float(larg_z.value)/100) }	

	FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
   	matrix2 = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,140,50,10,0,20,0)
          
        botaoCubo=FXButton.new(matrix2, "&Criar", 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
	$principal.atualiza(1) 
	}
	
	# Sair
        sair = FXButton.new(matrix2, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0, 0, 0,0, 5, 5, 5, 5)
  end
end

class DialogoCone < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criar CONE", DECOR_TITLE|DECOR_BORDER)
     
     
        FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,45,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,30,30,0,0,-30,0)
	        
       FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
        FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
        matrix1 = FXMatrix.new(frame, 4,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,0,10,10,0)
	
	
       FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       larg = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       larg.range = 5..400
       larg.connect(SEL_COMMAND){ $Vet[3] = (Float(larg.value)/100) }
		
       FXLabel.new(matrix1, "Raio:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       raio = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       raio.range = 5..400
       raio.connect(SEL_COMMAND){ $Vet[4] = (Float(raio.value)/100) }
       
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
   	matrix2 = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,60,50,10,0,20,0)
          
       botaoCone=FXButton.new(matrix2, "&Criar", nil,nil,
       FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 10, 10, 5, 5)
       botaoCone.connect(SEL_COMMAND){ 
       coord_x.value = coord_y.value = coord_z.value = larg.value = raio.value =0
       $principal.atualiza(3) }
	
       # Sair
       sair = FXButton.new(matrix2, "&Sair", nil, self, ID_CANCEL,
       FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0, 0, 0,0, 5, 5, 5, 5)
   end
end

class DialogoCilindro < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criar CILINDRO", DECOR_TITLE|DECOR_BORDER)
     
        FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,45,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,30,30,0,0,-30,0)
	        
        FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        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, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
        FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
        matrix1 = FXMatrix.new(frame, 4,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,0,10,10,0)
	
        FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        larg = FXSpinner.new(matrix1, 4,nil,0,
        SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
        larg.range = 5..400
        larg.connect(SEL_COMMAND){ $Vet[3] = (Float(larg.value)/100) }
		
        FXLabel.new(matrix1, "Raio:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
        raio = FXSpinner.new(matrix1, 4,nil,0,
        SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
        raio.range = 5..400
        raio.connect(SEL_COMMAND){ $Vet[4] = (Float(raio.value)/100) }
            
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
		
        matrix2 = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,60,50,10,0,20,0)
     
        botaoCilindro=FXButton.new(matrix2, "&Criar", nil,nil,
        FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
        LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 5, 5, 5, 5)
        botaoCilindro.connect(SEL_COMMAND){ 
        coord_x.value = coord_y.value = coord_z.value = larg.value = raio.value =0
        $principal.atualiza(2) }	
		
	# Sair
        sair = FXButton.new(matrix2, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0, 0, 0,0, 5, 5, 5, 5)
  end
end

class DialogoEsfera < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criar ESFERA", DECOR_TITLE|DECOR_BORDER)
     
     
       FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,45,0,0,10)
       frame = FXVerticalFrame.new(self,
       LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
       matrix = FXMatrix.new(frame, 2,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,30,30,0,10,-30,0)
	        
       FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       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, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
       FXLabel.new(matrix, "",nil,LABEL_NORMAL)
        
       FXLabel.new(matrix, "Raio:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       raio = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       raio.range = 5..400
       raio.connect(SEL_COMMAND){ $Vet[3] = (Float(raio.value)/100) }
       
       FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
       FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
       matrix2 = FXMatrix.new(frame, 2,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,60,50,10,0,20,0)
       	     
       botaoEsfera = FXButton.new(matrix2, "&Criar", nil,nil,
        FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
        LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 5, 5, 5, 5)
       botaoEsfera.connect(SEL_COMMAND){ 
       coord_x.value = coord_y.value = coord_z.value = raio.value =0
       $principal.atualiza(4) }
	
	# Sair
        sair = FXButton.new(matrix2, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0, 0, 0,0, 5, 5, 5, 5)
   end
end
   
class DialogoSetCubo < FXDialogBox
  
  def getvalor()
	  $Posicao =$viewer.selection.position
	  @coord_x.setValue(Integer($Posicao[0]*100))
	  @coord_y.setValue(Integer($Posicao[1]*100))
	  @coord_z.setValue(Integer($Posicao[2]*100))
	  @larg_x.setValue(Integer($viewer.selection.width*100)) 
	  @larg_y.setValue(Integer($viewer.selection.height*100))
	  @larg_z.setValue(Integer($viewer.selection.depth*100))
  end
    
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Alterar CUBO", DECOR_TITLE|DECOR_BORDER)
     
        FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,135,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,128,30,0,0,-30,0)
		
       FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @coord_x = FXSpinner.new(matrix,4,$Target, FXDataTarget::ID_VALUE,
       SPIN_CYCLIC|FRAME_SUNKEN|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_FILL_ROW)
       @coord_x.range = -400..400
       @coord_x.connect(SEL_COMMAND){ 
	       $Posicao[0] = (Float(@coord_x.value)/100)
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
      }      
      
       FXLabel.new(matrix, "Coordenada y:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
	       $Posicao[1]  = (Float(@coord_y.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
	}
      
      FXLabel.new(matrix, "Coordenada Z:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       }    
       
       FXLabel.new(matrix, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
       FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
       matrix1 = FXMatrix.new(frame, 6,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,68,20,0,10,10,0)
	
       
       FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @larg_y = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @larg_y.range = 0..400
       @larg_y.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@larg_y.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }      
      
       FXLabel.new(matrix1, "Largura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @larg_x = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @larg_x.range = 0..400
	@larg_x.connect(SEL_COMMAND){ 
	       $viewer.selection.width = (Float(@larg_x.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }        
 
       FXLabel.new(matrix1, "Profundidade:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @larg_z= FXSpinner.new(matrix1, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @larg_z.range = 0..400
       @larg_z.connect(SEL_COMMAND){ 
	       $viewer.selection.depth = (Float(@larg_z.value)/100)
	       $viewer.update
	       $viewer.repaint
	}	

	FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
	matrix3 = FXMatrix.new(frame, 1,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,190,10,10,0,0,0)
		
	 sair = FXButton.new(matrix3, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0,0,0,0,5,5,5,5)    
   end
end

class DialogoSetCone < FXDialogBox

  def getvalor()
	  $Posicao =$viewer.selection.position
	  @coord_x.setValue(Integer($Posicao[0]*100))
	  @coord_y.setValue(Integer($Posicao[1]*100))
	  @coord_z.setValue(Integer($Posicao[2]*100))
	  @Altura.setValue(Integer($viewer.selection.height*100))
	  @Raio.setValue(Integer($viewer.selection.radius*100))
	  @Fatias.setValue($viewer.selection.slices)
	  @Pilhas.setValue($viewer.selection.stacks)
	  @Voltas.setValue($viewer.selection.loops)
  end
  
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Alterar CONE", DECOR_TITLE|DECOR_BORDER)
	
	FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,85,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,78,30,0,0,-30,0)
		
        FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @coord_x = FXSpinner.new(matrix,4,$Target, FXDataTarget::ID_VALUE,
       SPIN_CYCLIC|FRAME_SUNKEN|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_FILL_ROW)
       @coord_x.range = -400..400
       @coord_x.connect(SEL_COMMAND){ 
	       $Posicao[0] = (Float(@coord_x.value)/100)
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
      }
      
       FXLabel.new(matrix, "Coordenada y:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
	       $Posicao[1]  = (Float(@coord_y.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix, "Coordenada Z:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       
       FXLabel.new(matrix, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
       FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
       matrix1 = FXMatrix.new(frame, 4,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,68,20,0,10,10,0)
	
       
       FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Altura = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Altura.range = 0..400
       @Altura.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@Altura.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
              
       FXLabel.new(matrix1, "Raio:",nil,LABEL_NORMAL,0,0,0,0,8,0,6,0)
       @Raio = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 0..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
       
       matrix2 = FXMatrix.new(frame, 6,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,0,10,10,0)
	
       FXLabel.new(matrix2, "Voltas:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Voltas= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Voltas.range = 0..400
       @Voltas.connect(SEL_COMMAND){ 
	       $viewer.selection.loops = @Voltas.value
	       $viewer.update
	       $viewer.repaint
	}	

	FXLabel.new(matrix2, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Fatias= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Fatias.range = 3..400
       @Fatias.connect(SEL_COMMAND){ 
	       $viewer.selection.slices = @Fatias.value
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix2, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Pilhas= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range = 0..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}

	FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
	matrix3 = FXMatrix.new(frame, 1,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,140,10,10,0,0,0)
		
	 sair = FXButton.new(matrix3, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0,0,0,0,5,5,5,5)    
    end
end

class DialogoSetCilindro < FXDialogBox
  
   def getvalor()
	  $Posicao =$viewer.selection.position
	  @coord_x.setValue(Integer($Posicao[0]*100))
	  @coord_y.setValue(Integer($Posicao[1]*100))
	  @coord_z.setValue(Integer($Posicao[2]*100))
	  @Altura.setValue(Integer($viewer.selection.height*100))
	  @Raio.setValue(Integer($viewer.selection.radius*100))
	  @Fatias.setValue($viewer.selection.slices)
	  @Pilhas.setValue($viewer.selection.stacks)
	  @Voltas.setValue($viewer.selection.loops)
  end
  
  def initialize(owner)
    super(owner, "Alterar CILINDRO", DECOR_TITLE|DECOR_BORDER)
	
	FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,85,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,78,30,0,0,-30,0)
		
        FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @coord_x = FXSpinner.new(matrix,4,nil,0,
       SPIN_CYCLIC|FRAME_SUNKEN|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_FILL_ROW)
       @coord_x.range = -400..400
       @coord_x.connect(SEL_COMMAND){ 
	       $Posicao[0] = (Float(@coord_x.value)/100)
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
      }
           
      FXLabel.new(matrix, "Coordenada Y:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
	       $Posicao[1]  = (Float(@coord_y.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix, "Coordenada Z:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       
       FXLabel.new(matrix, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
       FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
       matrix1 = FXMatrix.new(frame, 4,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,68,20,0,10,10,0)
	
       
       FXLabel.new(matrix1, "Altura:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Altura = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Altura.range = 0..400
       @Altura.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@Altura.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
       
       FXLabel.new(matrix1, "Raio:",nil,LABEL_NORMAL,0,0,0,0,8,0,6,0)
       @Raio = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 0..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
       
	matrix2 = FXMatrix.new(frame, 6,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,20,20,0,10,10,0)
	
       FXLabel.new(matrix2, "Voltas:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Voltas= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Voltas.range = 0..400
       @Voltas.connect(SEL_COMMAND){ 
	       $viewer.selection.loops = @Voltas.value
	       $viewer.update
	       $viewer.repaint
	}	

	FXLabel.new(matrix2, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Fatias= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Fatias.range = 3..400
       @Fatias.connect(SEL_COMMAND){ 
	       $viewer.selection.slices = @Fatias.value
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix2, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Pilhas= FXSpinner.new(matrix2, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range = 0..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}

	FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
	matrix3 = FXMatrix.new(frame, 1,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,140,10,10,0,0,0)
		
	 sair = FXButton.new(matrix3, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0,0,0,0,5,5,5,5)    
    end
end

class DialogoSetEsfera < FXDialogBox
   def getvalor()
	  $Posicao =$viewer.selection.position
	  @coord_x.setValue(Integer($Posicao[0]*100))
	  @coord_y.setValue(Integer($Posicao[1]*100))
	  @coord_z.setValue(Integer($Posicao[2]*100))
	  @Raio.setValue(Integer($viewer.selection.radius*100))
	  @Fatias.setValue($viewer.selection.slices)
	  @Pilhas.setValue($viewer.selection.stacks)
 end
  
  def initialize(owner)
    super(owner, "Alterar ESFERA", DECOR_TITLE|DECOR_BORDER)
	
	FXLabel.new(self, "\"Posição do objeto na tela\"",nil,LABEL_NORMAL,0,0,0,0,85,0,0,10)
	frame = FXVerticalFrame.new(self,
        LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0,0, 0,0, 0, 0)
	
	matrix = FXMatrix.new(frame, 2,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,78,30,0,0,-30,0)
		
        FXLabel.new(matrix, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @coord_x = FXSpinner.new(matrix,4,$Target, FXDataTarget::ID_VALUE,
       SPIN_CYCLIC|FRAME_SUNKEN|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_FILL_ROW)
       @coord_x.range = -400..400
       @coord_x.connect(SEL_COMMAND){ 
	       $Posicao[0] = (Float(@coord_x.value)/100)
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
      }
      
       FXLabel.new(matrix, "Coordenada Y:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
	       $Posicao[1]  = (Float(@coord_y.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix, "Coordenada Z:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       	       
       FXLabel.new(matrix, "\"Propriedades do objeto\"",nil,LABEL_NORMAL,0,0,0,0,15,0,10,10)
       FXLabel.new(matrix, "",nil,LABEL_NORMAL)
            
       matrix1 = FXMatrix.new(frame, 6,
       MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0,0,0,0,20,20,0,10,10,0)
													      
       FXLabel.new(matrix1, "Raio:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Raio = FXSpinner.new(matrix1, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 0..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
        
	FXLabel.new(matrix1, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Fatias= FXSpinner.new(matrix1, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Fatias.range = 3..400
       @Fatias.connect(SEL_COMMAND){ 
	       $viewer.selection.slices = @Fatias.value
	       $viewer.update
	       $viewer.repaint
	}
	
	FXLabel.new(matrix1, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,0,0,6,0)
       @Pilhas= FXSpinner.new(matrix1, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range =0..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}
	
	FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
        FXHorizontalSeparator.new(frame,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	
	matrix3 = FXMatrix.new(frame, 1,
        MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,0,0,0,0,140,10,10,0,0,0)
		
	 sair = FXButton.new(matrix3, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y,0,0,0,0,5,5,5,5)    
    end
end

#definindo minha classe
class GLTestInicio< FXMainWindow

include Responder
  
  ID_QUERY_MODE = FXMainWindow::ID_LAST
  ID_GLVIEWER   = ID_QUERY_MODE + 1
  
  
   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] = 0.0
	$Vet[3] = $Vet[4] = $Vet[5]=0.05
	$viewer.update
        $viewer.repaint
   end 
     
  def loadIcon(filename)
	begin
		filename = File.join("icons", filename) + ".png"
		icon = nil
		File.open(filename, "rb") { |f|
		icon = FXPNGIcon.new(getApp(), f.read)}
		rescue
		      raise RuntimeError, "Icones não encontrados"
	end
  end

  def excluirobjeto()
	begin
		if $viewer.selection != nil
			$gp2.remove($viewer.selection)
			$viewer.update
			$viewer.selection = nil
		end
	end
  end
  
  def VerificaObjeto()
	 aux_string =  String.new("xxxx")
	begin 
		string = String($viewer.selection)
		if $viewer.selection != nil then
			if string.length() == 30 then
				@dialogoSetcilindro.getvalor()
				@dialogoSetcilindro.show
				@dialogoSetcilindro.execute(0)
			end
			if string.length() == 28 then
				@dialogoSetesfera.getvalor()
				@dialogoSetesfera.show
				@dialogoSetesfera.execute(0)
			end	
			if string.length() == 26 then
				aux_string[0] = string[11]
				aux_string[1] = string[12]
				aux_string[2] = string[13]
				aux_string[3] = string[14]
				if  aux_string == "Cube" then
					@dialogoSetcubo.getvalor()
					@dialogoSetcubo.show
					@dialogoSetcubo.execute(0)		
				 else
					@dialogoSetcone.getvalor()
					@dialogoSetcone.show
					@dialogoSetcone.execute(0)
				 end
			end	
		end	 
     end  
  end  #<Fox::FXGLCone
  
  def RGBconverteFXVec4f(fxcolor)
	  begin
	        vet = FXVec4f.new(0.0,0.0,0.0,0.0)
		vet[0] = Float((fxcolor&255))/255
		vet[1] = Float((fxcolor&65280))/65280
		vet[2] = Float((fxcolor&16711680))/16711680
		vet[3] = Float((fxcolor&4278190080))/4278190080
		return vet
	  end
  end
#inicializa a classe GLTestInicio
def initialize(app)
	
	#define nome e tamanho da janela
	super(app, "Ferramenta multi-interface para a modelagem de objetos 3D", nil, nil, DECOR_ALL, 0, 0, 750, 500)
	
	#identifier :VIEWER
	
	# FXMAPFUNC(SEL_UPDATE,  GLTestInicio::ID_QUERY_MODE, :onUpdMode)
 	FXMAPFUNC(SEL_UPDATE, FXWindow::ID_QUERY_MENU,	:MenuMouse)
	 #FXMAPFUNC(SEL_LEFTBUTTONPRESS,   ID_GLVIEWER, :onMouseDown)
								#selection  FXGLViewer   ID_MDI_MINIMIZE
	
	FXMAPFUNC(SEL_COMMAND, ID_GLVIEWER,	:onMouseDown)
	
	
	#icone do software
	principal = loadIcon("principal")
        setIcon(principal)
	
	#rodape
	FXToolTip.new(self.getApp(),0)
	
	#icones
	@novo = loadIcon("novo")
	@salvar = loadIcon("salvar")
	@abrir = loadIcon("abrir")
	@excluir = loadIcon("excluir")
	@imprimir = loadIcon("imprimir")
        @cubo = loadIcon("cubo")
        @esfera = loadIcon("esfera")
	@cone = loadIcon("cone")
	@cilindro = loadIcon("cilindro")
	@copiar = loadIcon("copiar")
	@colar = loadIcon("colar")
	@recortar = loadIcon("recortar")
	@ajuda = loadIcon("ajuda")
	@cor = loadIcon("cor")
	@limpar = loadIcon("limpar")
	@avancar = loadIcon("avancar")
	@retroceder = loadIcon("retroceder")
	@perspectiva = loadIcon("perspectivo")
	@paralela = loadIcon("paralelo")
	
	
	statusbar = FXStatusBar.new(self,
        LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
	
	# Menu bar
	menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
    	FXHorizontalSeparator.new(self,  LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
   	toolbar = FXToolBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X,0, 0, 0, 0, 4, 4, 0, 0, 0, 0)
	FXHorizontalSeparator.new(self,  LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
   	
	# 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,-500, 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", principal,
	@mdimenu, MDI_NORMAL, 0, 0, 700,200)
	
	@glvisual = FXGLVisual.new(getApp(), VISUAL_DOUBLEBUFFER)

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

	$viewer =  FXGLViewer.new(mdichild, @glvisual, self, ID_GLVIEWER,
	LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
   	#@vet = FXVec4f.new(1,1,1,0)
	#$viewer.setBackgroundColor(@vet)
	
       # Make a scene!
	@scene = FXGLGroup.new
	$gp2 = FXGLGroup.new
	@scene.append($gp2)
	# Add scene to GL viewer
        $viewer.scene = @scene
	
	# menu arquivo	 
	filemenu = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Arquivo\t\tOpções de arquivo", nil, filemenu)
	FXMenuCommand.new(filemenu, "Novo\t\tCria uma nova janela de visualização", @novo)
	FXMenuCommand.new(filemenu, "Abrir\t\tAbrir arquivo", @abrir)
	FXMenuCommand.new(filemenu, "Salvar\t\tSalvar arquivo", @salvar)
	FXMenuCommand.new(filemenu, "Imprimir\t\tImprimir arquivo", @imprimir)
	FXHorizontalSeparator.new(filemenu,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXHorizontalSeparator.new(filemenu,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXMenuCommand.new(filemenu, "Sair\t\tFinalizar o programa", nil, getApp(), FXApp::ID_QUIT)
	
	#menuEditar
	editarmenu =FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Editar\t\tOpções de editar objetos", nil, editarmenu)
	FXMenuCommand.new(editarmenu, "Copiar\t\tCria uma copia do objeto selecionado",@copiar)
        FXMenuCommand.new(editarmenu, "Colar\t\tCola um objeto, previamente copiado ou recortado",@colar)
	FXMenuCommand.new(editarmenu, "Recortar\t\tRecortar Objeto Selecionado\tRecorta o objeto selecionado",@recortar)
	propriedade=FXMenuCommand.new(editarmenu, "Propriedades\t\tAltera propriedades do objeto",@copiar)
        FXMenuCommand.new(editarmenu, "Cor\t\tAbre uma caixa de dialogo para seleção de cores",@cor)
	#menu editar ações
	propriedade.connect(SEL_COMMAND){VerificaObjeto()}
	
	#Menu criar
	opcaomenu =FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Criar\t\tCriar Objeto", nil, opcaomenu)
	menu_cilindro=FXMenuCommand.new(opcaomenu , "Cilindro       \tShift i\tCria um cilindro ",@cilindro)
        menu_cone=FXMenuCommand.new(opcaomenu , "Cone              \tShift o\tCria um cone",@cone)
	menu_cube=FXMenuCommand.new(opcaomenu , "Cubo              \tShift c\tCria um cubo",@cubo)
        menu_esfera=FXMenuCommand.new(opcaomenu , "Esfera           \tShift e\tCria uma esfera",@esfera)
        #menu criar ações
       menu_cilindro.connect(SEL_COMMAND) {		
		@dialogocilindro.show
		@dialogocilindro.execute(0)
	}
	menu_cone.connect(SEL_COMMAND) {
		@dialogocone.show
		@dialogocone.execute(0)
	}
	 menu_cube.connect(SEL_COMMAND) {
		@dialogocubo.show
		@dialogocubo.execute(0)
	}
	 menu_esfera.connect(SEL_COMMAND) {
		@dialogoesfera.show
		@dialogoesfera.execute(0)
	}	
	
	#menu de vizualizações
	rendermenu = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Visualização\t\tSelecionar tipos de visualizações do objeto", nil, rendermenu)
	FXMenuCommand.new(rendermenu, "Pontos\t\tPontos", nil,
        @mdiclient, FXGLShape::ID_STYLE_POINTS, MENU_AUTOGRAY)
	FXMenuCommand.new(rendermenu, "Armação\t\tArmação", nil,
        @mdiclient, FXGLShape::ID_STYLE_WIREFRAME, MENU_AUTOGRAY)
	FXMenuCommand.new(rendermenu, "Superfície sólida\t\tSuperfície sólida", nil,
        @mdiclient, FXGLShape::ID_STYLE_SURFACE, MENU_AUTOGRAY)
		
	#  menu de visualização
	viewmenu = FXMenuPane.new(self)
        FXMenuTitle.new(menubar, "V&isualizar", nil, viewmenu)
        FXMenuCommand.new(viewmenu,"Paralela      \tCtl-P\tMudar a projeção para paralela.", @paralela,
        @mdiclient, FXGLViewer::ID_PARALLEL, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu,"Perspectiva   \tCtl-R\tMudar a projeção para perspectiva.", @perspectiva,
        @mdiclient, FXGLViewer::ID_PERSPECTIVE, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Frente       \tCtl-F\tVisualização para frente.", nil,
        @mdiclient, FXGLViewer::ID_FRONT, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Atrás        \tCtl-A\tVisuzalização para trás.", nil,
        @mdiclient, FXGLViewer::ID_BACK, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Esquerda     \tCtl-E\tVisualização para esquerda.", nil,
        @mdiclient, FXGLViewer::ID_LEFT, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Direita      \tCtl-D\tVisualização para direita.", nil,
        @mdiclient, FXGLViewer::ID_RIGHT, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Topo         \tCtl-T\tVisualização para o topo.", nil,
        @mdiclient, FXGLViewer::ID_TOP, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "F&undo        \tCtl-U\tVisuzalização para o fundo.", nil,
        @mdiclient, FXGLViewer::ID_BOTTOM, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "A&justar      \tCtl-J\tAjustar a visualização.", nil,
        @mdiclient, FXGLViewer::ID_FITVIEW, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "R&eajuste     \tCtl-E\tReajusta tudo vendo os parâmetros", nil,
        @mdiclient, FXGLViewer::ID_RESETVIEW, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Zoom         \tCtl-Z\tZoom na área de visualização", nil,
        @mdiclient, FXGLViewer::ID_LASSO_ZOOM, MENU_AUTOGRAY)
        FXMenuCommand.new(viewmenu, "&Selecione    \tCtl-S\tZoom na área de visualização", nil,
        @mdiclient, FXGLViewer::ID_LASSO_SELECT, MENU_AUTOGRAY)
  
	#menu ajuda
	ajuda = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "A&juda\t\tAjuda e informações sobre o software", nil, ajuda)
	FXMenuCommand.new(ajuda , "Ajuda\t\tAjuda ao software",@ajuda)
	FXHorizontalSeparator.new(ajuda,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXHorizontalSeparator.new(ajuda,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	sobre = FXMenuCommand.new(ajuda, "Sobre o software\t\tInformações sobre o software",nil)	
	#menu ajuda ações
	sobre.connect(SEL_COMMAND) {
              FXMessageBox.information(self, MBOX_OK, "Sobre o software",
              " Projeto de Iniciação Científica\n\n Ferramenta Multi-Interface para a modelagem de objetos 3D\n\n Projeto financiado FIP \n Período: Fevereiro à Dezembro / 2005\n\n Alunos: Ana Luiza Dias\n              Geraldo Clézio Oliveira Júnior\n\n Orientador: Eduardo Barrére.")
        }

	#botões de icones
	novo = FXButton.new(toolbar, "\tNova janela de visualização\tCria uma nova janela de visualização",@novo,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	abrir = FXButton.new(toolbar, "\tAbrir janela de visualização\tAbre uma nova janela de visualização",@abrir,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	salvar = FXButton.new(toolbar, "\tSalvar o arquivo\tSalva o arquivo",@salvar,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	imprimir = FXButton.new(toolbar, "\tImprimir\tImprimir arquivo",@imprimir, nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	copiar = FXButton.new(toolbar,"\tCopiar Objeto Selecionado\tCria uma cópia do objeto selecionado",@copiar,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	recortar = FXButton.new(toolbar, "\tRecortar Objeto Selecionado\tRecorta o objeto selecionado",@recortar,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        colar = FXButton.new(toolbar,"\tColar Objeto\tCola um objeto, previamente copiado ou recortado",@colar,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	cilindro = FXButton.new(toolbar,"\tCilindro\tCria um cilindro",@cilindro,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        cone = FXButton.new(toolbar,"\tCone\tCria um cone",@cone,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        cubo = FXButton.new(toolbar,"\tCubo\tCria um cubo",@cubo,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        esfera = FXButton.new(toolbar,"\tEsfera\tCria uma esfera",@esfera,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXButton.new(toolbar, "\tPerspectiva\tVisualiza a projeção como perspectiva.",
        @perspectiva, @mdiclient, FXGLViewer::ID_PERSPECTIVE,BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        FXButton.new(toolbar, "\tParalela\tVisualiza a projeção como paralela.",
        @paralela, @mdiclient, FXGLViewer::ID_PARALLEL,BUTTON_AUTOGRAY|FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
  	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	retroceder = FXButton.new(toolbar, "\tRetroceder\tRetrocede para última modificação\tRetroceder",@retroceder, nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)  
	excluir = FXButton.new(toolbar, "\tExcluir objeto\tExclui objeto selecionado\tExclui o objeto selecionado",@excluir, nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	limpar = FXButton.new(toolbar, "\tLimpar tela\tLimpa toda a tela\tLimpa toda a tela",@limpar, nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	cor = FXButton.new(toolbar, "\tMenus de Opções de Cores\tAbre uma caixa de diálogo para seleção de cores",@cor,nil,0,
	FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	ajuda = FXButton.new(toolbar, "\tAjuda\tAjuda",@ajuda,nil,0,
        FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	#botões de icones ações
	excluir.connect(SEL_COMMAND){excluirobjeto()}
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	FXVerticalSeparator.new(toolbar,LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X);
	#botões de icones ações
	cilindro.connect(SEL_COMMAND){
		atualiza(2)
	}
	cone.connect(SEL_COMMAND){
		atualiza(3)
	}
	cubo.connect(SEL_COMMAND){
		atualiza(1) 
	}
	esfera.connect(SEL_COMMAND){
		atualiza(4)
	}	
	retroceder.connect(SEL_COMMAND){
	}
	excluir.connect(SEL_COMMAND){
		excluirobjeto()
	}
	limpar.connect(SEL_COMMAND){
		$gp2.clear()
		$viewer.update
		$viewer.repaint
	}
	cor.connect(SEL_COMMAND){
		@dialogoCor.position(40,40,520,220) 
		@dialogoCor.show  #SEL_CHANGED
		@dialogoCor.connect(SEL_COMMAND){
			if $viewer.selection == nil then
				$viewer.setBackgroundColor(RGBconverteFXVec4f(@dialogoCor.getRGBA()))
				@a= RGBconverteFXVec4f(@dialogoCor.getRGBA()) 
			else
				$Material = $viewer.selection.getMaterial(1)
				$Material.ambient    = RGBconverteFXVec4f(@dialogoCor.getRGBA())
				$Material.diffuse  = RGBconverteFXVec4f(@dialogoCor.getRGBA())
				#$Material.specular    = RGBconverteFXVec4f(@dialogoCor.getRGBA()) 
				#$Material.emission    = RGBconverteFXVec4f(@dialogoCor.getRGBA()) 
				$viewer.selection.setMaterial(0,$Material)
				$viewer.update
				#print"\nteste ",@dialogoCor.app.setBorderColor(4000000080) #     appName#text
			end
			
		}
	}		
	$texto = FXLabel.new(frame2, "teste",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
	
	
	#opções da camera
	@Camera = Camera.new()
	@Camera.camera(frame2,@mdiclient)	
		
	#caixas de dialogo
	@dialogocubo = DialogoCubo.new(self)
	@dialogocone = DialogoCone.new(self)
	@dialogocilindro = DialogoCilindro.new(self)
	@dialogoesfera = DialogoEsfera.new(self)
	@dialogoSetcubo = DialogoSetCubo.new(self)
	@dialogoSetcone = DialogoSetCone.new(self)
	@dialogoSetcilindro = DialogoSetCilindro.new(self)
	@dialogoSetesfera = DialogoSetEsfera.new(self)
	@dialogoCor = FXColorDialog.new(self, "Opções de Cores",1, DECOR_TITLE|DECOR_BORDER)
	

       


end#final de initialize

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

def MenuMouse(sender, sel, event)
      pane = FXMenuPane.new(self)
      FXMenuCommand.new(pane, "Paralela\t\tVisualiza a projeção como paralela.",
      @paralela, sender, FXGLViewer::ID_PARALLEL)
      FXMenuCommand.new(pane, "Perspectiva\t\tVisualiza a projeção como perspectiva.",
      @perspectiva, sender, FXGLViewer::ID_PERSPECTIVE)
      FXMenuSeparator.new(pane)
      FXMenuCommand.new(pane, "Frente\t\tVisualização para frente.", nil,
      sender,FXGLViewer::ID_FRONT)
      FXMenuCommand.new(pane, "Atrás \t\tVisuzalização para trás.", nil,
      sender, FXGLViewer::ID_BACK)
      FXMenuCommand.new(pane, "Esquerda \t\tVisualização para esquerda.", nil,
      sender, FXGLViewer::ID_LEFT)
      FXMenuCommand.new(pane, "Direita \t\tVisualização para direita.", nil,
      sender, FXGLViewer::ID_RIGHT)
      FXMenuCommand.new(pane, "Topo\t\tVisualização para o topo.", nil,
      sender, FXGLViewer::ID_TOP)
      FXMenuCommand.new(pane, "Fundo\t\tVisuzalização para o fundo.", nil,
      sender, FXGLViewer::ID_BOTTOM)
      FXMenuSeparator.new(pane)
      FXMenuCommand.new(pane, "Ajustar\t\tAjustar a visualização.", nil,
      sender, FXGLViewer::ID_FITVIEW)
      FXMenuCommand.new(pane, "Reajustar\t\tReajusta tudo vendo os parâmetros.", nil,
      sender, FXGLViewer::ID_RESETVIEW)
      FXMenuCommand.new(pane, "teste geraldo\t\tteste geraldo.", nil,
     nil,onMouse)
      
      pane.create
      pane.popup(nil, event.root_x, event.root_y)
      getApp().runModalWhileShown(pane)
      print"\nteste evento ",event.click_count#click_time 
    return 1
  end
 
 def onMouse()
    print"\nbota precionado teste 1"#,event.click_time 
    #  FXCommand.new()
    
    return 1
  end
  
def onMouseDown(sender, sel, ptr)
   @vet = FXVec4f.new(0,0,0,0)
   print"\nbotao esquerdo precionado teste 2>> "#,ptr.click_count
    if $viewer.selection != nil then
    print"\n objeto>> ",$viewer.selection
    $Material = $viewer.selection.getMaterial(1)
   # print"\n anbiente",String($viewer.selection.material.ambient) 
   #@vet = $Material.ambient
    #$texto.text = "anbiente :" + String(@vet)
    # $texto.text = "anbiente :" + String($Material.ambient)
   
   # print"\n anbiente",String($Material.ambient) 
    $Material.ambient =@vet
    $Material.diffuse = @vet
    
    $viewer.selection.setMaterial(0,$Material)
    
    end
 
    
    return 1
  end

def onUpdMode(sender, sel, ptr)
    sender.text = "Ferramenta."
  end

end#final de clase

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

	$principal = GLTestInicio.new(application)
	application.create
	application.run
end