1. ------------------------------------------------------------------------- 
  2.  --  GL.Geometry - GL geometry primitives 
  3.  -- 
  4.  --  Copyright (c) Rod Kay 2007 
  5.  --  AUSTRALIA 
  6.  --  Permission granted to use this software, without any warranty, 
  7.  --  for any purpose, provided this copyright note remains attached 
  8.  --  and unmodified if sources are distributed further. 
  9.  ------------------------------------------------------------------------- 
  10.  
  11.  -- with GLUT; 
  12.  
  13.  -- with Ada.Text_IO; 
  14.  -- with Ada.Numerics.Generic_Elementary_functions; 
  15.  -- with Ada.Strings.Unbounded; 
  16.  -- with Ada.Unchecked_Deallocation; 
  17.  
  18. package body GL.Skinned_Geometry is 
  19.  
  20.    use GL.Geometry, GL.Skins; 
  21.  
  22.    procedure Destroy (Self : in out Skinned_Geometry_t) is 
  23.  
  24.    begin 
  25.       Free (Self.Geometry); 
  26.       Free (Self.Skin); 
  27.       Free (Self.Veneer); 
  28.    end Destroy; 
  29.  
  30. end GL.Skinned_Geometry;