|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4172 (0x104c)
Types: TextFile
Notes: UNIX file
Names: »gfrog.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦2d53db1df⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »hr/src/graph/gfrog.c«
int frog[] = {
0, 88, 216,
1, 70, 218,
1, 64, 220,
1, 60, 219,
1, 50, 222,
1, 41, 225,
1, 36, 232,
1, 8, 260,
1, 3, 262,
1, 1, 266,
1, 0, 270,
1, 3, 273,
1, 20, 284,
1, 34, 289,
1, 50, 291,
1, 59, 297,
1, 66, 299,
1, 77, 297,
1, 81, 294,
1, 86, 287,
1, 91, 282,
1, 100, 280,
1, 115, 260,
1, 140, 250,
1, 161, 241,
1, 180, 238,
1, 200, 234,
1, 220, 223,
1, 234, 213,
1, 240, 201,
1, 247, 189,
1, 261, 169,
1, 275, 155,
1, 280, 148,
1, 279, 142,
1, 279, 140,
0, 195, 90,
1, 200, 98,
1, 210, 109,
1, 220, 115,
1, 230, 121,
1, 240, 126,
1, 260, 134,
1, 280, 140,
1, 284, 141,
1, 289, 140,
1, 292, 136,
1, 290, 126,
1, 280, 95,
1, 270, 70,
1, 265, 63,
1, 259, 60,
1, 250, 57,
1, 237, 47,
1, 224, 32,
1, 216, 24,
1, 210, 20,
1, 204, 20,
1, 202, 24,
1, 203, 28,
1, 210, 34,
1, 224, 46,
0, 248, 63,
1, 233, 50,
1, 210, 40,
1, 195, 34,
1, 188, 28,
1, 180, 26,
1, 176, 27,
1, 173, 30,
1, 177, 34,
1, 195, 43,
1, 210, 50,
1, 209, 52,
1, 195, 51,
1, 182, 48,
1, 168, 45,
1, 162, 48,
1, 161, 53,
1, 180, 58,
1, 202, 61,
0, 276, 113,
1, 272, 102,
1, 267, 91,
1, 252, 77,
1, 240, 70,
1, 222, 65,
1, 194, 60,
1, 187, 61,
1, 178, 68,
1, 171, 71,
1, 170, 77,
1, 171, 84,
1, 179, 102,
1, 193, 120,
1, 210, 130,
0, 270, 139,
1, 255, 140,
1, 237, 138,
1, 220, 130,
1, 200, 120,
1, 187, 110,
0, 170, 76,
1, 150, 73,
1, 140, 72,
1, 123, 69,
1, 110, 65,
1, 95, 61,
1, 88, 60,
1, 85, 61,
1, 86, 67,
1, 95, 72,
1, 111, 77,
1, 157, 80,
0, 136, 82,
1, 122, 84,
1, 111, 82,
1, 105, 80,
1, 100, 78,
1, 100, 80,
1, 94, 82,
1, 90, 80,
1, 80, 85,
1, 70, 87,
1, 60, 84,
1, 55, 81,
1, 55, 79,
1, 59, 78,
0, 82, 82,
1, 76, 82,
1, 62, 82,
1, 59, 80,
1, 60, 77,
1, 68, 70,
1, 80, 71,
1, 89, 70,
0, 170, 80,
1, 160, 80,
1, 142, 81,
1, 125, 88,
1, 110, 98,
1, 88, 121,
0, 131, 180,
1, 138, 168,
1, 139, 160,
1, 136, 150,
1, 131, 140,
1, 111, 132,
1, 100, 126,
1, 73, 121,
1, 50, 130,
1, 43, 138,
1, 32, 130,
1, 35, 124,
1, 35, 118,
1, 31, 112,
1, 29, 114,
1, 26, 126,
1, 22, 132,
1, 25, 138,
1, 40, 148,
0, 23, 135,
1, 20, 138,
1, 20, 140,
1, 40, 150,
0, 110, 187,
1, 105, 183,
1, 101, 176,
1, 99, 167,
1, 98, 158,
1, 70, 139,
1, 52, 145,
1, 49, 147,
1, 43, 153,
1, 37, 155,
1, 21, 158,
1, 10, 151,
1, 7, 148,
1, 20, 150,
1, 32, 150,
0, 50, 180,
1, 40, 181,
1, 30, 191,
1, 19, 200,
1, 15, 199,
1, 19, 187,
1, 32, 181,
1, 40, 173,
1, 44, 171,
0, 26, 180,
1, 15, 190,
1, 9, 191,
1, 7, 189,
1, 10, 182,
1, 20, 179,
1, 22, 170,
1, 25, 170,
1, 26, 180,
0, 11, 181,
1, 10, 170,
1, 16, 169,
1, 19, 170,
1, 18, 180,
1, 11, 181,
0, 59, 168,
1, 42, 165,
1, 33, 169,
1, 20, 164,
1, 16, 160,
1, 10, 159,
1, 5, 161,
1, 5, 168,
1, 16, 167,
1, 17, 161,
0, 74, 144,
1, 45, 187,
1, 9, 250,
1, 2, 259,
1, 32, 232,
1, 52, 218,
1, 89, 214,
0, 100, 205,
1, 90, 210,
1, 84, 221,
1, 70, 240,
1, 65, 249,
1, 66, 260,
1, 69, 267,
0, 85, 230,
1, 71, 238,
0, 89, 231,
1, 80, 235,
1, 70, 240,
0, 90, 243,
1, 88, 239,
1, 82, 236,
1, 78, 236,
1, 71, 240,
1, 66, 249,
0, 65, 255,
1, 69, 252,
1, 74, 253,
1, 75, 260,
1, 72, 265,
0, 99, 231,
1, 92, 240,
1, 82, 260,
1, 78, 265,
1, 63, 267,
0, 99, 238,
1, 92, 250,
1, 82, 265,
1, 71, 270,
0, 102, 248,
1, 97, 268,
1, 90, 274,
1, 83, 278,
1, 77, 277,
1, 68, 270,
1, 62, 270,
0, 39, 268,
1, 35, 270,
1, 30, 268,
1, 26, 268,
1, 27, 271,
1, 35, 268,
0, 20, 283,
1, 25, 282,
1, 28, 286,
0, 52, 291,
1, 61, 290,
0, 77, 289,
1, 84, 287,
-1
};
gwfrog(wid)
int wid;
{
register int *fp;
register struct gwindow *gw;
register int xcen, ycen;
GRAPH g;
g.wn_Logop = L_FALSE;
G_SetGraph(wid, &g, GCLOG);
gw = &gwindow[wid-GWINDOW];
top:
S_ClrClip(wid);
xcen = 3*XCEN/2;
ycen = 3*YCEN/2;
for (fp=frog;; fp += 3)
{
if ( fp[0] == 0 )
gwmove(wid, xcen - fp[1]/2, ycen - fp[2]/2);
else if ( fp[0] == 1 )
gwtoline(wid, xcen - fp[1]/2, ycen - fp[2]/2);
else
break;
if ( gw->g_flag & GWUPD )
{
gw->g_flag &= ~GWUPD;
goto top;
}
if ( ~gw->g_flag & GWOPEN )
return;
}
gw->g_flag &= ~GWLOCK;
}