Añadido fp.screen

ediv/src/dlls/graphics/main.c

@@ -173,6 +173,7 @@ int ExportaFuncs(EXPORTAFUNCS_PARAMS)
 	FUNCTION("graphic_info",3,eDIV_GRAPHIC_INFO) ;
 	FUNCTION("fade",4,eDIV_FADE) ;
 	FUNCTION("xput",6,eDIV_XPUT);
+	FUNCTION("setmode",4,eDIV_SETMODE);
 
 	ENTRYPOINT( frame ) ;
 	ENTRYPOINT( first_load ) ;
@@ -1163,6 +1164,21 @@ int eDIV_FADE(FUNCTION_PARAMS2)
 	return 1 ;
 }
 	
+int eDIV_SETMODE(FUNCTION_PARAMS)
+{
+	int x,y,bpp,full;
+	full = getparm();
+	bpp  = getparm();
+	y = getparm();
+	x = getparm();
+//SDL_SWSURFACE SDL_HWSURFACE
+
+	if(full)
+	screen = SDL_SetVideoMode(x, y, bpp, SDL_SWSURFACE  |SDL_FULLSCREEN );
+	else
+	screen = SDL_SetVideoMode(x, y, bpp, SDL_SWSURFACE   );
+return;
+}
 
 //*********************************** Entry Points **********************************************//
 
@@ -1338,7 +1354,7 @@ void frame(FUNCTION_PARAMS)
 	last_blit = -1 ;
 
 	SDL_Flip(screen) ;
-
+	fp->screen=screen;
 	fclose(fichero);
 
 }
@@ -1415,7 +1431,7 @@ void first_load(FUNCTION_PARAMS2)
 int Dibuja(SDL_Surface *src , SDL_Rect srcrect , SDL_Rect dstrect , int z , int trans,int size,int angle)
 {
 	float zoom;
-
+	double angulo;
 	register int i , j ;
 	
 	last_blit++ ;
@@ -1425,11 +1441,13 @@ int Dibuja(SDL_Surface *src , SDL_Rect srcrect , SDL_Rect dstrect , int z , int
 		
 	zoom=size*0.01;
 
+	angulo=angle*10;
 	
-	
+	//blits[last_blit].src =  //rotozoomSurface (src, angle, zoom,smooth);//zoomSurface (src, zoom,zoom,SMOOTHING_OFF);;
-	blits[last_blit].src = rotozoomSurface (src, 0, zoom,smooth);//zoomSurface (src, zoom,zoom,SMOOTHING_OFF);;
 	//blits[last_blit].src = SDL_BlitSurface(rotozoomSurface (src, angle, 2,1), NULL , fondo , &dstrect );//src ;
+	
 	//blits[last_blit].src = src;
+	blits[last_blit].src =xput(src, zoom,angulo);
 	blits[last_blit].srcrect.x = srcrect.x ;
 	blits[last_blit].srcrect.y = srcrect.y ;
 	blits[last_blit].srcrect.w = blits[last_blit].src->w;//srcrect.w ;
@@ -1467,11 +1485,15 @@ int Dibuja(SDL_Surface *src , SDL_Rect srcrect , SDL_Rect dstrect , int z , int
 
 SDL_Surface *xput(SDL_Surface *src,double size,double angle)
 {
-SDL_Surface *dst;
-SDL_Surface *tmp;
 
-    tmp= zoomSurface (src, size/100, size/100,1);
+	int s;
-	dst=rotozoomSurface (tmp, angle, 1,1);
+	SDL_Surface *dst;
+	SDL_Surface *tmp;
+
+    s=smooth;
+	if(size==1 && angle ==0)s=0;
+    tmp= zoomSurface (src, size, size,s);
+	dst=rotozoomSurface (tmp, angle, 1,s);
 	SDL_FreeSurface (tmp);
 	
 	return dst;

ediv/src/stub/stub.c

@@ -200,7 +200,7 @@ int main(int argc, char* argv[])
 
 				for(i=0;i<num_indexed_vars;i++) {
 					varindex[i].hash=*ptr++;
-					varindex[i].nombre=strdup(ptr);
+					varindex[i].nombre=_strdup(ptr);
 					while(*ptr!=0) ptr++;
 					ptr++;
 					varindex[i].offset=*(int*)ptr; ptr+=4;
@@ -336,6 +336,8 @@ int main(int argc, char* argv[])
 					teclas=SDL_GetKeyState(NULL);
 					if(teclas[SDLK_x] && (teclas[SDLK_RALT] || teclas[SDLK_LALT]))
 						stub_quit(0);
+					if(teclas[SDLK_p] && (teclas[SDLK_RALT] || teclas[SDLK_LALT]))
+						SDL_SaveBMP(fp.screen,"SC.BMP");
 					
 						interprete();
 

ediv/src/visual c 6/dlls/dlls.dsw

@@ -0,0 +1,137 @@
+Microsoft Developer Studio Workspace File, Format Version 6.00
+# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
+
+###############################################################################
+
+Project: "ANSIC"="..\..\DLLS\ANSIC.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "dinmem"="..\..\DLLS\dinmem\dinmem.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "edivstd"="..\..\dlls\edivstd\edivstd.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "file"="..\..\DLLS\file\file.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "graphics"="..\..\dlls\graphics\graphics.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "input"="..\..\DLLS\input\input.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "math"="..\..\dlls\math\math.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "scroll"="..\..\DLLS\scroll\scroll.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "strings"="..\..\dlls\strings\strings.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Project: "text"="..\..\DLLS\text\text.dsp" - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Global:
+
+Package=<5>
+{{{
+}}}
+
+Package=<3>
+{{{
+}}}
+
+###############################################################################
+