||| Copyright (C) 1998-2007, Sumisho Computer Systems Corp.  All Rights Reserved.
|||
||| Maintained by: Curl Solutions

{curl 5.0, 6.0, 7.0 applet}

{applet manifest = "manifest.mcurl"}

{api-version-switch
 case "6.0" do
    {import * from COM.CURL.GUI.STYLED-CONTROLS}
    {install-style-sheet
        {manifest-url "file", "DEFAULT-STYLE-SHEET"}
    }
}

|| An attempt to draw the Utah teapot
|| with the Curl 3d graphics system
|| (Renderer and its friends)
||
|| There are 32 Bezier patches in the Utah teapot.
|| 4 rim
|| 8 body
|| 8 lid
|| 4 handle
|| 4 spout
|| 4 bottom

{import * from COM.CURL.CSK.EXTRAS.TEAPOT-3D}

{let graphic:Graphic =
    {make-teapot-display}
}

{value graphic}