Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!husc6!cmcl2!rutgers!sri-spam!ames!elroy!mahendo!jplgodo!wlbr!etn-rad!jru
From: jru@etn-rad.UUCP (John Unekis)
Newsgroups: comp.sys.ibm.pc
Subject: Re: waiting for astrotitII, something else(part 1 of 5)
Message-ID: <270@etn-rad.UUCP>
Date: Wed, 2-Sep-87 21:43:23 EDT
Article-I.D.: etn-rad.270
Posted: Wed Sep  2 21:43:23 1987
Date-Received: Sat, 5-Sep-87 08:30:04 EDT
References: <4149@spool.wisc.edu.WISC.EDU> <2254@bellcore.bellcore.com> <729@plx.UUCP> <6113@ut-ngp.UUCP>
Reply-To: jru@etn-rad.UUCP (0000-John Unekis)
Distribution: comp
Organization: Eaton Inc. IMSD, Westlake Village, CA
Lines: 268

>> In article <2254@bellcore.bellcore.com> tr@wind.UUCP (tom reingold) writes:
>> >>	"If you like ASTROTIT, you should see what's coming! ;-)"
>> >
...   While you are all waiting expectantly for the next rev from astrotit,
      try this one. It is a mildly obscene animation for the IBM PC. First,
      copy this source to the PC and compile it under C with the large
      model.  Then take the next four files, uudecode them, and transfer
      them to the PC in binary mode. The program must be run in the same
      directory as the *.img files.

					 Happy drooling

-----------------------------------------------------------------------
Disclaimer: If you go to all that trouble to set this up just to complain
about it , you will be shot. Survivors will be shot again.


----------------------   cut here  ------------------------------------

#include <stdio.h>
char n1[4][8192],n2[4][8192],n3[4][8192],n4[4][8192];
struct memm {
char nn[4][8192];
} ;


main()
{
FILE *fp;
char filename[80];
int i,j,k;
long rotate,r;
struct memm * mp;
char * p;
char * p1;
char * p2;

printf("Note , when done, any key followed by <cr> returns to dos\n");
printf("How Many Rotations? ");
scanf("%ld",&rotate);

mp = (struct memm *) 0xb8000000;

p = &n1[0][0];
strcpy(filename,"n1.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n2[0][0];
strcpy(filename,"n2.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n3[0][0];
strcpy(filename,"n3.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

p = &n4[0][0];
strcpy(filename,"n4.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

graphmode(2);

p = (char *) 0xb8000000;
strcpy(filename,"n1.img");
fp = fopen(filename,"rb");
if(fp == NULL)
 {
 printf("cant open file %s\n",filename);
 exit(0);
 }
i = 32764;
fread(p,i,1,fp);
fclose(fp);

i = 2400;
for(r=0;r<rotate;r++)
 {
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n1[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n1[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n1[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n1[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n2[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n2[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n2[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n2[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n3[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n3[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n3[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n3[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[0][4096];
 p1 = &n4[0][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[1][4096];
 p1 = &n4[1][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[2][4096];
 p1 = &n4[2][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 p = (char *) &(*mp).nn[3][4096];
 p1 = &n4[3][4096];
 for(j=0;j<i;j++) *p++ = *p1++;
 }

scanf("%s",filename);
textmode();
}




graphmode(plane)
int plane;
{
if(plane == 1) {
outp(0x3b8,0x0002);
outp(0x3b4,0x0000);
outp(0x3b5,0x0035);
outp(0x3b4,0x0001);
outp(0x3b5,0x002d);
outp(0x3b4,0x0002);
outp(0x3b5,0x002e);
outp(0x3b4,0x0003);
outp(0x3b5,0x0007);
outp(0x3b4,0x0004);
outp(0x3b5,0x005b);
outp(0x3b4,0x0005);
outp(0x3b5,0x0002);
outp(0x3b4,0x0006);
outp(0x3b5,0x0057);
outp(0x3b4,0x0007);
outp(0x3b5,0x0057);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x0003);
outp(0x3b4,0x000a);
outp(0x3b5,0x0000);
outp(0x3b4,0x000b);
outp(0x3b5,0x0000);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x000a);
}
if(plane == 2) {
outp(0x3b8,0x0002);
outp(0x3b4,0x0080);
outp(0x3b5,0x0035);
outp(0x3b4,0x0001);
outp(0x3b5,0x002d);
outp(0x3b4,0x0002);
outp(0x3b5,0x002e);
outp(0x3b4,0x0003);
outp(0x3b5,0x0007);
outp(0x3b4,0x0004);
outp(0x3b5,0x005b);
outp(0x3b4,0x0005);
outp(0x3b5,0x0002);
outp(0x3b4,0x0006);
outp(0x3b5,0x0057);
outp(0x3b4,0x0007);
outp(0x3b5,0x0057);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x0003);
outp(0x3b4,0x000a);
outp(0x3b5,0x0000);
outp(0x3b4,0x000b);
outp(0x3b5,0x0000);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x008a);
}
}

textmode()
{
int i,j,k;
outp(0x3b8,0x0020);
outp(0x3b4,0x0000);
outp(0x3b5,0x0061);
outp(0x3b4,0x0001);
outp(0x3b5,0x0050);
outp(0x3b4,0x0002);
outp(0x3b5,0x0052);
outp(0x3b4,0x0003);
outp(0x3b5,0x000f);
outp(0x3b4,0x0004);
outp(0x3b5,0x0019);
outp(0x3b4,0x0005);
outp(0x3b5,0x0006);
outp(0x3b4,0x0006);
outp(0x3b5,0x0019);
outp(0x3b4,0x0007);
outp(0x3b5,0x0019);
outp(0x3b4,0x0008);
outp(0x3b5,0x0002);
outp(0x3b4,0x0009);
outp(0x3b5,0x000d);
outp(0x3b4,0x000a);
outp(0x3b5,0x000b);
outp(0x3b4,0x000b);
outp(0x3b5,0x000c);
outp(0x3b4,0x000c);
outp(0x3b5,0x0000);
outp(0x3b4,0x000d);
outp(0x3b5,0x0000);
outp(0x3b8,0x0028);
}