1877 lines
50 KiB
C++
1877 lines
50 KiB
C++
#include "stdafx.h"
|
|
#include <afx.h>
|
|
#include <afxtempl.h>
|
|
#include "hv_problem.h"
|
|
#include "femm.h"
|
|
#include "xyplot.h"
|
|
#include "hviewDoc.h"
|
|
#include "hviewview.h"
|
|
#include "MainFrm.h"
|
|
#include "windows.h" //necessary for bitmap saving
|
|
#include "lua.h"
|
|
#include "mycommandlineinfo.h"
|
|
#include "promptbox.h"
|
|
#include "ChildFrm.h"
|
|
|
|
#ifdef _DEBUG
|
|
#define new DEBUG_NEW
|
|
#undef THIS_FILE
|
|
static char THIS_FILE[] = __FILE__;
|
|
#endif
|
|
|
|
extern lua_State * lua;
|
|
extern BOOL bLinehook;
|
|
extern void *phviewDoc;
|
|
extern BOOL lua_byebye;
|
|
extern int m_luaWindowStatus;
|
|
extern CLuaConsoleDlg *LuaConsole;
|
|
|
|
#define CatchNullDocument(); if (phviewDoc==NULL)\
|
|
{ CString msg="No current heat flow output in focus"; \
|
|
lua_error(L,msg.GetBuffer(1)); \
|
|
return 0;}
|
|
|
|
//-------------------Lua Extensions-------------------------
|
|
|
|
void ChviewDoc::initalise_lua()
|
|
{
|
|
// use a messagebox to display errors
|
|
lua_register(lua,"ho_setfocus",lua_switchfocus);
|
|
lua_register(lua,"ho_getpointvalues",lua_getpointvals);
|
|
lua_register(lua,"ho_close",lua_exitpost);
|
|
lua_register(lua,"ho_addcontour",lua_addcontour);
|
|
lua_register(lua,"ho_clearcontour",lua_clearcontour);
|
|
lua_register(lua,"ho_lineintegral",lua_lineintegral);
|
|
lua_register(lua,"ho_selectblock",lua_selectblock);
|
|
lua_register(lua,"ho_groupselectblock",lua_groupselectblock);
|
|
lua_register(lua,"ho_clearblock",lua_clearblock);
|
|
lua_register(lua,"ho_blockintegral",lua_blockintegral);
|
|
lua_register(lua,"ho_zoomnatural",lua_zoomnatural);
|
|
lua_register(lua,"ho_zoomin",lua_zoomin);
|
|
lua_register(lua,"ho_zoomout",lua_zoomout);
|
|
lua_register(lua,"ho_zoom",lua_zoom);
|
|
lua_register(lua,"ho_showgrid",lua_showgrid);
|
|
lua_register(lua,"ho_hidegrid",lua_hidegrid);
|
|
lua_register(lua,"ho_gridsnap",lua_gridsnap);
|
|
lua_register(lua,"ho_setgrid",lua_setgrid);
|
|
lua_register(lua,"ho_showmesh",lua_showmesh);
|
|
lua_register(lua,"ho_hidemesh",lua_hidemesh);
|
|
lua_register(lua,"ho_hidedensityplot",lua_hidedensity);
|
|
lua_register(lua,"ho_showdensityplot",lua_showdensity);
|
|
lua_register(lua,"ho_hidecontourplot",lua_hidecountour);
|
|
lua_register(lua,"ho_showcontourplot",lua_showcountour);
|
|
lua_register(lua,"ho_showvectorplot" ,lua_vectorplot);
|
|
lua_register(lua,"ho_smooth",lua_smoothing);
|
|
lua_register(lua,"ho_showpoints",lua_showpoints);
|
|
lua_register(lua,"ho_hidepoints",lua_hidepoints);
|
|
lua_register(lua,"ho_shownames",lua_shownames);
|
|
lua_register(lua,"ho_getprobleminfo",lua_getprobleminfo);
|
|
lua_register(lua,"ho_savebitmap",lua_savebitmap);
|
|
lua_register(lua,"ho_getconductorproperties",lua_getcircuitprops);
|
|
lua_register(lua,"ho_savemetafile",lua_saveWMF);
|
|
lua_register(lua,"ho_refreshview",lua_refreshview);
|
|
lua_register(lua,"ho_selectpoint",lua_selectline);
|
|
lua_register(lua,"ho_seteditmode",lua_seteditmode);
|
|
lua_register(lua,"ho_bendcontour",lua_bendcontour);
|
|
lua_register(lua,"ho_makeplot",lua_makeplot);
|
|
lua_register(lua,"ho_selectconductor",lua_selectconductor);
|
|
lua_register(lua,"ho_reload",lua_reload);
|
|
|
|
lua_register(lua,"ho_resize",luaResize);
|
|
lua_register(lua,"ho_minimize",luaMinimize);
|
|
lua_register(lua,"ho_maximize",luaMaximize);
|
|
lua_register(lua,"ho_restore", luaRestore);
|
|
lua_register(lua,"ho_gettitle",lua_gettitle);
|
|
lua_register(lua,"ho_get_title",lua_gettitle);
|
|
|
|
// compatibility with alternate lua function naming convention
|
|
lua_register(lua,"ho_set_focus",lua_switchfocus);
|
|
lua_register(lua,"ho_get_point_values",lua_getpointvals);
|
|
lua_register(lua,"ho_add_contour",lua_addcontour);
|
|
lua_register(lua,"ho_clear_contour",lua_clearcontour);
|
|
lua_register(lua,"ho_line_integral",lua_lineintegral);
|
|
lua_register(lua,"ho_select_block",lua_selectblock);
|
|
lua_register(lua,"ho_group_select_block",lua_groupselectblock);
|
|
lua_register(lua,"ho_clear_block",lua_clearblock);
|
|
lua_register(lua,"ho_block_integral",lua_blockintegral);
|
|
lua_register(lua,"ho_zoom_natural",lua_zoomnatural);
|
|
lua_register(lua,"ho_zoom_in",lua_zoomin);
|
|
lua_register(lua,"ho_zoom_out",lua_zoomout);
|
|
lua_register(lua,"ho_show_grid",lua_showgrid);
|
|
lua_register(lua,"ho_hide_grid",lua_hidegrid);
|
|
lua_register(lua,"ho_show_mesh",lua_showmesh);
|
|
lua_register(lua,"ho_hide_mesh",lua_hidemesh);
|
|
lua_register(lua,"ho_hide_density_plot",lua_hidedensity);
|
|
lua_register(lua,"ho_show_density_plot",lua_showdensity);
|
|
lua_register(lua,"ho_hide_contour_plot",lua_hidecountour);
|
|
lua_register(lua,"ho_show_contour_plot",lua_showcountour);
|
|
lua_register(lua,"ho_show_points",lua_showpoints);
|
|
lua_register(lua,"ho_hide_points",lua_hidepoints);
|
|
lua_register(lua,"ho_grid_snap",lua_gridsnap);
|
|
lua_register(lua,"ho_set_grid",lua_setgrid);
|
|
lua_register(lua,"ho_get_problem_info",lua_getprobleminfo);
|
|
lua_register(lua,"ho_save_bitmap",lua_savebitmap);
|
|
lua_register(lua,"ho_get_conductor_properties",lua_getcircuitprops);
|
|
lua_register(lua,"ho_save_metafile",lua_saveWMF);
|
|
lua_register(lua,"ho_refresh_view",lua_refreshview);
|
|
lua_register(lua,"ho_select_point",lua_selectline);
|
|
lua_register(lua,"ho_set_edit_mode",lua_seteditmode);
|
|
lua_register(lua,"ho_bend_contour",lua_bendcontour);
|
|
lua_register(lua,"ho_make_plot",lua_makeplot);
|
|
lua_register(lua,"ho_select_conductor",lua_selectconductor);
|
|
lua_register(lua,"ho_show_names",lua_shownames);
|
|
lua_register(lua,"ho_show_vector_plot",lua_vectorplot);
|
|
|
|
|
|
// functions to access low-level mesh info
|
|
lua_register(lua,"ho_numnodes",lua_numnodes);
|
|
lua_register(lua,"ho_numelements",lua_numelements);
|
|
lua_register(lua,"ho_getnode",lua_getnode);
|
|
lua_register(lua,"ho_getelement",lua_getelement);
|
|
|
|
lua_register(lua,"ho_num_nodes",lua_numnodes);
|
|
lua_register(lua,"ho_num_elements",lua_numelements);
|
|
lua_register(lua,"ho_get_node",lua_getnode);
|
|
lua_register(lua,"ho_get_element",lua_getelement);
|
|
|
|
phviewDoc=this;
|
|
|
|
}
|
|
|
|
int ChviewDoc::lua_dumpheader(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_switchfocus(lua_State *L)
|
|
{
|
|
POSITION tpos,dpos;
|
|
CDocTemplate* pTemp;
|
|
ChviewDoc* pDoc;
|
|
CString DocTitle,ThisTitle;
|
|
int n;
|
|
|
|
// get title of desired document from Lua
|
|
n=lua_gettop(L); if (n==0) return NULL;
|
|
DocTitle.Format("%s",lua_tostring(L,n));
|
|
DocTitle.MakeLower();
|
|
if(DocTitle.Right(4)==".anh")
|
|
DocTitle=DocTitle.Left(DocTitle.GetLength()-4);
|
|
|
|
// get pointer to document template for FemmeDoc
|
|
tpos=AfxGetApp()->GetFirstDocTemplatePosition( );
|
|
for(int i=0;i<7;i++) pTemp=AfxGetApp()->GetNextDocTemplate(tpos);
|
|
|
|
// leaf through documents to get a pointer to the
|
|
// document with the right title
|
|
dpos=pTemp->GetFirstDocPosition();
|
|
while(dpos!=NULL)
|
|
{
|
|
pDoc=(ChviewDoc *)pTemp->GetNextDoc(dpos);
|
|
ThisTitle=pDoc->GetTitle();
|
|
ThisTitle.MakeLower();
|
|
if(ThisTitle.Right(4)==".anh")
|
|
ThisTitle=ThisTitle.Left(ThisTitle.GetLength()-4);
|
|
if(ThisTitle==DocTitle)
|
|
{
|
|
phviewDoc=pDoc;
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
// if we can't find it, throw an error message
|
|
CString msg;
|
|
msg.Format("No document that matches %s",DocTitle);
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return NULL;
|
|
}
|
|
|
|
int ChviewDoc::lua_getpointvals(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
double px,py;
|
|
|
|
px=lua_todouble(L,1);
|
|
py=lua_todouble(L,2);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CPointVals u;
|
|
CComplex Jtot;
|
|
|
|
if(thisDoc->GetPointValues(px, py, u)==TRUE)
|
|
{
|
|
lua_pushnumber(L,u.T);
|
|
lua_pushnumber(L,u.F.re);
|
|
lua_pushnumber(L,u.F.im);
|
|
lua_pushnumber(L,u.G.re);
|
|
lua_pushnumber(L,u.G.im);
|
|
lua_pushnumber(L,u.K.re);
|
|
lua_pushnumber(L,u.K.im);
|
|
|
|
return 7;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_exitpost(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
((ChviewDoc *)phviewDoc)->OnCloseDocument( );
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_reload(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
// theView->BeginWaitCursor();
|
|
thisDoc->OnReload();
|
|
// theView->EndWaitCursor();
|
|
if (theView->d_ResetOnReload==FALSE) thisDoc->FirstDraw=FALSE;
|
|
theView->RedrawView();
|
|
theView->LuaViewInfo();
|
|
return 0;
|
|
}
|
|
|
|
void ChviewView::LuaViewInfo()
|
|
{
|
|
OnViewInfo();
|
|
}
|
|
|
|
int ChviewDoc::lua_addcontour(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
CComplex z;
|
|
int i;
|
|
z.Set(lua_todouble(L,1),lua_todouble(L,2));
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
i=(int) thisDoc->contour.GetSize();
|
|
|
|
if(i>0){
|
|
if (z!=thisDoc->contour[i-1])
|
|
thisDoc->contour.Add(z);
|
|
}
|
|
else thisDoc->contour.Add(z);
|
|
theView->DrawUserContour(FALSE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_clearcontour(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
theView->EraseUserContour(TRUE);
|
|
thisDoc->contour.RemoveAll();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_lineintegral(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
int type;
|
|
double z[4];
|
|
|
|
type=(int) lua_todouble(L,1);
|
|
// 0 - G.t
|
|
// 1 - F.n
|
|
// 2 - Contour length
|
|
// 3 - Average temperature
|
|
|
|
if (type<0 || type >3)
|
|
{
|
|
CString msg;
|
|
msg.Format("Invalid line integral selected %d",type);
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
|
|
}
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
z[0]=z[1]=0;
|
|
thisDoc->LineIntegral(type,z);
|
|
|
|
lua_pushnumber(lua,z[0]);
|
|
lua_pushnumber(lua,z[1]);
|
|
|
|
return 2;
|
|
}
|
|
|
|
int ChviewDoc::lua_selectblock(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
double px,py;
|
|
|
|
px=lua_todouble(L,1);
|
|
py=lua_todouble(L,2);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
theView->EditAction=2;
|
|
int k;
|
|
|
|
if (thisDoc->meshelem.GetSize()>0){
|
|
k=thisDoc->InTriangle(px,py);
|
|
if(k>=0){
|
|
thisDoc->bHasMask=FALSE;
|
|
thisDoc->blocklist[thisDoc->meshelem[k].lbl].ToggleSelect();
|
|
// RedrawView();
|
|
theView->DrawSelected=thisDoc->meshelem[k].lbl;
|
|
HDC myDCH=GetDC(theView->m_hWnd);
|
|
CDC tempDC;
|
|
CDC *pDC;
|
|
pDC=tempDC.FromHandle(myDCH);
|
|
|
|
//CDC *pDC=GetDC(theView->m_hWnd);
|
|
theView->OnDraw(pDC);
|
|
theView->DrawSelected=-1;
|
|
theView->ReleaseDC(pDC);
|
|
thisDoc->UpdateAllViews(theView);
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_groupselectblock(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
theView->EditAction=2;
|
|
int j,k,n;
|
|
|
|
if (thisDoc->meshelem.GetSize()>0)
|
|
{
|
|
n=lua_gettop(L);
|
|
k=0; if (n>0) k=(int)lua_todouble(L,1);
|
|
|
|
for(j=0;j<thisDoc->blocklist.GetSize();j++)
|
|
{
|
|
if ((thisDoc->blocklist[j].InGroup==k) || (n==0))
|
|
thisDoc->blocklist[j].ToggleSelect();
|
|
thisDoc->bHasMask=FALSE;
|
|
}
|
|
|
|
HDC myDCH=GetDC(theView->m_hWnd);
|
|
CDC tempDC;
|
|
CDC *pDC;
|
|
pDC=tempDC.FromHandle(myDCH);
|
|
|
|
//CDC *pDC=GetDC(theView->m_hWnd);
|
|
theView->OnDraw(pDC);
|
|
theView->DrawSelected=-1;
|
|
theView->ReleaseDC(pDC);
|
|
thisDoc->UpdateAllViews(theView);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_clearblock(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
theView->UnselectAll();
|
|
theView->EditAction=0;
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_blockintegral(lua_State * L)
|
|
{
|
|
// 0 - Stored anergy
|
|
// 1 - Area
|
|
// 2 - Volume
|
|
// 3 - Average D
|
|
// 4 - Average E
|
|
// 5 - Weighted Stress Tensor Force
|
|
// 6 - Weighted Stress Tensor Torque
|
|
|
|
CatchNullDocument();
|
|
int type;
|
|
type=(int) lua_todouble(L,1);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CComplex z;
|
|
|
|
int i;
|
|
BOOL flg=FALSE;
|
|
for(i=0;i<thisDoc->blocklist.GetSize();i++)
|
|
if (thisDoc->blocklist[i].IsSelected==TRUE) flg=TRUE;
|
|
if(flg==FALSE)
|
|
{
|
|
CString msg="Cannot integrate\nNo area has been selected";
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
}
|
|
|
|
z=thisDoc->BlockIntegral(type);
|
|
|
|
lua_pushnumber(L,z.re);
|
|
lua_pushnumber(L,z.im);
|
|
|
|
return 2;
|
|
}
|
|
|
|
int ChviewDoc::lua_zoomin(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
RECT r;
|
|
double x,y;
|
|
|
|
theView->GetClientRect(&r);
|
|
x=r.right; y=r.bottom;
|
|
|
|
theView->ox=theView->ox+0.25*x/theView->mag;
|
|
theView->oy=theView->oy+0.25*y/theView->mag;
|
|
theView->mag*=2.;
|
|
|
|
theView->RedrawView();
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_zoom(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
double x[2],y[2],m[2];
|
|
|
|
x[0]=lua_todouble(L,1);
|
|
y[0]=lua_todouble(L,2);
|
|
x[1]=lua_todouble(L,3);
|
|
y[1]=lua_todouble(L,4);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CRect r;
|
|
|
|
theView->ox=x[0]; theView->oy=y[0];
|
|
theView->GetClientRect(&r);
|
|
m[0]=((double) (r.right-1))/(x[1]-x[0]);
|
|
m[1]=((double) (r.bottom-1))/(y[1]-y[0]);
|
|
|
|
if(m[0]<m[1]) theView->mag=m[0];
|
|
else theView->mag=m[1];
|
|
|
|
theView->Invalidate(TRUE);
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_zoomnatural(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
|
|
ChviewDoc *pDoc=theView->GetDocument();
|
|
double x[2],y[2],m[2],w;
|
|
RECT r;
|
|
int i;
|
|
|
|
if (pDoc->meshnode.GetSize()<2) return 0;
|
|
x[0]=pDoc->meshnode[0].x; x[1]=pDoc->meshnode[0].x;
|
|
y[0]=pDoc->meshnode[0].y; y[1]=pDoc->meshnode[0].y;
|
|
for(i=1;i<pDoc->meshnode.GetSize();i++)
|
|
{
|
|
if(pDoc->meshnode[i].x<x[0]) x[0]=pDoc->meshnode[i].x;
|
|
if(pDoc->meshnode[i].x>x[1]) x[1]=pDoc->meshnode[i].x;
|
|
if(pDoc->meshnode[i].y<y[0]) y[0]=pDoc->meshnode[i].y;
|
|
if(pDoc->meshnode[i].y>y[1]) y[1]=pDoc->meshnode[i].y;
|
|
}
|
|
|
|
if(pDoc->FirstDraw==TRUE){
|
|
if((x[1]-x[0])>(y[1]-y[0])) w=x[1]-x[0];
|
|
else w=y[1]-y[0];
|
|
if(w!=0)
|
|
theView->GridSize=pow(10.,floor(log(w)/log(10.)-1.));
|
|
}
|
|
|
|
theView->ox=x[0]; theView->oy=y[0];
|
|
theView->GetClientRect(&r);
|
|
m[0]=((double) (r.right-1))/(x[1]-x[0]);
|
|
m[1]=((double) (r.bottom-1))/(y[1]-y[0]);
|
|
|
|
if(m[0]<m[1]) theView->mag=m[0];
|
|
else theView->mag=m[1];
|
|
|
|
if(pDoc->FirstDraw==TRUE) pDoc->FirstDraw=FALSE;
|
|
else theView->RedrawView();
|
|
|
|
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_zoomout(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
RECT r;
|
|
double x,y;
|
|
|
|
theView->GetClientRect(&r);
|
|
x=r.right; y=r.bottom;
|
|
theView->ox=theView->ox-0.5*x/theView->mag;
|
|
theView->oy=theView->oy-0.5*y/theView->mag;
|
|
theView->mag/=2.;
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_showmesh(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
CToolBar *pToolBar;
|
|
pToolBar=&MFrm->m_HV_toolBar1;
|
|
CToolBarCtrl *tc=&pToolBar->GetToolBarCtrl();
|
|
|
|
theView->MeshFlag=TRUE;
|
|
MMnu->CheckMenuItem(ID_SHOW_MESH, MF_CHECKED);
|
|
tc->PressButton(ID_SHOW_MESH,TRUE);
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_hidemesh(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
CToolBar *pToolBar;
|
|
pToolBar=&MFrm->m_HV_toolBar1;
|
|
CToolBarCtrl *tc=&pToolBar->GetToolBarCtrl();
|
|
|
|
theView->MeshFlag=FALSE;
|
|
MMnu->CheckMenuItem(ID_SHOW_MESH, MF_UNCHECKED);
|
|
tc->PressButton(ID_SHOW_MESH,FALSE);
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_hidegrid(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
CToolBar *pToolBar;
|
|
pToolBar=&MFrm->m_leftbar;
|
|
CToolBarCtrl *tc=&pToolBar->GetToolBarCtrl();
|
|
|
|
theView->GridFlag=FALSE;
|
|
MMnu->CheckMenuItem(ID_SHOW_GRID, MF_UNCHECKED);
|
|
tc->PressButton(ID_SHOW_GRID,FALSE);
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_showgrid(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
CToolBar *pToolBar;
|
|
pToolBar=&MFrm->m_leftbar;
|
|
CToolBarCtrl *tc=&pToolBar->GetToolBarCtrl();
|
|
|
|
theView->GridFlag=TRUE;
|
|
MMnu->CheckMenuItem(ID_SHOW_GRID, MF_CHECKED);
|
|
tc->PressButton(ID_SHOW_GRID,TRUE);
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_showdensity(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
BOOL showlegend;
|
|
BOOL gscale;
|
|
int PlotType,n;
|
|
double m_ub1,m_lb1;
|
|
CString type;
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
n=lua_gettop(L); if(n<3) return 0;
|
|
|
|
showlegend=(int) lua_todouble(L,1);
|
|
gscale=(int) lua_todouble(L,2);
|
|
PlotType=(int) lua_todouble(L,3);
|
|
|
|
if(n>=5)
|
|
{
|
|
m_ub1=lua_todouble(L,4);
|
|
m_lb1=lua_todouble(L,5);
|
|
}
|
|
|
|
if(m_lb1>m_ub1)
|
|
{
|
|
double temp=m_lb1;
|
|
m_lb1=m_ub1;
|
|
m_ub1=temp;
|
|
}
|
|
|
|
if ((PlotType>2)|| (PlotType<0)) PlotType=0;
|
|
|
|
if (showlegend==-1)
|
|
{
|
|
// load back the default plot range
|
|
m_lb1=thisDoc->d_PlotBounds[PlotType][0];
|
|
m_ub1=thisDoc->d_PlotBounds[PlotType][1];
|
|
showlegend=1;
|
|
gscale=0;
|
|
n=5;
|
|
}
|
|
|
|
theView->DensityPlot=PlotType+1;
|
|
theView->LegendFlag=showlegend;
|
|
theView->GreyContours=gscale;
|
|
if(n>=5)
|
|
{
|
|
thisDoc->PlotBounds[PlotType][1]=m_ub1;
|
|
thisDoc->PlotBounds[PlotType][0]=m_lb1;
|
|
}
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_hidedensity(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
theView->DensityPlot=0;
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_showcountour(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
int m_numcontours;
|
|
double m_alow,m_ahigh;
|
|
CString type;
|
|
m_numcontours=(int) lua_todouble(L,1);
|
|
m_alow=lua_todouble(L,2);
|
|
m_ahigh=lua_todouble(L,3);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
|
|
theView->ShowAr=true;
|
|
thisDoc->A_Low=m_alow;
|
|
thisDoc->A_High=m_ahigh;
|
|
theView->NumContours=m_numcontours;
|
|
theView->RedrawView();
|
|
|
|
if(m_numcontours==-1)
|
|
{
|
|
thisDoc->A_Low=thisDoc->A_lb;
|
|
thisDoc->A_High=thisDoc->A_ub;
|
|
theView->NumContours=19;
|
|
}
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_hidecountour(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
theView->ShowAr=FALSE;
|
|
|
|
theView->RedrawView();
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_smoothing(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CString temp;
|
|
temp.Format("%s",lua_tostring(L,1));
|
|
temp.MakeLower();
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
|
|
|
|
if (temp=="off")
|
|
{
|
|
thisDoc->Smooth=FALSE;
|
|
MMnu->CheckMenuItem(ID_SMOOTH, MF_UNCHECKED);
|
|
|
|
}
|
|
if (temp=="on")
|
|
{
|
|
thisDoc->Smooth=TRUE;
|
|
MMnu->CheckMenuItem(ID_SMOOTH, MF_CHECKED);
|
|
}
|
|
|
|
|
|
if (temp !="on" && temp !="off")
|
|
{
|
|
CString msg="Unknown option for smoothing";
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_showpoints(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CFrameWnd *MFrm;
|
|
MFrm=theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
|
|
theView->PtsFlag=TRUE;
|
|
MMnu->CheckMenuItem(ID_MENUSHOWPTS, MF_CHECKED);
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_hidepoints(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CFrameWnd *MFrm;
|
|
MFrm=theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
|
|
theView->PtsFlag=FALSE;
|
|
MMnu->CheckMenuItem(ID_MENUSHOWPTS, MF_UNCHECKED);
|
|
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_gridsnap(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CString temp;
|
|
temp.Format("%s",lua_tostring(L,1));
|
|
temp.MakeLower();
|
|
|
|
CMainFrame *MFrm;
|
|
MFrm=(CMainFrame *)theView->GetTopLevelFrame();
|
|
CMenu* MMnu=MFrm->GetMenu();
|
|
CToolBar *pToolBar;
|
|
pToolBar=&MFrm->m_leftbar;
|
|
CToolBarCtrl *tc=&pToolBar->GetToolBarCtrl();
|
|
|
|
if(temp=="off"){
|
|
theView->SnapFlag=FALSE;
|
|
MMnu->CheckMenuItem(ID_SNAP_GRID, MF_UNCHECKED);
|
|
tc->PressButton(ID_SNAP_GRID,FALSE);
|
|
}
|
|
else{
|
|
theView->SnapFlag=TRUE;
|
|
MMnu->CheckMenuItem(ID_SNAP_GRID, MF_CHECKED);
|
|
tc->PressButton(ID_SNAP_GRID,TRUE);
|
|
}
|
|
|
|
|
|
if (temp !="on" && temp !="off")
|
|
{
|
|
CString msg="Unknown option for grid snap";
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
int ChviewDoc::lua_setgrid(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CString temp;
|
|
int coords=0;
|
|
double gridsize;
|
|
|
|
gridsize=lua_todouble(L,1);
|
|
temp.Format("%s",lua_tostring(L,2));
|
|
temp.MakeLower();
|
|
|
|
if (temp=="cart") coords=0;
|
|
if (temp=="polar") coords=1;
|
|
|
|
if (temp !="cart" && temp !="polar")
|
|
{
|
|
CString msg="Unknown option for set grid";
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
theView->GridSize=gridsize;
|
|
thisDoc->Coords=coords;
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_getprobleminfo(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
lua_pushnumber(L,thisDoc->ProblemType);
|
|
lua_pushnumber(L,thisDoc->Depth);
|
|
lua_pushnumber(L,thisDoc->LengthConv[thisDoc->LengthUnits]);
|
|
|
|
return 3;
|
|
}
|
|
|
|
int ChviewDoc::lua_savebitmap(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CString filename;
|
|
|
|
filename.Format("%s",lua_tostring(L,1));
|
|
|
|
RECT r;
|
|
CDC tempDC;
|
|
CBitmap bitmap;
|
|
CDC *pDC=theView->GetDC();
|
|
|
|
theView->GetClientRect(&r);
|
|
|
|
tempDC.CreateCompatibleDC(pDC);
|
|
bitmap.CreateCompatibleBitmap(pDC, r.right, r.bottom);
|
|
tempDC.SelectObject(&bitmap);
|
|
tempDC.Rectangle(0,0,r.right,r.bottom);
|
|
|
|
theView->OnDraw(&tempDC);
|
|
// tempDC.BitBlt(0, 0, r.right, r.bottom, pDC, 0, 0, SRCCOPY);
|
|
|
|
|
|
PBITMAPINFO pbmi;
|
|
|
|
pbmi=thisDoc->CreateBitmapInfoStruct(theView->m_hWnd,HBITMAP(bitmap));
|
|
thisDoc->CreateBMPFile(theView->m_hWnd,filename.GetBuffer(1),pbmi,HBITMAP(bitmap),tempDC.m_hDC);
|
|
|
|
// to save a bitmap file we need
|
|
// a bitmapheader lets use the v5
|
|
|
|
// OpenClipboard();
|
|
// EmptyClipboard();
|
|
// SetClipboardData(CF_BITMAP, HBITMAP(bitmap));
|
|
// CloseClipboard();
|
|
return 0;
|
|
}
|
|
|
|
|
|
PBITMAPINFO ChviewDoc::CreateBitmapInfoStruct(HWND hwnd, HBITMAP hBmp)
|
|
{
|
|
BITMAP bmp;
|
|
PBITMAPINFO pbmi;
|
|
WORD cClrBits;
|
|
|
|
// Retrieve the bitmap's color format, width, and height.
|
|
if (!GetObject(hBmp, sizeof(BITMAP), (LPSTR)&bmp))
|
|
{//errhandler("GetObject", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy9");
|
|
}
|
|
// Convert the color format to a count of bits.
|
|
cClrBits = (WORD)(bmp.bmPlanes * bmp.bmBitsPixel);
|
|
if (cClrBits == 1)
|
|
cClrBits = 1;
|
|
else if (cClrBits <= 4)
|
|
cClrBits = 4;
|
|
else if (cClrBits <= 8)
|
|
cClrBits = 8;
|
|
else if (cClrBits <= 16)
|
|
cClrBits = 16;
|
|
else if (cClrBits <= 24)
|
|
cClrBits = 24;
|
|
else cClrBits = 32;
|
|
|
|
// Allocate memory for the BITMAPINFO structure. (This structure
|
|
// contains a BITMAPINFOHEADER structure and an array of RGBQUAD
|
|
// data structures.)
|
|
|
|
if (cClrBits >= 24)
|
|
pbmi = (PBITMAPINFO) LocalAlloc(LPTR,
|
|
sizeof(BITMAPINFOHEADER) +
|
|
sizeof(RGBQUAD) * ((int)(1<< cClrBits)));
|
|
|
|
// There is no RGBQUAD array for the 24-bit-per-pixel format.
|
|
|
|
else
|
|
pbmi = (PBITMAPINFO) LocalAlloc(LPTR,
|
|
sizeof(BITMAPINFOHEADER));
|
|
|
|
// Initialize the fields in the BITMAPINFO structure.
|
|
|
|
pbmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
|
|
pbmi->bmiHeader.biWidth = bmp.bmWidth;
|
|
pbmi->bmiHeader.biHeight = bmp.bmHeight;
|
|
pbmi->bmiHeader.biPlanes = bmp.bmPlanes;
|
|
pbmi->bmiHeader.biBitCount = bmp.bmBitsPixel;
|
|
if (cClrBits < 24)
|
|
pbmi->bmiHeader.biClrUsed = (1<<cClrBits);
|
|
|
|
// If the bitmap is not compressed, set the BI_RGB flag.
|
|
pbmi->bmiHeader.biCompression = BI_RGB;
|
|
|
|
// Compute the number of bytes in the array of color
|
|
// indices and store the result in biSizeImage.
|
|
// For Windows NT/2000, the width must be DWORD aligned unless
|
|
// the bitmap is RLE compressed. This example shows this.
|
|
// For Windows 95/98, the width must be WORD aligned unless the
|
|
// bitmap is RLE compressed.
|
|
pbmi->bmiHeader.biSizeImage = ((pbmi->bmiHeader.biWidth * cClrBits +31) & ~31) /8
|
|
* pbmi->bmiHeader.biHeight;
|
|
// Set biClrImportant to 0, indicating that all of the
|
|
// device colors are important.
|
|
pbmi->bmiHeader.biClrImportant = 0;
|
|
return pbmi;
|
|
}
|
|
|
|
|
|
void ChviewDoc::CreateBMPFile(HWND hwnd, LPTSTR pszFile, PBITMAPINFO pbi,
|
|
HBITMAP hBMP, HDC hDC)
|
|
{
|
|
HANDLE hf; // file handle
|
|
BITMAPFILEHEADER hdr; // bitmap file-header
|
|
PBITMAPINFOHEADER pbih; // bitmap info-header
|
|
LPBYTE lpBits; // memory pointer
|
|
DWORD dwTotal; // total count of bytes
|
|
DWORD cb; // incremental count of bytes
|
|
BYTE *hp; // byte pointer
|
|
DWORD dwTmp;
|
|
|
|
pbih = (PBITMAPINFOHEADER) pbi;
|
|
lpBits = (LPBYTE) GlobalAlloc(GMEM_FIXED, pbih->biSizeImage);
|
|
|
|
if (!lpBits)
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy10");
|
|
// errhandler("GlobalAlloc", hwnd);
|
|
|
|
// Retrieve the color table (RGBQUAD array) and the bits
|
|
// (array of palette indices) from the DIB.
|
|
if (!GetDIBits(hDC, hBMP, 0, (WORD) pbih->biHeight, lpBits, pbi,
|
|
DIB_RGB_COLORS))
|
|
{
|
|
// errhandler("GetDIBits", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy11");
|
|
|
|
}
|
|
|
|
// Create the .BMP file.
|
|
hf = CreateFile(pszFile,
|
|
GENERIC_READ | GENERIC_WRITE,
|
|
(DWORD) 0,
|
|
NULL,
|
|
CREATE_ALWAYS,
|
|
FILE_ATTRIBUTE_NORMAL,
|
|
(HANDLE) NULL);
|
|
if (hf == INVALID_HANDLE_VALUE)
|
|
{// errhandler("CreateFile", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy12");
|
|
|
|
}
|
|
hdr.bfType = 0x4d42; // 0x42 = "B" 0x4d = "M"
|
|
// Compute the size of the entire file.
|
|
hdr.bfSize = (DWORD) (sizeof(BITMAPFILEHEADER) +
|
|
pbih->biSize + pbih->biClrUsed
|
|
* sizeof(RGBQUAD) + pbih->biSizeImage);
|
|
hdr.bfReserved1 = 0;
|
|
hdr.bfReserved2 = 0;
|
|
|
|
// Compute the offset to the array of color indices.
|
|
hdr.bfOffBits = (DWORD) sizeof(BITMAPFILEHEADER) +
|
|
pbih->biSize + pbih->biClrUsed
|
|
* sizeof (RGBQUAD);
|
|
|
|
// Copy the BITMAPFILEHEADER into the .BMP file.
|
|
if (!WriteFile(hf, (LPVOID) &hdr, sizeof(BITMAPFILEHEADER),
|
|
(LPDWORD) &dwTmp, NULL))
|
|
{
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy13");
|
|
|
|
// errhandler("WriteFile", hwnd);
|
|
}
|
|
|
|
// Copy the BITMAPINFOHEADER and RGBQUAD array into the file.
|
|
if (!WriteFile(hf, (LPVOID) pbih, sizeof(BITMAPINFOHEADER)
|
|
+ pbih->biClrUsed * sizeof (RGBQUAD),
|
|
(LPDWORD) &dwTmp, ( NULL)))
|
|
// errhandler("WriteFile", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy14");
|
|
|
|
// Copy the array of color indices into the .BMP file.
|
|
dwTotal = cb = pbih->biSizeImage;
|
|
hp = lpBits;
|
|
if (!WriteFile(hf, (LPSTR) hp, (int) cb, (LPDWORD) &dwTmp,NULL))
|
|
// errhandler("WriteFile", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy15");
|
|
|
|
// Close the .BMP file.
|
|
if (!CloseHandle(hf))
|
|
// errhandler("CloseHandle", hwnd);
|
|
MsgBox("Critical error on getting bmp info, possible page fault ahoy16");
|
|
|
|
// Free memory.
|
|
GlobalFree((HGLOBAL)lpBits);
|
|
}
|
|
|
|
int ChviewDoc::lua_getcircuitprops(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * TheDoc; // note normally thisdoc
|
|
ChviewView * theView;
|
|
TheDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=TheDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)TheDoc->GetNextView(pos);
|
|
|
|
int NumCircuits,i,k;
|
|
CString circuitname;
|
|
circuitname=lua_tostring(L,1);
|
|
k=-1;
|
|
|
|
// ok we need to find the correct entry for the circuit name
|
|
NumCircuits=(int) TheDoc->circproplist.GetSize();
|
|
for(i=0;i<NumCircuits;i++)
|
|
{
|
|
if(TheDoc->circproplist[i].CircName==circuitname)
|
|
{
|
|
k=i;
|
|
i=NumCircuits; // that will break it
|
|
}
|
|
}
|
|
|
|
// trap errors
|
|
|
|
if(k==-1)
|
|
{
|
|
CString msg="Unknown conductor";
|
|
lua_error(L,msg.GetBuffer(1));
|
|
return 0;
|
|
}
|
|
|
|
lua_pushnumber(L,TheDoc->circproplist[k].V);
|
|
lua_pushnumber(L,TheDoc->circproplist[k].q);
|
|
return 2;
|
|
}
|
|
|
|
int ChviewDoc::lua_saveWMF(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
CString filename;
|
|
|
|
filename.Format("%s",lua_tostring(L,1));
|
|
|
|
RECT r;
|
|
CDC tempDC;
|
|
CDC *pDC=theView->GetDC();
|
|
|
|
CMetaFileDC Meta;
|
|
CRgn R;
|
|
|
|
Meta.CreateEnhanced(NULL,NULL,NULL,NULL);
|
|
theView->GetClientRect(&r);
|
|
R.CreateRectRgnIndirect(&r);
|
|
Meta.SelectClipRgn(&R);
|
|
theView->OnDraw(&Meta);
|
|
HENHMETAFILE hMeta=Meta.CloseEnhanced();
|
|
|
|
DeleteEnhMetaFile(CopyEnhMetaFile(hMeta,filename));
|
|
DeleteEnhMetaFile(hMeta);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_refreshview(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
CDC *pDC=theView->GetDC();
|
|
|
|
// erase background
|
|
CBrush backBrush(theView->BackColor);
|
|
CBrush* pOldBrush = pDC->SelectObject(&backBrush);
|
|
CRect rect;
|
|
pDC->GetClipBox(&rect);
|
|
pDC->PatBlt(rect.left, rect.top, rect.Width(),
|
|
rect.Height(), PATCOPY);
|
|
pDC->SelectObject(pOldBrush);
|
|
|
|
// redraw the view
|
|
theView->OnDraw(pDC);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_selectline(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * pDoc; // note normally thisdoc
|
|
ChviewView * theView;
|
|
pDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=pDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)pDoc->GetNextView(pos);
|
|
|
|
theView->EditAction=1; // make sure things update OK
|
|
|
|
double mx,my;
|
|
int i,j,k,m;
|
|
|
|
mx=lua_todouble(L,1);
|
|
my=lua_todouble(L,2);
|
|
|
|
|
|
//***************
|
|
{
|
|
if (pDoc->nodelist.GetSize()>0){
|
|
i=pDoc->ClosestNode(mx,my);
|
|
CComplex x,y,z;
|
|
double R,d1,d2;
|
|
int lineno,arcno,flag=0;
|
|
z.Set(pDoc->nodelist[i].x,pDoc->nodelist[i].y);
|
|
|
|
if (pDoc->contour.GetSize()>0){
|
|
|
|
//check to see if point is the same as last point in the contour;
|
|
y=pDoc->contour[pDoc->contour.GetSize()-1];
|
|
if ((y.re==z.re) && (y.im==z.im)) return 0;
|
|
|
|
j=pDoc->ClosestNode(y.re,y.im);
|
|
x.Set(pDoc->nodelist[j].x,pDoc->nodelist[j].y);
|
|
|
|
//check to see if this point and the last point are ends of an
|
|
//input segment;
|
|
lineno=-1;
|
|
d1=1.e08;
|
|
|
|
if (abs(x-y)<1.e-08){
|
|
for(k=0;k<pDoc->linelist.GetSize();k++){
|
|
if((pDoc->linelist[k].n0==j) && (pDoc->linelist[k].n1==i))
|
|
{
|
|
d2=fabs(pDoc->ShortestDistanceFromSegment(mx,my,k));
|
|
if(d2<d1){
|
|
lineno=k;
|
|
d1=d2;
|
|
}
|
|
}
|
|
if((pDoc->linelist[k].n0==i) && (pDoc->linelist[k].n1==j))
|
|
{
|
|
d2=fabs(pDoc->ShortestDistanceFromSegment(mx,my,k));
|
|
if(d2<d1){
|
|
lineno=k;
|
|
d1=d2;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
//check to see if this point and last point are ends of an
|
|
// arc segment; if so, add entire arc to the contour;
|
|
arcno=-1;
|
|
if (abs(x-y)<1.e-08){
|
|
for(k=0;k<pDoc->arclist.GetSize();k++){
|
|
if((pDoc->arclist[k].n0==j) && (pDoc->arclist[k].n1==i))
|
|
{
|
|
d2=pDoc->ShortestDistanceFromArc(CComplex(mx,my),
|
|
pDoc->arclist[k]);
|
|
if(d2<d1){
|
|
arcno=k;
|
|
lineno=-1;
|
|
flag=TRUE;
|
|
d1=d2;
|
|
}
|
|
}
|
|
if((pDoc->arclist[k].n0==i) && (pDoc->arclist[k].n1==j))
|
|
{
|
|
d2=pDoc->ShortestDistanceFromArc(CComplex(mx,my),
|
|
pDoc->arclist[k]);
|
|
if(d2<d1){
|
|
arcno=k;
|
|
lineno=-1;
|
|
flag=FALSE;
|
|
d1=d2;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|
|
else{
|
|
pDoc->contour.Add(z);
|
|
theView->DrawUserContour(FALSE);
|
|
return 0;
|
|
}
|
|
|
|
if((lineno<0) && (arcno<0)){
|
|
pDoc->contour.Add(z);
|
|
theView->DrawUserContour(FALSE);
|
|
}
|
|
|
|
if(lineno>=0){
|
|
j=(int) pDoc->contour.GetSize();
|
|
if(j>1){
|
|
if(abs(pDoc->contour[j-2]-z)<1.e-08){
|
|
//CView::OnLButtonDown(nFlags, point);
|
|
return 0;
|
|
}
|
|
}
|
|
pDoc->contour.Add(z);
|
|
theView->DrawUserContour(FALSE);
|
|
}
|
|
if(arcno>=0){
|
|
k=arcno;
|
|
pDoc->GetCircle(pDoc->arclist[k],x,R);
|
|
j=(int) ceil(pDoc->arclist[k].ArcLength/pDoc->arclist[k].MaxSideLength);
|
|
if(flag==TRUE)
|
|
z=exp(I*pDoc->arclist[k].ArcLength*PI/(180.*((double) j)) );
|
|
else
|
|
z=exp(-I*pDoc->arclist[k].ArcLength*PI/(180.*((double) j)) );
|
|
for(i=0;i<j;i++){
|
|
y=(y-x)*z+x;
|
|
m=(int) pDoc->contour.GetSize();
|
|
if(m>1){
|
|
if(abs(pDoc->contour[m-2]-y)<1.e-08){
|
|
//CView::OnLButtonDown(nFlags, point);
|
|
return 0;
|
|
}
|
|
}
|
|
pDoc->contour.Add(y);
|
|
theView->DrawUserContour(FALSE);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
//*************
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_seteditmode(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
CString EditAction;
|
|
|
|
EditAction.Format("%s",lua_tostring(L,1));
|
|
EditAction.MakeLower();
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
if (EditAction=="point")
|
|
{
|
|
if (theView->EditAction==1){
|
|
theView->EraseUserContour(TRUE);
|
|
thisDoc->contour.RemoveAll();
|
|
}
|
|
if (theView->EditAction==2){
|
|
int i;
|
|
BOOL flg=FALSE;
|
|
thisDoc->bHasMask=FALSE;
|
|
for(i=0;i<thisDoc->blocklist.GetSize();i++)
|
|
{
|
|
if (thisDoc->blocklist[i].IsSelected==TRUE)
|
|
{
|
|
thisDoc->blocklist[i].IsSelected=FALSE;
|
|
flg=TRUE;
|
|
}
|
|
}
|
|
if(flg==TRUE) theView->RedrawView();
|
|
}
|
|
theView->EditAction=0;
|
|
}
|
|
if (EditAction=="contour")
|
|
{
|
|
if(theView->EditAction==2){
|
|
int i;
|
|
BOOL flg=FALSE;
|
|
thisDoc->bHasMask=FALSE;
|
|
for(i=0;i<thisDoc->blocklist.GetSize();i++){
|
|
if (thisDoc->blocklist[i].IsSelected==TRUE)
|
|
{
|
|
thisDoc->blocklist[i].IsSelected=FALSE;
|
|
flg=TRUE;
|
|
}
|
|
}
|
|
|
|
if(flg==TRUE) theView->RedrawView();
|
|
}
|
|
theView->EditAction=1;
|
|
}
|
|
if (EditAction=="area")
|
|
{
|
|
if(theView->EditAction==1){
|
|
theView->EraseUserContour(TRUE);
|
|
thisDoc->contour.RemoveAll();
|
|
}
|
|
theView->EditAction=2;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_bendcontour(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
thisDoc->BendContour(lua_todouble(L,1),lua_todouble(L,2));
|
|
theView->InvalidateRect(NULL);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_makeplot(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc *pDoc;
|
|
ChviewView *pView;
|
|
pDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=pDoc->GetFirstViewPosition();
|
|
pView=(ChviewView *)pDoc->GetNextView(pos);
|
|
|
|
int PlotType,npoints,FileFormat,n;
|
|
CString ToFile;
|
|
|
|
// if ((pView->EditAction!=1) || (pDoc->contour.GetSize()==0)){
|
|
if (pDoc->contour.GetSize()==0){
|
|
CString outmsg;
|
|
outmsg.Format("*** Cannot create a plot;\r\n*** No contour has been defined\r\n");
|
|
LuaConsole->ToOutput(outmsg);
|
|
return TRUE;
|
|
}
|
|
|
|
n=lua_gettop(L);
|
|
|
|
if(n>0) PlotType=(int) lua_todouble(L,1);
|
|
else return FALSE;
|
|
|
|
if(n>1) npoints=(int) lua_todouble(L,2);
|
|
else npoints=pView->d_PlotPoints;
|
|
|
|
CXYPlot xyplot;
|
|
pDoc->GetLineValues(xyplot,PlotType,npoints);
|
|
|
|
if(n<3)
|
|
{
|
|
CMetaFileDC Meta;
|
|
Meta.CreateEnhanced(NULL,NULL,NULL,NULL);
|
|
HGLOBAL BoundingBox=GlobalAlloc(0,256);
|
|
xyplot.MakePlot(&Meta,(char *) BoundingBox);
|
|
HENHMETAFILE hMeta=Meta.CloseEnhanced();
|
|
if (hMeta==NULL) MsgBox("No Handle...");
|
|
if (pView->OpenClipboard()==FALSE)
|
|
MsgBox("Cannot access the Clipboard");
|
|
else{
|
|
EmptyClipboard();
|
|
if(SetClipboardData(CF_ENHMETAFILE,hMeta)==NULL)
|
|
MsgBox("Couldn't SetClipboardData");
|
|
if(SetClipboardData(CF_TEXT,BoundingBox)==NULL)
|
|
MsgBox("Couldn't SetClipboardData");
|
|
CloseClipboard();
|
|
|
|
// fire up plot viewer;
|
|
((CFemmApp *)AfxGetApp())->CreateNewDocument(8);
|
|
}
|
|
}
|
|
else{
|
|
ToFile.Format("%s",lua_tostring(L,3));
|
|
|
|
if(n>3){
|
|
FileFormat=(int) lua_todouble(L,4);
|
|
if (xyplot.ToDisk(FileFormat,ToFile)==FALSE)
|
|
LuaConsole->ToOutput("*** Couldn't write data to disk\r\n");
|
|
}
|
|
else{
|
|
CMetaFileDC Meta;
|
|
Meta.CreateEnhanced(NULL,NULL,NULL,NULL);
|
|
HGLOBAL BoundingBox=GlobalAlloc(0,256);
|
|
xyplot.MakePlot(&Meta,(char *) BoundingBox);
|
|
HENHMETAFILE hMeta=Meta.CloseEnhanced();
|
|
if (hMeta==NULL) MsgBox("No Handle...");
|
|
DeleteEnhMetaFile(CopyEnhMetaFile(hMeta,ToFile));
|
|
DeleteEnhMetaFile(hMeta);
|
|
}
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
int ChviewDoc::lua_selectconductor(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
int n=lua_gettop(L);
|
|
if (n==0) return 0;
|
|
|
|
int j,i;
|
|
CString name;
|
|
name=lua_tostring(L,1);
|
|
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
for(i=0,j=-1;i<thisDoc->circproplist.GetSize();i++)
|
|
{
|
|
|
|
if (name==thisDoc->circproplist[i].CircName)
|
|
{
|
|
j=i;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (j<0) return 0;
|
|
|
|
// now, the group associated with the nearest entity is in j;
|
|
// toggle the select of all objects in this group;
|
|
for(i=0;i<thisDoc->nodelist.GetSize();i++)
|
|
if (thisDoc->nodelist[i].InConductor==j) thisDoc->nodelist[i].ToggleSelect();
|
|
for(i=0;i<thisDoc->linelist.GetSize();i++)
|
|
if (thisDoc->linelist[i].InConductor==j) thisDoc->linelist[i].ToggleSelect();
|
|
for(i=0;i<thisDoc->arclist.GetSize();i++)
|
|
if (thisDoc->arclist[i].InConductor==j) thisDoc->arclist[i].ToggleSelect();
|
|
for(i=0;i<thisDoc->meshnode.GetSize();i++)
|
|
{
|
|
if (thisDoc->meshnode[i].Q==j)
|
|
{
|
|
thisDoc->meshnode[i].IsSelected=1-thisDoc->meshnode[i].IsSelected;
|
|
}
|
|
}
|
|
theView->RedrawView();
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_shownames(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
int flg=(int)lua_todouble(L,1);
|
|
if (flg!=0) flg=1;
|
|
theView->ShowNames=flg;
|
|
theView->InvalidateRect(NULL);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_vectorplot(lua_State * L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
|
|
int n=lua_gettop(L);
|
|
if (n>0) theView->VectorPlot=(int)lua_todouble(L,1);
|
|
if (n>1) theView->VectorScaleFactor=lua_todouble(L,2);
|
|
|
|
theView->InvalidateRect(NULL);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::luaResize(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
CChildFrame *pChildFrm = (CChildFrame *)theView->GetParentFrame();
|
|
int n=lua_gettop(L);
|
|
if (n!=2) return 0;
|
|
|
|
int nWidth = (int)lua_todouble(L,1);
|
|
int nHeight = (int)lua_todouble(L,2);
|
|
pChildFrm->ResizeClient(nWidth,nHeight,TRUE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::luaMinimize(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
CChildFrame *pChildFrm = (CChildFrame *)theView->GetParentFrame();
|
|
|
|
pChildFrm->ShowWindow(SW_MINIMIZE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::luaMaximize(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
CChildFrame *pChildFrm = (CChildFrame *)theView->GetParentFrame();
|
|
|
|
pChildFrm->ShowWindow(SW_MAXIMIZE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::luaRestore(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
ChviewView * theView;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
POSITION pos;
|
|
pos=thisDoc->GetFirstViewPosition();
|
|
theView=(ChviewView *)thisDoc->GetNextView(pos);
|
|
CChildFrame *pChildFrm = (CChildFrame *)theView->GetParentFrame();
|
|
|
|
pChildFrm->ShowWindow(SW_RESTORE);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int ChviewDoc::lua_gettitle(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
|
|
lua_pushstring(L,thisDoc->GetTitle());
|
|
|
|
return 1;
|
|
}
|
|
|
|
|
|
///////////////////////////////////////////////////////
|
|
// Functions that provide low-level access to the mesh
|
|
///////////////////////////////////////////////////////
|
|
|
|
int ChviewDoc::lua_numnodes(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
|
|
lua_pushnumber(L,(int) thisDoc->meshnode.GetSize());
|
|
|
|
return 1;
|
|
}
|
|
|
|
int ChviewDoc::lua_numelements(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
|
|
lua_pushnumber(L,(int) thisDoc->meshelem.GetSize());
|
|
|
|
return 1;
|
|
}
|
|
|
|
int ChviewDoc::lua_getnode(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
|
|
int k=(int) lua_todouble(L,1);
|
|
k--;
|
|
if ((k<0) || (k>=thisDoc->meshnode.GetSize())) return 0;
|
|
|
|
lua_pushnumber(L,thisDoc->meshnode[k].x);
|
|
lua_pushnumber(L,thisDoc->meshnode[k].y);
|
|
|
|
return 2;
|
|
}
|
|
|
|
int ChviewDoc::lua_getelement(lua_State *L)
|
|
{
|
|
CatchNullDocument();
|
|
ChviewDoc * thisDoc;
|
|
thisDoc=(ChviewDoc *)phviewDoc;
|
|
|
|
int k=(int) lua_todouble(L,1);
|
|
k--;
|
|
if ((k<0) || (k>=thisDoc->meshelem.GetSize())) return 0;
|
|
|
|
lua_pushnumber(L,thisDoc->meshelem[k].p[0]+1);
|
|
lua_pushnumber(L,thisDoc->meshelem[k].p[1]+1);
|
|
lua_pushnumber(L,thisDoc->meshelem[k].p[2]+1);
|
|
lua_pushnumber(L,Re(thisDoc->meshelem[k].ctr));
|
|
lua_pushnumber(L,Im(thisDoc->meshelem[k].ctr));
|
|
lua_pushnumber(L,thisDoc->ElmArea(k));
|
|
lua_pushnumber(L,thisDoc->blocklist[thisDoc->meshelem[k].lbl].InGroup);
|
|
|
|
return 7;
|
|
}
|