1  // unstable
       2  #define DWG_TYPE DWG_TYPE_SUN
       3  #include "common.c"
       4  
       5  void
       6  api_process (dwg_object *obj)
       7  {
       8    int error;
       9    BITCODE_BL class_version;
      10    BITCODE_B is_on;
      11    BITCODE_CMC color;
      12    BITCODE_BD intensity;
      13    BITCODE_BL julian_day;
      14    BITCODE_BL msecs;
      15    BITCODE_B is_dst;
      16    BITCODE_B has_shadow;
      17    BITCODE_BL shadow_type;
      18    BITCODE_BS shadow_mapsize;
      19    BITCODE_RC shadow_softness;
      20  
      21    Dwg_Version_Type dwg_version = obj->parent->header.version;
      22    dwg_obj_sun *_obj = dwg_object_to_SUN (obj);
      23  
      24    CHK_ENTITY_TYPE (_obj, SUN, class_version, BL);
      25    CHK_ENTITY_TYPE (_obj, SUN, is_on, B);
      26    CHK_ENTITY_CMC (_obj, SUN, color);
      27    CHK_ENTITY_TYPE (_obj, SUN, intensity, BD);
      28    CHK_ENTITY_TYPE (_obj, SUN, julian_day, BL);
      29    CHK_ENTITY_TYPE (_obj, SUN, msecs, BL);
      30    CHK_ENTITY_TYPE (_obj, SUN, is_dst, B);
      31    CHK_ENTITY_TYPE (_obj, SUN, has_shadow, B);
      32    CHK_ENTITY_TYPE (_obj, SUN, shadow_type, BL);
      33    CHK_ENTITY_TYPE (_obj, SUN, shadow_mapsize, BS);
      34    CHK_ENTITY_TYPE (_obj, SUN, shadow_softness, RC);
      35  }