luser-dr00g

typedef intptr_t I;
typedef uintptr_t U;
typedef short S;
typedef unsigned short US;
typedef signed char C;
typedef unsigned char UC;
typedef void V;
U o, w, d, f;
U x, y, z;
void *p;

luser-dr00g

/* test program for cairo bit mask
   makes a big blue turkey */
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>

#include <cairo.h>
#include <X11/Xlib.h>
#include <cairo-xlib.h>
#include <unistd.h>

luser-dr00g

josh@LAPTOP-ILO10OOF ~/inca/olmec
$ cat ex.h

// predicate table contains predicate functions
// and associated enum values
#define PREDTAB(_) \
_( ANY  =    1, qa, 1 ) \
_( VAR  =    2, qp, gettag(x)==PROG \
                || (gettag(x)==PCHAR && getval(x)!=0x2190 /*leftarrow*/ ) ) \
_( NOUN =    4, qn, gettag(x)==LITERAL \

luser-dr00g

/randomseed { (/dev/random)(r)file read pop srand } bind def

/random { % max  =>  0<num<max
    rand 16#7fffffff div mul
} bind def

/genpoly { % n => [ [x0 y0] ... [xn-1 yn-1] ]
    2 dict begin
    /n exch def
    /da 360 n div def

luser-dr00g

luser-dr00g

luser-dr00g