prj.c

Vá para a documentação deste arquivo.

/*
** ---------------------------------------------------------------
** prj.c - Project manager module.
**
** ---------------------------------------------------------------
*/
#define _PRJ_C

/*
** ---------------------------------------------------------------
** Global variables and symbols
*/
#include <stdio.h>

#include "iup.h"
#include "cd.h"
#include "cdiup.h"
#include "cdclipbd.h"
#include "cdprint.h"
#include "wd.h"

#include "prj.h"
#include "crs.h"
#include "nfr.h"
#include "dsp.h"

/*
** ---------------------------------------------------------------
** Local variables and symbols:
*/

#define SOLUTION_TOL 0.01

#define FIT_FACTOR   0.10

#define ZOOM_FACTOR  0.20

#define PAN_FACTOR   0.05

#define PICK_FACTOR  0.01

static char *trab_info =
   {
    "\n"
    "\n"
    "                   CIV-2801  -- 2004.2               \n"
    "\n"
    "      Fundamentos de Computacao Grafica Aplicada     \n"
    "\n"
    "           Departamento de Engenharia Civil          \n"
    "                        PUC-Rio                      \n"
    "\n"
    "            Trabalho No.: 3                          \n"
    "            Aluno:       \n"
    "            Data:        \n"
    "\n"
   };

static double win_xmin =  0.0;

static double win_xmax = 50.0;

static double win_ymin =  0.0;

static double win_ymax = 50.0;

static void *crs_model = NULL;

/*
** ---------------------------------------------------------------
** Private functions: 
*/

/*========================  prjResetWindow  =======================*/

static void prjResetWindow( void )
{
 win_xmin =  0.0;
 win_xmax = 50.0;
 win_ymin =  0.0;
 win_ymax = 50.0;
}

/*
** ---------------------------------------------------------------
** Public functions:
*/

/*===========================  prjInit  ===========================*/
void prjInit( void )
{
 int  width, height;              /* canvas sizes in pixels */

/* Create a CD (Canvas Draw) visualization surface.
 */
 Gdatascreen = cdCreateCanvas( CD_IUP, Odatascreen );
 wdActivate( Gdatascreen );

/* Initialize canvas viewport as the entire canvas.
 */
 cdGetCanvasSize( &width, &height, 0L, 0L );
 cdClipArea( 0, width-1, 0, height-1 );
 wdViewport( 0, width-1, 0, height-1 );

/* Initialize display module and clear canvas.
 */
 dspInit( );
 dspWindow( 1.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 cdClear( );
}

/*===========================  prjQuit  ===========================*/
void prjQuit( void )
{
 if( crs_model != NULL )
  crsFreeModel( crs_model );
 cdKillCanvas( Gdatascreen );
}

/*===========================  prjChkEmptyModel  ===========================*/
int prjChkEmptyModel( void )
{
 if( crsGetNumMembers( ) == 0 )
  return( 1 );

 return( 0 );
}

/*==========================  prjResize  ==========================*/
void prjResize( int width, int height )
{
 wdActivate( Gdatascreen );

/* Set canvas viewport according to given new canvas sizes.
 */
 cdClipArea( 0, width-1, 0, height-1 );
 wdViewport( 0, width-1, 0, height-1 );

/* Adjust current window to new viewport.
 */
 dspWindow( 1.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
}

/*========================  prjRedisplay  =========================*/
void prjRedisplay( void )
{
 cdClear( );
 dspModel( );
}

/*===========================  prjInfo  ===========================*/
void prjInfo( void )
{
 IupMessage( "  Informacoes do Projeto  ", trab_info );
}

/*===========================  prjHelp  ===========================*/
void prjHelp( void )
{
 double win_xmin_help, win_xmax_help, win_ymin_help, win_ymax_help;
 int    text_alignment;

 cdClear( );
 win_xmin_help =  0.0;
 win_xmax_help = 11.5;
 win_ymin_help =  0.0;
 win_ymax_help = 11.5;
 dspWindow( 1.0+FIT_FACTOR, &win_xmin_help, &win_xmax_help, 
                            &win_ymin_help, &win_ymax_help );

 cdForeground( CD_BLACK );
 text_alignment = cdTextAlignment( CD_BASE_LEFT );

 wdText( 0.0, 11.0, 
  "Selecione uma tecla indicada.  Aperte qualquer outra tecla para retornar." );

 wdText( 0.0, 10.0, "H (de Help)" );
 wdText( 3.0, 10.0, "==> Exibe este help" );
 wdText( 0.0,  9.5, "Ctrl+Q (de Quit)" );
 wdText( 3.0,  9.5, "==> Sai do programa" );
 wdText( 0.0,  9.0, "Ctrl+I (de Info)" );
 wdText( 3.0,  9.0, "==> Informacoes sobre o programa" );
 wdText( 0.0,  8.5, "Ctrl+N (de New)" );
 wdText( 3.0,  8.5, "==> Comeca um novo modelo" );
 wdText( 0.0,  8.0, "Ctrl+O (de Open)" );
 wdText( 3.0,  8.0, "==> Carrega um novo modelo de arquivo" );
 wdText( 0.0,  7.5, "Ctrl+S (de Save)" );
 wdText( 3.0,  7.5, "==> Salva resultados do modelo em arquivo" );

 wdText( 0.0,  6.5, "I" );
 wdText( 3.0,  6.5, "==> Inicializa o processo iterativo de solucao" );
 wdText( 0.0,  6.0, "S" );
 wdText( 3.0,  6.0, "==> Processa um passo (Step) da solucao iterativa" );
 wdText( 0.0,  5.5, "G" );
 wdText( 3.0,  5.5, "==> Resolve (Go through) todo o processo iterativo" );

 wdText( 0.0,  4.5, "L (de Load)" );
 wdText( 3.0,  4.5, "==> Liga/desliga desenho de cargas de barras" );
 wdText( 0.0,  4.0, "Ctrl+P (de Print)" );
 wdText( 3.0,  4.0, "==> Imprime desenho da janela" );
 wdText( 0.0,  3.5, "Ctrl+C (de Copy)" );
 wdText( 3.0,  3.5, "==> Copia para a area de transferencia (Clipboard)" );
 wdText( 0.0,  3.0, "F (de Fit)" );
 wdText( 3.0,  3.0, "==> Ajusta desenho na janela" );
 wdText( 0.0,  2.5, "+" );
 wdText( 3.0,  2.5, "==> Zoom +" );
 wdText( 0.0,  2.0, "-" );
 wdText( 3.0,  2.0, "==> Zoom -" );
 wdText( 0.0,  1.5, "<-" );
 wdText( 3.0,  1.5, "==> Translada imagem para esquerda" );
 wdText( 0.0,  1.0, "->" );
 wdText( 3.0,  1.0, "==> Translada imagem para direita" );
 wdText( 0.0,  0.7, "|" );
 wdText( 0.0,  0.5, "v" );
 wdText( 3.0,  0.5, "==> Translada imagem para baixo" );
 wdText( 0.0,  0.1, "^" );
 wdText( 0.0,  0.0, "|" );
 wdText( 3.0,  0.0, "==> Translada imagem para cima" );

/* Restore previous window limits and text alignment attribute.
 */
 dspWindow( 1.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 cdTextAlignment( text_alignment );
}

/*===========================  prjNew  ============================*/
void prjNew( void )
{
 if( crs_model != NULL )
 {
  crsFreeModel( crs_model );
  crs_model = NULL;
 }
 prjResetWindow( );
 dspWindow( 1.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*=========================  prjOpenModel  ========================*/
int prjOpenModel( FILE *fd )
{
/* Delete current model (if there is one).
 */
 if( crs_model != NULL )
  crsFreeModel( crs_model );
 prjResetWindow( );

/* Read the total number of nodes and elements of the model
 * from the file and initalizes the model in database.
 * Activate this model for read the rest of the data.
 */
 crs_model = nfrCrsModel( fd );
 if( crs_model == NULL )
 {
  return( 0 );
 }
 crsActivateModel( crs_model ); 
  
/* Read nodal coordinates from the file and stores these data in database.
 * Also read node support conditions.
 */
 if( ! nfrCrsNodes( fd ) )
 {
  crsFreeModel( crs_model );
  crs_model = NULL;
  return( 0 );
 }

/* Read beam element data from the file and stores these data in database.
 * Also read material parameters, cross-section properties, and beam 
 * end-liberation conditions.
 */
 if( ! nfrCrsMembers( fd ) )
 {
  crsFreeModel( crs_model );
  crs_model = NULL;
  return( 0 );
 }

/* Complete model data structure.
 */
 crsCompleteModel( );

/* Intialize the iterative solution.
 */
 crsResetSolution( SOLUTION_TOL );

/* Compute new model bounding box and adjust visualization window
 * to fit new bounding box.
 * Set maximum primitive height equal to maximum size in XY plane.
 */
 if( crsGetGlobalBox( &win_xmin, &win_xmax, &win_ymin, &win_ymax ) ==
                                                                   CRS_SUCCESS )
 {
  dspWindow( 1.0+FIT_FACTOR, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 }

/* Display new model.
 */
 prjRedisplay( );

 return( 1 );
}

/*=========================  prjSaveResults  ========================*/
void prjSaveResults( FILE *fd )
{
 int    n_member;
 int    i;
 int    node0;
 int    node1;
 double m0;
 double m1;
 double x;
 double y;
 
 n_member = crsGetNumMembers( );
 
 for( i = 0; i < n_member; i++ )
 {
  fprintf( fd, "Barra: %d\n", i+1 );
  crsGetMemberNodes( i, &node0, &node1 );
  crsGetMemberMoments( i, &m0, &m1 );
  crsGetNodeCoords( node0, &x, &y );
  fprintf( fd, " Pos. inicial: (%.2f,%.2f),  Mom.:%.2f\n", x, y, m0 );
  crsGetNodeCoords( node1, &x, &y );
  fprintf( fd, " Pos. inicial: (%.2f,%.2f),  Mom.:%.2f\n", x, y, m1 );
  fprintf( fd, "\n" );
 }
}

/*=========================  prjProcessInit  ========================*/
void prjProcessInit( void )
{
 if( crsGetNumMembers( ) == 0 )
  return;

 crsResetSolution( SOLUTION_TOL );
 prjRedisplay( );
}

/*=========================  prjProcessGoThru  ========================*/
int prjProcessGoThru( void )
{
 int status;

 if( crsGetNumMembers( ) == 0 )
  return( CRS_NO_MODEL_DEFINED );

 status = crsSolveModel( );
 if( status == CRS_SUCCESS )
  prjRedisplay( );

 return( status );
}

/*=========================  prjProcessStep  ========================*/
int prjProcessStep( void )
{
 int status;

 if( crsGetNumMembers( ) == 0 )
  return( CRS_NO_MODEL_DEFINED );

 status = crsStepSolution( );
 if( status == CRS_SUCCESS )
  prjRedisplay( );

 return( status );
}

/*=========================  prjProcessNode  ========================*/
int prjProcessNode( double x, double y )
{
 double width;      /* horizontal dimension of current window */
 double height;     /* vertical dimension of current window */
 double minsize;    /* minimum window dimension */
 double tol;        /* tolerance for checking node proximity */
 int    n;          /* index of found node */
 int    status;

 if( crsGetNumMembers( ) == 0 )
  return( CRS_NO_MODEL_DEFINED );

 width  = win_xmax - win_xmin;
 height = win_ymax - win_ymin;
 minsize = ( width < height ) ? width : height;
 tol = minsize * PICK_FACTOR;

 n = crsPickNode( x, y, tol );
 if( n < 0 )
  return( CRS_FAILURE );

 status = crsProcessNode( n );
 if( status == CRS_SUCCESS )
  prjRedisplay( );

 return( status );
}

/*==========================  dspLoadDisplay  ==========================*/
void prjLoadDisplay( int on_off )
{
 dspLoadDisplay( on_off );
 prjRedisplay( );
}

/*==========================  prjPrint  ===========================*/
void prjPrint( void )
{
 if( crsGetNumMembers( ) == 0 )
  return;

 wdHardcopy( CD_PRINTER, "trab3.prn", Gdatascreen, dspModel );
}

/*========================  prjClipboard  =========================*/
void prjClipboard( void )
{
 int  width, height;
 char data[40];

 if( crsGetNumMembers( ) == 0 )
  return;

 cdActivate( Gdatascreen );
 cdGetCanvasSize( &width, &height, 0L, 0L );
 sprintf( data, "%dx%d", width, height );

 wdHardcopy( CD_CLIPBOARD, data, Gdatascreen, dspModel );
}

/*============================  prjFit  ===========================*/
void prjFit( void )
{
 if( crsGetGlobalBox( &win_xmin, &win_xmax, &win_ymin, &win_ymax ) == 
                                                                   CRS_SUCCESS )
 {
  dspWindow( 1.0+FIT_FACTOR, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
  prjRedisplay( );
 }
}

/*==========================  prjZoomIn  ==========================*/
void prjZoomIn( void )
{
 if( crsGetNumMembers( ) == 0 )
  return;

 dspWindow( 1.0-ZOOM_FACTOR, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*==========================  prjZoomOut  =========================*/
void prjZoomOut( void )
{
 if( crsGetNumMembers( ) == 0 )
  return;

 dspWindow( 1.0+ZOOM_FACTOR, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*==========================  prjPanLeft  =========================*/
void prjPanLeft( void )
{
 double  sizex, dx;

 if( crsGetNumMembers( ) == 0 )
  return;

 sizex = win_xmax - win_xmin; 
 dx = sizex * PAN_FACTOR;
 dspPanWindow( dx, 0.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*==========================  prjPanRight  ========================*/
void prjPanRight( void )
{
 double  sizex, dx;

 if( crsGetNumMembers( ) == 0 )
  return;

 sizex = win_xmax - win_xmin; 
 dx = -(sizex * PAN_FACTOR);
 dspPanWindow( dx, 0.0, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*==========================  prjPanDown  =========================*/
void prjPanDown( void )
{
 double  sizey, dy;

 if( crsGetNumMembers( ) == 0 )
  return;

 sizey = win_ymax - win_ymin; 
 dy = sizey * PAN_FACTOR;
 dspPanWindow( 0.0, dy, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

/*===========================  prjPanUp  ==========================*/
void prjPanUp( void )
{
 double  sizey, dy;

 if( crsGetNumMembers( ) == 0 )
  return;

 sizey = win_ymax - win_ymin; 
 dy = -(sizey * PAN_FACTOR);
 dspPanWindow( 0.0, dy, &win_xmin, &win_xmax, &win_ymin, &win_ymax );
 prjRedisplay( );
}

---