<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ --> <title>Graphics/UI/GLUT/Objects.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-2"></a><span class='hs-comment'>-- |</span> <a name="line-3"></a><span class='hs-comment'>-- Module : Graphics.UI.GLUT.Objects</span> <a name="line-4"></a><span class='hs-comment'>-- Copyright : (c) Sven Panne 2002-2005</span> <a name="line-5"></a><span class='hs-comment'>-- License : BSD-style (see the file libraries/GLUT/LICENSE)</span> <a name="line-6"></a><span class='hs-comment'>--</span> <a name="line-7"></a><span class='hs-comment'>-- Maintainer : sven.panne@aedion.de</span> <a name="line-8"></a><span class='hs-comment'>-- Stability : stable</span> <a name="line-9"></a><span class='hs-comment'>-- Portability : portable</span> <a name="line-10"></a><span class='hs-comment'>--</span> <a name="line-11"></a><span class='hs-comment'>-- GLUT includes a number of routines for generating easily recognizable 3D</span> <a name="line-12"></a><span class='hs-comment'>-- geometric objects. These routines reflect functionality available in the</span> <a name="line-13"></a><span class='hs-comment'>-- @aux@ toolkit described in the /OpenGL Programmer\'s Guide/ and are included</span> <a name="line-14"></a><span class='hs-comment'>-- in GLUT to allow the construction of simple GLUT programs that render</span> <a name="line-15"></a><span class='hs-comment'>-- recognizable objects. These routines can be implemented as pure OpenGL</span> <a name="line-16"></a><span class='hs-comment'>-- rendering routines. The routines do not generate display lists for the</span> <a name="line-17"></a><span class='hs-comment'>-- objects they create. The routines generate normals appropriate for lighting</span> <a name="line-18"></a><span class='hs-comment'>-- but do not generate texture coordinates (except for the teapot).</span> <a name="line-19"></a><span class='hs-comment'>--</span> <a name="line-20"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-21"></a> <a name="line-22"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>GLUT</span><span class='hs-varop'>.</span><span class='hs-conid'>Objects</span> <span class='hs-layout'>(</span> <a name="line-23"></a> <span class='hs-comment'>-- * Rendering flavour</span> <a name="line-24"></a> <span class='hs-conid'>Flavour</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-25"></a> <a name="line-26"></a> <span class='hs-comment'>-- * Object description</span> <a name="line-27"></a> <span class='hs-conid'>Object</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-28"></a> <a name="line-29"></a> <span class='hs-comment'>-- * Type synonyms</span> <a name="line-30"></a> <span class='hs-conid'>Sides</span><span class='hs-layout'>,</span> <span class='hs-conid'>Rings</span><span class='hs-layout'>,</span> <span class='hs-conid'>NumLevels</span><span class='hs-layout'>,</span> <a name="line-31"></a> <a name="line-32"></a> <span class='hs-comment'>-- * Rendering</span> <a name="line-33"></a> <span class='hs-varid'>renderObject</span> <a name="line-34"></a><span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-35"></a> <a name="line-36"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>C</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span> <span class='hs-layout'>(</span> <span class='hs-conid'>CInt</span> <span class='hs-layout'>)</span> <a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Marshal</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span> <span class='hs-layout'>(</span> <span class='hs-varid'>with</span> <span class='hs-layout'>)</span> <a name="line-38"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>)</span> <a name="line-39"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>BasicTypes</span> <span class='hs-layout'>(</span> <span class='hs-conid'>GLint</span><span class='hs-layout'>,</span> <span class='hs-conid'>GLdouble</span> <span class='hs-layout'>)</span> <a name="line-40"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GL</span><span class='hs-varop'>.</span><span class='hs-conid'>VertexSpec</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Vertex3</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-41"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>OpenGL</span><span class='hs-varop'>.</span><span class='hs-conid'>GLU</span><span class='hs-varop'>.</span><span class='hs-conid'>Quadrics</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Radius</span><span class='hs-layout'>,</span> <span class='hs-conid'>Height</span><span class='hs-layout'>,</span> <span class='hs-conid'>Slices</span><span class='hs-layout'>,</span> <span class='hs-conid'>Stacks</span> <span class='hs-layout'>)</span> <a name="line-42"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>GLUT</span><span class='hs-varop'>.</span><span class='hs-conid'>Extensions</span> <a name="line-43"></a> <a name="line-44"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-45"></a> <a name="line-46"></a><span class='hs-cpp'>#include "HsGLUTExt.h"</span> <a name="line-47"></a> <a name="line-48"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-49"></a> <a name="line-50"></a><span class='hs-comment'>-- | Flavour of object rendering</span> <a name="line-51"></a> <a name="line-52"></a><a name="Flavour"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Flavour</span> <a name="line-53"></a> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- | Object is rendered as a solid with shading and surface normals.</span> <a name="line-54"></a> <span class='hs-conid'>Solid</span> <a name="line-55"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | Object is rendered as a wireframe without surface normals.</span> <a name="line-56"></a> <span class='hs-conid'>Wireframe</span> <a name="line-57"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-58"></a> <a name="line-59"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-60"></a> <a name="line-61"></a><span class='hs-comment'>-- | GLUT offers five types of objects:</span> <a name="line-62"></a><span class='hs-comment'>--</span> <a name="line-63"></a><span class='hs-comment'>-- * The five Platonic solids, see</span> <a name="line-64"></a><span class='hs-comment'>-- <<a href="http://mathworld.wolfram.com/PlatonicSolid.html">http://mathworld.wolfram.com/PlatonicSolid.html</a>>.</span> <a name="line-65"></a><span class='hs-comment'>--</span> <a name="line-66"></a><span class='hs-comment'>-- * A rhombic dodecahedron, see</span> <a name="line-67"></a><span class='hs-comment'>-- <<a href="http://mathworld.wolfram.com/RhombicDodecahedron.html">http://mathworld.wolfram.com/RhombicDodecahedron.html</a>>.</span> <a name="line-68"></a><span class='hs-comment'>--</span> <a name="line-69"></a><span class='hs-comment'>-- * Approximations to rounded objects.</span> <a name="line-70"></a><span class='hs-comment'>--</span> <a name="line-71"></a><span class='hs-comment'>-- * The classic teapot modeled by Martin Newell in 1975. Both surface normals</span> <a name="line-72"></a><span class='hs-comment'>-- and texture coordinates for the teapot are generated. The teapot is</span> <a name="line-73"></a><span class='hs-comment'>-- generated with OpenGL evaluators.</span> <a name="line-74"></a><span class='hs-comment'>--</span> <a name="line-75"></a><span class='hs-comment'>-- * A Sierpinski sponge, see</span> <a name="line-76"></a><span class='hs-comment'>-- <<a href="http://mathworld.wolfram.com/Tetrix.html">http://mathworld.wolfram.com/Tetrix.html</a>>.</span> <a name="line-77"></a> <a name="line-78"></a><a name="Object"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Object</span> <a name="line-79"></a> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- | A cube centered at the modeling coordinates origin with sides of the</span> <a name="line-80"></a> <span class='hs-comment'>-- given length.</span> <a name="line-81"></a> <span class='hs-conid'>Cube</span> <span class='hs-conid'>Height</span> <a name="line-82"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A dodecahedron (12-sided regular solid) centered at the modeling</span> <a name="line-83"></a> <span class='hs-comment'>-- coordinates origin with a radius of @sqrt 3@.</span> <a name="line-84"></a> <span class='hs-conid'>Dodecahedron</span> <a name="line-85"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A icosahedron (20-sided regular solid) centered at the modeling</span> <a name="line-86"></a> <span class='hs-comment'>-- coordinates origin with a radius of 1.0.</span> <a name="line-87"></a> <span class='hs-conid'>Icosahedron</span> <a name="line-88"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | Render a solid octahedron (8-sided regular solid) centered at the</span> <a name="line-89"></a> <span class='hs-comment'>-- modeling coordinates origin with a radius of 1.0.</span> <a name="line-90"></a> <span class='hs-conid'>Octahedron</span> <a name="line-91"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | Render a solid tetrahedron (4-sided regular solid) centered at the</span> <a name="line-92"></a> <span class='hs-comment'>-- modeling coordinates origin with a radius of @sqrt 3@.</span> <a name="line-93"></a> <span class='hs-conid'>Tetrahedron</span> <a name="line-94"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | (/freeglut only/) A rhombic dodecahedron whose corners are at most a</span> <a name="line-95"></a> <span class='hs-comment'>-- distance of one from the origin. The rhombic dodecahedron has faces</span> <a name="line-96"></a> <span class='hs-comment'>-- which are identical rhombi, but which have some vertices at which three</span> <a name="line-97"></a> <span class='hs-comment'>-- faces meet and some vertices at which four faces meet. The length of</span> <a name="line-98"></a> <span class='hs-comment'>-- each side is @(sqrt 3)\/2@. Vertices at which four faces meet are found</span> <a name="line-99"></a> <span class='hs-comment'>-- at @(0, 0, +\/-1)@ and @(+\/-(sqrt 2)\/2, +\/-(sqrt 2)\/2, 0)@.</span> <a name="line-100"></a> <span class='hs-conid'>RhombicDodecahedron</span> <a name="line-101"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A sphere centered at the modeling coordinates origin of the specified</span> <a name="line-102"></a> <span class='hs-comment'>-- radius. The sphere is subdivided around the Z axis into slices</span> <a name="line-103"></a> <span class='hs-comment'>-- (similar to lines of longitude) and along the Z axis into stacks</span> <a name="line-104"></a> <span class='hs-comment'>-- (similar to lines of latitude).</span> <a name="line-105"></a> <span class='hs-conid'>Sphere'</span> <span class='hs-conid'>Radius</span> <span class='hs-conid'>Slices</span> <span class='hs-conid'>Stacks</span> <a name="line-106"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A cone oriented along the Z axis. The base of the cone is placed at Z</span> <a name="line-107"></a> <span class='hs-comment'>-- = 0, and the top at Z = the given height. The cone is subdivided</span> <a name="line-108"></a> <span class='hs-comment'>-- around the Z axis into slices, and along the Z axis into stacks.</span> <a name="line-109"></a> <span class='hs-conid'>Cone</span> <span class='hs-conid'>Radius</span> <span class='hs-conid'>Height</span> <span class='hs-conid'>Slices</span> <span class='hs-conid'>Stacks</span> <a name="line-110"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- |(/freeglut only/) A cylinder oriented along the Z axis. The base of the</span> <a name="line-111"></a> <span class='hs-comment'>-- cylinder is placed at Z = 0, and the top at Z = the given height. The</span> <a name="line-112"></a> <span class='hs-comment'>-- cylinder is subdivided around the Z axis into slices, and along the Z</span> <a name="line-113"></a> <span class='hs-comment'>-- axis into stacks.</span> <a name="line-114"></a> <span class='hs-conid'>Cylinder'</span> <span class='hs-conid'>Radius</span> <span class='hs-conid'>Height</span> <span class='hs-conid'>Slices</span> <span class='hs-conid'>Stacks</span> <a name="line-115"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A torus (doughnut) centered at the modeling coordinates origin</span> <a name="line-116"></a> <span class='hs-comment'>-- whose axis is aligned with the Z axis. The torus is described by its</span> <a name="line-117"></a> <span class='hs-comment'>-- inner and outer radius, the number of sides for each radial section,</span> <a name="line-118"></a> <span class='hs-comment'>-- and the number of radial divisions (rings).</span> <a name="line-119"></a> <span class='hs-conid'>Torus</span> <span class='hs-conid'>Radius</span> <span class='hs-conid'>Radius</span> <span class='hs-conid'>Sides</span> <span class='hs-conid'>Rings</span> <a name="line-120"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- | A teapot with a given relative size.</span> <a name="line-121"></a> <span class='hs-conid'>Teapot</span> <span class='hs-conid'>Height</span> <a name="line-122"></a> <span class='hs-keyglyph'>|</span> <span class='hs-comment'>-- |(/freeglut only/) A Sierpinski sponge of a given level, where a level</span> <a name="line-123"></a> <span class='hs-comment'>-- 0 sponge is the same as a 'Tetrahedron'.</span> <a name="line-124"></a> <span class='hs-conid'>SierpinskiSponge</span> <span class='hs-conid'>NumLevels</span> <a name="line-125"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span> <span class='hs-layout'>)</span> <a name="line-126"></a> <a name="line-127"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-128"></a> <a name="line-129"></a><a name="Sides"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>Sides</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GLint</span> <a name="line-130"></a><a name="Rings"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>Rings</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GLint</span> <a name="line-131"></a><a name="NumLevels"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>NumLevels</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GLint</span> <a name="line-132"></a> <a name="line-133"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-134"></a> <a name="line-135"></a><span class='hs-comment'>-- | Render an object in the given flavour.</span> <a name="line-136"></a> <a name="line-137"></a><a name="renderObject"></a><span class='hs-definition'>renderObject</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Flavour</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Object</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-138"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cube</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidCube</span> <span class='hs-varid'>h</span> <a name="line-139"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cube</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireCube</span> <span class='hs-varid'>h</span> <a name="line-140"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-conid'>Dodecahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidDodecahedron</span> <a name="line-141"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-conid'>Dodecahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireDodecahedron</span> <a name="line-142"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-conid'>Icosahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidIcosahedron</span> <a name="line-143"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-conid'>Icosahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireIcosahedron</span> <a name="line-144"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-conid'>Octahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidOctahedron</span> <a name="line-145"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-conid'>Octahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireOctahedron</span> <a name="line-146"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-conid'>Tetrahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidTetrahedron</span> <a name="line-147"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-conid'>Tetrahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireTetrahedron</span> <a name="line-148"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-conid'>RhombicDodecahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>glutSolidRhombicDodecahedron</span> <a name="line-149"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-conid'>RhombicDodecahedron</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>glutWireRhombicDodecahedron</span> <a name="line-150"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Sphere'</span> <span class='hs-varid'>r</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidSphere</span> <span class='hs-varid'>r</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-151"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Sphere'</span> <span class='hs-varid'>r</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireSphere</span> <span class='hs-varid'>r</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-152"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cone</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidCone</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-153"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cone</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireCone</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-154"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cylinder'</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>glutSolidCylinder</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-155"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Cylinder'</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>glutWireCylinder</span> <span class='hs-varid'>r</span> <span class='hs-varid'>h</span> <span class='hs-varid'>s</span> <span class='hs-varid'>t</span> <a name="line-156"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Torus</span> <span class='hs-varid'>i</span> <span class='hs-varid'>o</span> <span class='hs-varid'>s</span> <span class='hs-varid'>r</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidTorus</span> <span class='hs-varid'>i</span> <span class='hs-varid'>o</span> <span class='hs-varid'>s</span> <span class='hs-varid'>r</span> <a name="line-157"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Torus</span> <span class='hs-varid'>i</span> <span class='hs-varid'>o</span> <span class='hs-varid'>s</span> <span class='hs-varid'>r</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireTorus</span> <span class='hs-varid'>i</span> <span class='hs-varid'>o</span> <span class='hs-varid'>s</span> <span class='hs-varid'>r</span> <a name="line-158"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>Teapot</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidTeapot</span> <span class='hs-varid'>h</span> <a name="line-159"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Teapot</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireTeapot</span> <span class='hs-varid'>h</span> <a name="line-160"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Solid</span> <span class='hs-layout'>(</span><span class='hs-conid'>SierpinskiSponge</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>solidSierpinskiSponge</span> <span class='hs-varid'>n</span> <a name="line-161"></a><span class='hs-definition'>renderObject</span> <span class='hs-conid'>Wireframe</span> <span class='hs-layout'>(</span><span class='hs-conid'>SierpinskiSponge</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wireSierpinskiSponge</span> <span class='hs-varid'>n</span> <a name="line-162"></a> <a name="line-163"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-164"></a> <a name="line-165"></a><span class='hs-comment'>-- | Render a solid cube centered at the modeling coordinates origin with sides</span> <a name="line-166"></a><span class='hs-comment'>-- of the given length.</span> <a name="line-167"></a> <a name="line-168"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidCube"</span> <span class='hs-varid'>solidCube</span> <a name="line-169"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Length of the cube sides</span> <a name="line-170"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-171"></a> <a name="line-172"></a><span class='hs-comment'>-- | Render a wireframe cube centered at the modeling coordinates origin with</span> <a name="line-173"></a><span class='hs-comment'>-- sides of the given length.</span> <a name="line-174"></a> <a name="line-175"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireCube"</span> <span class='hs-varid'>wireCube</span> <a name="line-176"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Length of the cube sides</span> <a name="line-177"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-178"></a> <a name="line-179"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-180"></a> <a name="line-181"></a><span class='hs-comment'>-- | Render a solid dodecahedron (12-sided regular solid) centered at the</span> <a name="line-182"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of @sqrt 3@.</span> <a name="line-183"></a> <a name="line-184"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidDodecahedron"</span> <span class='hs-varid'>solidDodecahedron</span> <span class='hs-keyglyph'>::</span> <a name="line-185"></a> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-186"></a> <a name="line-187"></a><span class='hs-comment'>-- | Render a wireframe dodecahedron (12-sided regular solid) centered at the</span> <a name="line-188"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of @sqrt 3@.</span> <a name="line-189"></a> <a name="line-190"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireDodecahedron"</span> <span class='hs-varid'>wireDodecahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-191"></a> <a name="line-192"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-193"></a> <a name="line-194"></a><span class='hs-comment'>-- | Render a solid icosahedron (20-sided regular solid) centered at the</span> <a name="line-195"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of 1.0.</span> <a name="line-196"></a> <a name="line-197"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireIcosahedron"</span> <span class='hs-varid'>wireIcosahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-198"></a> <a name="line-199"></a><span class='hs-comment'>-- | Render a wireframe icosahedron (20-sided regular solid) centered at the</span> <a name="line-200"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of 1.0.</span> <a name="line-201"></a> <a name="line-202"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidIcosahedron"</span> <span class='hs-varid'>solidIcosahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-203"></a> <a name="line-204"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-205"></a> <a name="line-206"></a><span class='hs-comment'>-- | Render a solid octahedron (8-sided regular solid) centered at the modeling</span> <a name="line-207"></a><span class='hs-comment'>-- coordinates origin with a radius of 1.0.</span> <a name="line-208"></a> <a name="line-209"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidOctahedron"</span> <span class='hs-varid'>solidOctahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-210"></a> <a name="line-211"></a><span class='hs-comment'>-- | Render a wireframe octahedron (8-sided regular solid) centered at the</span> <a name="line-212"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of 1.0.</span> <a name="line-213"></a> <a name="line-214"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireOctahedron"</span> <span class='hs-varid'>wireOctahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-215"></a> <a name="line-216"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-217"></a> <a name="line-218"></a><span class='hs-comment'>-- | Render a solid tetrahedron (4-sided regular solid) centered at the modeling</span> <a name="line-219"></a><span class='hs-comment'>-- coordinates origin with a radius of @sqrt 3@.</span> <a name="line-220"></a> <a name="line-221"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireTetrahedron"</span> <span class='hs-varid'>wireTetrahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-222"></a> <a name="line-223"></a><span class='hs-comment'>-- | Render a wireframe tetrahedron (4-sided regular solid) centered at the</span> <a name="line-224"></a><span class='hs-comment'>-- modeling coordinates origin with a radius of @sqrt 3@.</span> <a name="line-225"></a> <a name="line-226"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidTetrahedron"</span> <span class='hs-varid'>solidTetrahedron</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-227"></a> <a name="line-228"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-229"></a> <a name="line-230"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutSolidRhombicDodecahedron</span><span class='hs-layout'>,</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-231"></a> <a name="line-232"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutWireRhombicDodecahedron</span><span class='hs-layout'>,</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-233"></a> <a name="line-234"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-235"></a> <a name="line-236"></a><span class='hs-comment'>-- | Render a solid sphere centered at the modeling coordinates origin of the</span> <a name="line-237"></a><span class='hs-comment'>-- specified radius. The sphere is subdivided around the Z axis into slices</span> <a name="line-238"></a><span class='hs-comment'>-- and along the Z axis into stacks.</span> <a name="line-239"></a> <a name="line-240"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidSphere"</span> <span class='hs-varid'>solidSphere</span> <a name="line-241"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Radius of the sphere.</span> <a name="line-242"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of subdivisions (slices) around the Z axis, similar</span> <a name="line-243"></a> <span class='hs-comment'>-- to lines of longitude.</span> <a name="line-244"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ The number of subdivisions (stacks) along the Z axis,</span> <a name="line-245"></a> <span class='hs-comment'>-- similar to lines of latitude.</span> <a name="line-246"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-247"></a> <a name="line-248"></a><span class='hs-comment'>-- | Render a wireframe sphere centered at the modeling coordinates origin of</span> <a name="line-249"></a><span class='hs-comment'>-- the specified radius. The sphere is subdivided around the Z axis into slices</span> <a name="line-250"></a><span class='hs-comment'>-- and along the Z axis into stacks.</span> <a name="line-251"></a> <a name="line-252"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireSphere"</span> <span class='hs-varid'>wireSphere</span> <a name="line-253"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Radius of the sphere.</span> <a name="line-254"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of subdivisions (slices) around the Z axis, similar</span> <a name="line-255"></a> <span class='hs-comment'>-- to lines of longitude.</span> <a name="line-256"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ The number of subdivisions (stacks) along the Z axis,</span> <a name="line-257"></a> <span class='hs-comment'>-- similar to lines of latitude.</span> <a name="line-258"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-259"></a> <a name="line-260"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-261"></a> <a name="line-262"></a><span class='hs-comment'>-- | Render a solid cone oriented along the Z axis. The base of the cone is</span> <a name="line-263"></a><span class='hs-comment'>-- placed at Z = 0, and the top at Z = height. The cone is subdivided around the</span> <a name="line-264"></a><span class='hs-comment'>-- Z axis into slices, and along the Z axis into stacks.</span> <a name="line-265"></a> <a name="line-266"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidCone"</span> <span class='hs-varid'>solidCone</span> <a name="line-267"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Radius of the base of the cone.</span> <a name="line-268"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Height of the cone.</span> <a name="line-269"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of subdivisions around the Z axis.</span> <a name="line-270"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ The number of subdivisions along the Z axis.</span> <a name="line-271"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-272"></a> <a name="line-273"></a><span class='hs-comment'>-- | Render a wireframe cone oriented along the Z axis. The base of the cone is</span> <a name="line-274"></a><span class='hs-comment'>-- placed at Z = 0, and the top at Z = height. The cone is subdivided around the</span> <a name="line-275"></a><span class='hs-comment'>-- Z axis into slices, and along the Z axis into stacks.</span> <a name="line-276"></a> <a name="line-277"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireCone"</span> <span class='hs-varid'>wireCone</span> <a name="line-278"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Radius of the base of the cone.</span> <a name="line-279"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Height of the cone.</span> <a name="line-280"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of subdivisions around the Z axis.</span> <a name="line-281"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ The number of subdivisions along the Z axis.</span> <a name="line-282"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-283"></a> <a name="line-284"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-285"></a> <a name="line-286"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutSolidCylinder</span><span class='hs-layout'>,</span><span class='hs-conid'>Radius</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-287"></a> <a name="line-288"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutWireCylinder</span><span class='hs-layout'>,</span><span class='hs-conid'>Radius</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-289"></a> <a name="line-290"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-291"></a> <a name="line-292"></a><span class='hs-comment'>-- | Render a solid torus (doughnut) centered at the modeling coordinates origin</span> <a name="line-293"></a><span class='hs-comment'>-- whose axis is aligned with the Z axis.</span> <a name="line-294"></a> <a name="line-295"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidTorus"</span> <span class='hs-varid'>solidTorus</span> <a name="line-296"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Inner radius of the torus.</span> <a name="line-297"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Outer radius of the torus.</span> <a name="line-298"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of sides for each radial section.</span> <a name="line-299"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ Number of radial divisions for the torus.</span> <a name="line-300"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-301"></a> <a name="line-302"></a><span class='hs-comment'>-- | Render a wireframe torus (doughnut) centered at the modeling coordinates</span> <a name="line-303"></a><span class='hs-comment'>-- origin whose axis is aligned with the Z axis.</span> <a name="line-304"></a> <a name="line-305"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireTorus"</span> <span class='hs-varid'>wireTorus</span> <a name="line-306"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Inner radius of the torus.</span> <a name="line-307"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Radius</span> <span class='hs-comment'>-- ^ Outer radius of the torus.</span> <a name="line-308"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Slices</span> <span class='hs-comment'>-- ^ Number of sides for each radial section.</span> <a name="line-309"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Stacks</span> <span class='hs-comment'>-- ^ Number of radial divisions for the torus.</span> <a name="line-310"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-311"></a> <a name="line-312"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-313"></a> <a name="line-314"></a><span class='hs-comment'>-- | Render a solid teapot.</span> <a name="line-315"></a> <a name="line-316"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutSolidTeapot"</span> <span class='hs-varid'>solidTeapot</span> <a name="line-317"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Relative size of the teapot</span> <a name="line-318"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-319"></a> <a name="line-320"></a><span class='hs-comment'>-- | Render a wireframe teapot.</span> <a name="line-321"></a> <a name="line-322"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-conid'>CALLCONV</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"glutWireTeapot"</span> <span class='hs-varid'>wireTeapot</span> <a name="line-323"></a> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Height</span> <span class='hs-comment'>-- ^ Relative size of the teapot</span> <a name="line-324"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-325"></a> <a name="line-326"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-327"></a> <a name="line-328"></a><a name="solidSierpinskiSponge"></a><span class='hs-definition'>solidSierpinskiSponge</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>NumLevels</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-329"></a><span class='hs-definition'>solidSierpinskiSponge</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>sierpinskiSponge</span> <span class='hs-varid'>glutSolidSierpinskiSponge</span> <a name="line-330"></a> <a name="line-331"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutSolidSierpinskiSponge</span><span class='hs-layout'>,</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Vertex3</span> <span class='hs-conid'>GLdouble</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-332"></a> <a name="line-333"></a><a name="wireSierpinskiSponge"></a><span class='hs-definition'>wireSierpinskiSponge</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>NumLevels</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-334"></a><span class='hs-definition'>wireSierpinskiSponge</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>sierpinskiSponge</span> <span class='hs-varid'>glutWireSierpinskiSponge</span> <a name="line-335"></a> <a name="line-336"></a><span class='hs-conid'>EXTENSION_ENTRY</span><span class='hs-layout'>(</span><span class='hs-keyword'>unsafe</span><span class='hs-layout'>,</span><span class='hs-str'>"freeglut"</span><span class='hs-layout'>,</span><span class='hs-varid'>glutWireSierpinskiSponge</span><span class='hs-layout'>,</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Vertex3</span> <span class='hs-conid'>GLdouble</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-337"></a> <a name="line-338"></a><a name="sierpinskiSponge"></a><span class='hs-comment'>-- for consistency, we hide the offset and scale on the Haskell side</span> <a name="line-339"></a><span class='hs-definition'>sierpinskiSponge</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Vertex3</span> <span class='hs-conid'>GLdouble</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Height</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>NumLevels</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-340"></a><span class='hs-definition'>sierpinskiSponge</span> <span class='hs-varid'>f</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <a name="line-341"></a> <span class='hs-varid'>with</span> <span class='hs-layout'>(</span><span class='hs-conid'>Vertex3</span> <span class='hs-num'>0</span> <span class='hs-num'>0</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>offsetBuf</span> <span class='hs-keyglyph'>-></span> <a name="line-342"></a> <span class='hs-varid'>f</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-varid'>offsetBuf</span> <span class='hs-num'>1</span> </pre></body> </html>
