procedure THI2DPerspective._work_doPerspective2D(var _Data:TData; index:word);
var 
   wi,he: real;

begin
     wi := readreal(_data,_data_Width,_prop_Width);
     he := readreal(_data,_data_Height,_prop_Width);
     glMatrixMode(GL_PROJECTION);
     glLoadIdentity;
     glOrtho ( 0, wi, he, 0, -1, 1);//set perspective
     glMatrixMode(GL_MODELVIEW);
	 _hi_OnEvent(_event_onPerspective2D);
end;