mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-06-15 03:29:31 +00:00
48 lines
1.1 KiB
C
48 lines
1.1 KiB
C
/* ------------------------------------------------------------------------
|
||
System : Manx Aztec C65 Version 3.2b
|
||
MS-DOS cross-development environment
|
||
Platform : Apple IIe 128K PRODOS 8
|
||
Program : picsave.c
|
||
Description : G2 Library Routine
|
||
|
||
Written by : Bill Buckels
|
||
Revision Date: June 5, 1991
|
||
|
||
Licence : You may use this code for whatever you wish as long
|
||
as you agree that Bill Buckels has no warranty or
|
||
liability obligations whatsoever from said use.
|
||
------------------------------------------------------------------------ */
|
||
|
||
/* picsave a file from hires screen 2 */
|
||
|
||
#include <console.h>
|
||
#include <stdio.h>
|
||
#include <fcntl.h>
|
||
#include <prodos.h>
|
||
#include <sgtty.h>
|
||
#include <device.h>
|
||
#include <sysfunc.h>
|
||
|
||
extern unsigned HB[];
|
||
picsave(savex)
|
||
char *savex;
|
||
{
|
||
int fh;
|
||
int y;
|
||
char tempchar[2];
|
||
|
||
if((fh=bopen(savex, O_WRONLY|O_TRUNC|O_CREAT,0xc3)) != -1)
|
||
{
|
||
tempchar[0]=40;
|
||
tempchar[1]=192;
|
||
write(fh,tempchar,2);
|
||
|
||
for(y=0;y<192;y++)
|
||
write(fh,(char *)(HB[y]),40); /* write each raster */
|
||
close(fh);
|
||
}
|
||
|
||
}
|
||
|
||
|
||
|