(root)/
libredwg-0.13/
test/
unit-testing/
ground_plane_background.c
       1  // unstable
       2  #define DWG_TYPE DWG_TYPE_GROUND_PLANE_BACKGROUND
       3  #include "common.c"
       4  
       5  void
       6  api_process (dwg_object *obj)
       7  {
       8    int error = 0, isnew;
       9    BITCODE_BL class_version;
      10    BITCODE_BLx color_sky_zenith;
      11    BITCODE_BLx color_sky_horizon;
      12    BITCODE_BLx color_underground_horizon;
      13    BITCODE_BLx color_underground_azimuth;
      14    BITCODE_BLx color_near;
      15    BITCODE_BLx color_far;
      16  
      17    Dwg_Version_Type dwg_version = obj->parent->header.version;
      18    dwg_obj_ground_plane_background *_obj
      19        = dwg_object_to_GROUND_PLANE_BACKGROUND (obj);
      20  
      21    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, class_version, BL);
      22    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_sky_zenith, BLx);
      23    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_sky_horizon, BLx);
      24    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_underground_horizon,
      25                     BLx);
      26    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_underground_azimuth,
      27                     BLx);
      28    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_near, BLx);
      29    CHK_ENTITY_TYPE (_obj, GROUND_PLANE_BACKGROUND, color_far, BLx);
      30  }