(root)/
libredwg-0.13/
test/
unit-testing/
acsh_pyramid_class.c
       1  // unstable
       2  #define DWG_TYPE DWG_TYPE_ACSH_PYRAMID_CLASS
       3  #include "common.c"
       4  
       5  void
       6  api_process (dwg_object *obj)
       7  {
       8    int error, isnew;
       9    // Dwg_EvalExpr evalexpr;
      10    // Dwg_ACSH_HistoryNode history_node;
      11    BITCODE_BD *trans;
      12    BITCODE_BL major;
      13    BITCODE_BL minor;
      14    BITCODE_BD height;    /*!< DXF 40 */
      15    BITCODE_BL sides;     /*!< DXF 92 */
      16    BITCODE_BD radius;    /*!< DXF 41 */
      17    BITCODE_BD topradius; /*!< DXF 42 */
      18  
      19    Dwg_Version_Type dwg_version = obj->parent->header.version;
      20    dwg_obj_acsh_pyramid_class *_obj = dwg_object_to_ACSH_PYRAMID_CLASS (obj);
      21  
      22    CHK_EVALEXPR (ACSH_PYRAMID_CLASS);
      23    CHK_ACSH_HISTORYNODE ();
      24  
      25    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, major, BL);
      26    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, minor, BL);
      27    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, sides, BL);
      28    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, height, BD);
      29    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, radius, BD);
      30    CHK_ENTITY_TYPE (_obj, ACSH_PYRAMID_CLASS, topradius, BD);
      31  }