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


class DialogoCubo < FXDialogBox
  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 = 5..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 = 5..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 = 5..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
	$principal.atualiza(1) 
	}
	
	# Sair
        sair = FXButton.new(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
  end
end

class DialogoCone < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criação do Cone", 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 Cone",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, "Altura pixels:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       larg = FXSpinner.new(matrix, 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(matrix, "Raio da Base pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       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[4] = (Float(raio.value)/100) }
       
       
       localbotaoCone = FXVerticalFrame.new(matrix, (FRAME_SUNKEN|LAYOUT_FILL_Y|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0, 0, 0, 0, 0, 0)
	     
       botaoCone=FXButton.new(localbotaoCone, "&Criar Cone", 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(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
  end
end

class DialogoCilindro < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criação do Cilindro", 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 Cilindro",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, "Altura pixels:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       larg = FXSpinner.new(matrix, 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(matrix, "Raio do Cilindro pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       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[4] = (Float(raio.value)/100) }
       
       
       localbotaoCilindro = FXVerticalFrame.new(matrix, (FRAME_SUNKEN|LAYOUT_FILL_Y|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0, 0, 0, 0, 0, 0)
	     
       botaoCilindro=FXButton.new(localbotaoCilindro, "&Criar Cilindro", nil,nil,
       FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 10, 10, 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(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
  end
end

class DialogoEsfera < FXDialogBox
  def initialize(owner)
    # Invoke base class initialize function first
    super(owner, "Criação da Esfera", 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 Esfera",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, "Raio do Esfera pixels:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       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) }
       
       
       localbotaoEsfera = FXVerticalFrame.new(matrix, (FRAME_SUNKEN|LAYOUT_FILL_Y|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0, 0, 0, 0, 0, 0)
	     
       botaoEsfera=FXButton.new(localbotaoEsfera, "&Criar Esfera", nil,nil,
       FXWindow::ID_SHOW, (FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|
       LAYOUT_TOP|LAYOUT_LEFT), 0, 0, 0,0, 10, 10, 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(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
  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 Propriedades do Cubo", DECOR_TITLE|DECOR_BORDER)
     
        matrix = FXMatrix.new(self, 4,
        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, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @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, "Largura (x) :",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 = 5..400
	@larg_x.connect(SEL_COMMAND){ 
	       $viewer.selection.width = (Float(@larg_x.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
       
      FXLabel.new(matrix, "Coordenada y:",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){ 
	       $Posicao[1]  = (Float(@coord_y.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
	}
       
         FXLabel.new(matrix, "Altura (y):",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 = 5..400
       @larg_y.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@larg_y.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
      
       FXLabel.new(matrix, "Coordenada Z:",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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       }     
 
       FXLabel.new(matrix, "Profundidade(z):",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 = 5..400
       @larg_z.connect(SEL_COMMAND){ 
	       $viewer.selection.depth = (Float(@larg_z.value)/100)
	       $viewer.update
	       $viewer.repaint
	}	

        sair = FXButton.new(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
 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 Propriedades do Cone", DECOR_TITLE|DECOR_BORDER)
	
	matrix = FXMatrix.new(self, 6,
        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, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @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,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){ 
	       $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,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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       
	  FXLabel.new(matrix, "Altura (y):",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Altura = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Altura.range = 5..400
       @Altura.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@Altura.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
       
       FXLabel.new(matrix, "Raio  (Base em x) :",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @Raio = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 5..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
 
       FXLabel.new(matrix, "Voltas:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Voltas= FXSpinner.new(matrix, 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(matrix, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Fatias= FXSpinner.new(matrix, 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(matrix, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Pilhas= FXSpinner.new(matrix, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range = 1..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}

        sair = FXButton.new(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)    
    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 Propriedades do Cilindro", DECOR_TITLE|DECOR_BORDER)
	
	matrix = FXMatrix.new(self, 6,
        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, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @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,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){ 
	       $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,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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       
	  FXLabel.new(matrix, "Altura (y):",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Altura = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Altura.range = 5..400
       @Altura.connect(SEL_COMMAND){ 
	       $viewer.selection.height = (Float(@Altura.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }
       
       FXLabel.new(matrix, "Raio  (Base em x) :",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @Raio = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 5..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
 
       FXLabel.new(matrix, "Voltas:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Voltas= FXSpinner.new(matrix, 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(matrix, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Fatias= FXSpinner.new(matrix, 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(matrix, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Pilhas= FXSpinner.new(matrix, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range = 1..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}

        sair = FXButton.new(matrix, "&Sair", nil, self, ID_CANCEL,
        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)    
    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 Propriedades do Cilindro", DECOR_TITLE|DECOR_BORDER)
	
	matrix = FXMatrix.new(self, 6,
        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, "Coordenada X:",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @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,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){ 
	       $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,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){ 
              $Posicao[2]  = (Float(@coord_z.value)/100) 
	       $viewer.selection.position = $Posicao
	       $viewer.update
	       $viewer.repaint
       } 
       	       
       FXLabel.new(matrix, "Raio  (Base em x) :",nil,LABEL_NORMAL,0,0,0,0,10,10,2,10)
       @Raio = FXSpinner.new(matrix, 4,nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Raio.range = 5..400
	@Raio.connect(SEL_COMMAND){ 
	       $viewer.selection.radius = (Float(@Raio.value)/100) 
	       $viewer.update
	       $viewer.repaint
       }     
        
	FXLabel.new(matrix, "Fatias:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Fatias= FXSpinner.new(matrix, 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(matrix, "Pilhas:",nil,LABEL_NORMAL,0,0,0,0,10,0,2,10)
       @Pilhas= FXSpinner.new(matrix, 4, nil,0,
       SPIN_NORMAL|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_TOP)
       @Pilhas.range = 2..400
       @Pilhas.connect(SEL_COMMAND){ 
	       $viewer.selection.stacks = @Pilhas.value
	       $viewer.update
	       $viewer.repaint
	}

        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 atualiza(opcao)
	case (opcao)
		when 1: $gp2.append($cu=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,550, 550)
	
	$testecopia = FXGLObject.new()
	@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")
		 
	# Menu bar
	menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
    	filemenu = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Arquivo", nil, filemenu)
	FXMenuCommand.new(filemenu, "Novo", @novo)
	FXMenuCommand.new(filemenu, "Abrir", @abrir)
	FXMenuCommand.new(filemenu, "Salvar", @salvar)
	FXMenuCommand.new(filemenu, "Imprimir", @imprimir)
	FXMenuCommand.new(filemenu, "Sair", nil, getApp(), FXApp::ID_QUIT)
	
	editarmenu =FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "Editar", nil, editarmenu)
	FXMenuCommand.new(editarmenu, "Copiar",@copiar)
        FXMenuCommand.new(editarmenu, "Colar",@colar)
	FXMenuCommand.new(editarmenu, "Recortar",@recortar)
	propriedade=FXMenuCommand.new(editarmenu, "Propriedades",@copiar)
        propriedade.connect(SEL_COMMAND){
		
		VerificaObjeto()
	}
	
	FXMenuCommand.new(editarmenu, "Cor",@cor)
	opcaomenu =FXMenuPane.new(self)
	
	FXMenuTitle.new(menubar, "&Criar", nil, opcaomenu)
	menu_cube=FXMenuCommand.new(opcaomenu , "Cubo\tShift c",@cubo)
        menu_cube.connect(SEL_COMMAND) {
		@dialogocubo.show
		@dialogocubo.execute(0)
	}
	menu_esfera=FXMenuCommand.new(opcaomenu , "Esfera\tShift e",@esfera)
        menu_esfera.connect(SEL_COMMAND) {
		@dialogoesfera.show
		@dialogoesfera.execute(0)
	}
	menu_cone=FXMenuCommand.new(opcaomenu , "Cone\tShift o",@cone)
	menu_cone.connect(SEL_COMMAND) {
		@dialogocone.show
		@dialogocone.execute(0)
	}
	menu_cilindro=FXMenuCommand.new(opcaomenu , "Cilindro\tShift i",@cilindro)
        menu_cilindro.connect(SEL_COMMAND) {		
		@dialogocilindro.show
		@dialogocilindro.execute(0)
	}
			
	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)
	novo = FXButton.new(toolbar, nil,@novo,nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	copiar = FXButton.new(toolbar, nil,@copiar,nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
      	colar = FXButton.new(toolbar, nil,@colar,nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
         recortar = FXButton.new(toolbar, nil,@recortar,nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        excluir = FXButton.new(toolbar, "\tDelete",@excluir, nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
        excluir.connect(SEL_COMMAND){excluirobjeto()}
	
	cor = FXButton.new(toolbar, "\tColors\tDisplay color dialog.",@cor,nil,0,
	BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	cor.connect(SEL_COMMAND){
		#print"iden ",$viewer.selection#.identify()#setTipText("+ID_STYLE_WIREFRAME+::true")  #getClassName()  
		#$viewer.selection.setBackColor(@dialogoCor.getRGBA())
		@dialogoCor.position(40,40,520,220) 
		@dialogoCor.show  #SEL_CHANGED
		@dialogoCor.connect(SEL_COMMAND){
		print"\nteste>> ",@dialogoCor.acceptButton() 
			if $viewer.selection == nil
				$viewer.setBackgroundColor(RGBconverteFXVec4f(@dialogoCor.getRGBA()))
				#print"\nteste>> ",@dialogoCor.didAccept() 
			end
		}
	}		
	
	ajuda = FXButton.new(toolbar, nil,@ajuda,nil,0,
        BUTTON_TOOLBAR| FRAME_THICK|FRAME_RAISED|LAYOUT_TOP|LAYOUT_LEFT)
	
	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", @mdiicon,
	@mdimenu, MDI_NORMAL, 0, 0, 400, 250)
	
	@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)
   	
       # Make a scene!
	@scene = FXGLGroup.new
	$gp2 = FXGLGroup.new
	@scene.append($gp2)
	# Add scene to GL viewer
        $viewer.scene = @scene
		
	rendermenu = FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "Visualização", nil, rendermenu)
	FXMenuCommand.new(rendermenu, "Pontos", nil,
        @mdiclient, FXGLShape::ID_STYLE_POINTS, MENU_AUTOGRAY)
	FXMenuCommand.new(rendermenu, "Armação", nil,
        @mdiclient, FXGLShape::ID_STYLE_WIREFRAME, MENU_AUTOGRAY)
	FXMenuCommand.new(rendermenu, "Superfície sólida", nil,
        @mdiclient, FXGLShape::ID_STYLE_SURFACE, MENU_AUTOGRAY)
	
	ajuda =FXMenuPane.new(self)
	FXMenuTitle.new(menubar, "&Ajuda", nil, ajuda)
	FXMenuCommand.new(ajuda , "Ajuda",@ajuda)
	FXMenuCommand.new(ajuda, "Sobre",nil)
		
	#dialogocubo
	@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)
	@texto = FXLabel.new(frame2, "",nil,LABEL_NORMAL,0,0,0,0,0,0,10,0)
	
	
	#CURSOR_MOVE SEL_MOUSEWHEEL SEL_MOTION
    $viewer.connect(SEL_MOUSEWHEEL) do
	 print"\n teste ",$viewer.selection#$cursor.isColor()   
	 @texto.text = "ID:" + String($viewer.selection.getTipText())
        
    end   
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

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