src/OpenGl/OpenGl_edgewid.cxx

   1
   2 #include <OpenGl_tgl_all.hxx>
   3
   4 #include <stddef.h>
   5 #include <stdio.h>
   6
   7 #include <OpenGl_cmn_varargs.hxx>
   8 #include <OpenGl_telem_attri.hxx>
   9 #include <OpenGl_tsm.hxx>
  10 #include <OpenGl_telem.hxx>
  11 #include <OpenGl_telem_inquire.hxx>
  12
  13 static  TStatus  EdgeWidthDisplay( TSM_ELEM_DATA, Tint, cmn_key* );
  14 static  TStatus  EdgeWidthAdd( TSM_ELEM_DATA, Tint, cmn_key* );
  15 static  TStatus  EdgeWidthDelete( TSM_ELEM_DATA, Tint, cmn_key* );
  16 static  TStatus  EdgeWidthPrint( TSM_ELEM_DATA, Tint, cmn_key* );
  17 static  TStatus  EdgeWidthInquire( TSM_ELEM_DATA, Tint, cmn_key* );
  18
  19 static  TStatus  (*MtdTbl[])( TSM_ELEM_DATA, Tint, cmn_key* ) =
  20 {
  21   0,             /* PickTraverse */
  22   EdgeWidthDisplay,
  23   EdgeWidthAdd,
  24   EdgeWidthDelete,
  25   EdgeWidthPrint,
  26   EdgeWidthInquire
  27 };
  28
  29
  30 MtblPtr
  31 TelEdgeWidthInitClass( TelType *el )
  32 {
  33   *el = TelEdgeWidth;
  34   return MtdTbl;
  35 }
  36
  37 static  TStatus
  38 EdgeWidthAdd( TSM_ELEM_DATA d, Tint n, cmn_key *k )
  39 {
  40   Tfloat *data = new Tfloat();
  41
  42   //cmn_memreserve( data, 1, 0 );
  43   if( !data )
  44     return TFailure;
  45
  46   *data = k[0]->data.fdata;
  47
  48   ((tsm_elem_data)(d.pdata))->pdata = data;
  49
  50   return TSuccess;
  51 }
  52
  53
  54 static  TStatus
  55 EdgeWidthDisplay( TSM_ELEM_DATA data, Tint n, cmn_key *k )
  56 {
  57   CMN_KEY     key;
  58
  59   key.id = TelEdgeWidth;
  60   key.data.fdata = *(Tfloat*)(data.pdata);
  61   TsmSetAttri( 1, &key );
  62
  63   return TSuccess;
  64 }
  65
  66
  67 static  TStatus
  68 EdgeWidthDelete( TSM_ELEM_DATA data, Tint n, cmn_key *k )
  69 {
  70   //cmn_freemem( data.pdata );
  71   if (data.pdata)
  72     delete data.pdata;
  73   return TSuccess;
  74 }
  75
  76
  77 static  TStatus
  78 EdgeWidthPrint( TSM_ELEM_DATA data, Tint n, cmn_key *k )
  79 {
  80   fprintf( stdout, "TelEdgeWidth. Value = %g\n", *(Tfloat *)(data.pdata));
  81   fprintf( stdout, "\n" );
  82
  83   return TSuccess;
  84 }
  85
  86
  87 static TStatus
  88 EdgeWidthInquire( TSM_ELEM_DATA data, Tint n, cmn_key *k )
  89 {
  90   Tint i;
  91   Tfloat *f = (Tfloat *)data.pdata;
  92
  93   for( i = 0; i < n; i++ )
  94   {
  95     switch( k[i]->id )
  96     {
  97     case INQ_GET_SIZE_ID:
  98       {
  99         k[i]->data.ldata = sizeof( Tint );
 100         break;
 101       }
 102     case INQ_GET_CONTENT_ID:
 103       {
 104         TEL_INQ_CONTENT *c;
 105         Teldata         *w;
 106
 107         c = (tel_inq_content)k[i]->data.pdata;
 108         w = c->data;
 109         c->act_size = 0;
 110         w->fdata = *f;
 111         break;
 112       }
 113     }
 114   }
 115
 116   return TSuccess;
 117 }