Name

---

      CATSURFACE__DEFINE

Purpose

---

      The purpose of this routine is to implement an object graphics surface
      command for display in an ODrawWidget object. To create a rotating surface
      in the draw widget, button events MUST be turned on for the draw widget.

Authors

---

        FANNING SOFTWARE CONSULTING BURRIDGE COMPUTING
        1645 Sheely Drive 18 The Green South
        Fort Collins Warborough, Oxon
        CO 80526 USA OX10 7DN, ENGLAND
        Phone: 970-221-0438 Phone: +44 (0)1865 858279
        E-mail: davidf@dfanning.com E-mail: davidb@burridgecomputing.co.uk

Category

---

      Objects.

Syntax

---

      theSurface = Obj_New("CATSURFACE")
      oDrawWidget -> SetProperty, Button_Events=1
      oDrawWidget -> Add, theSurface

Superclasses

---

      CATOBJECTVIEW
      CATATOM
      CATCONTAINER
      IDL_CONTAINER

Class Structure

---

  class = { CATSURFACE, $
            INHERITS CATOBJECTVIEW, $ ; A subclass of the CatObjectView object.
            _origTransform: FltArr(4,4), $ ; The original transformation matrix.
            _trackball: Obj_New(), $ ; The trackball object.
            _rotatingModel: Obj_New(), $ ; The rotating model of the surface.
            _theSurface: Obj_New(), $ ; The surface object.
            _xAxis:Obj_New(), $ ; The X Axis object.
            _yAxis:Obj_New(), $ ; The Y Axis object.
            _zAxis:Obj_New(), $ ; The Z Axis object.
            _nonRotatingLight:Obj_New(), $ ; The non-rotating light object.
            _rotatingLight: Obj_New(), $ ; The rotating light object.
            _fillLight: Obj_New(), $ ; The fill light object.
            _ambientLight: Obj_New(), $ ; The ambient light object.
            _thePalette: Obj_New(), $ ; The surface color palette.
            _colortable: 0L, $ ; The current color table (for elevation colors).
            _surfaceColor:BytArr(3), $ ; The current color of the surface.
            _r: BytArr(256), $ ; The R values of the current color table.
            _g: BytArr(256), $ ; The G values of the current color table.
            _b: BytArr(256), $ ; The B values of the current color table.
            _data: Ptr_New(), $ ; The original Z data (2D) for the surface.
            _x: Ptr_New(), $ ; The original X data for the surface.
            _y: Ptr_New(), $ ; The original Y data for the surface.
            _plottitle: Obj_New(), $ ; The plot title object.
            _colortool: Obj_New() $ ; A color tool.
          }

Modification History

---

      Written by: David W. Fanning, 1 July, 2003.