mplisp

miniPicoLisp with FFI and modules for Buddy BDD library, OpenGL, Gtk and GMP
git clone https://logand.com/git/mplisp.git/
Log | Files | Refs

gl.ffi.c (8677B)

      1 /* Generated from gl.ffi */
      2 
      3 #include "../pico.h"
      4 
      5 #include "GL/glut.h"
      6 #include "GL/glu.h"
      7 #include "GL/gl.h"
      8 
      9 any cfun_glBegin(any ex) {
     10    any x = ex, y;
     11    x = cdr(x);
     12    y = EVAL(car(x));
     13    NeedNum(ex, y);
     14    GLenum b1 = (GLenum) unBox(y);
     15    glBegin(b1);
     16    return Nil;
     17 }
     18 
     19 any cfun_glBlendFunc(any ex) {
     20    any x = ex, y;
     21    x = cdr(x);
     22    y = EVAL(car(x));
     23    NeedNum(ex, y);
     24    GLenum b1 = (GLenum) unBox(y);
     25    x = cdr(x);
     26    y = EVAL(car(x));
     27    NeedNum(ex, y);
     28    GLenum b2 = (GLenum) unBox(y);
     29    glBlendFunc(b1, b2);
     30    return Nil;
     31 }
     32 
     33 any cfun_glClear(any ex) {
     34    any x = ex, y;
     35    x = cdr(x);
     36    y = EVAL(car(x));
     37    NeedNum(ex, y);
     38    GLbitfield b1 = (GLbitfield) unBox(y);
     39    glClear(b1);
     40    return Nil;
     41 }
     42 
     43 any cfun_glClearColor(any ex) {
     44    any x = ex, y;
     45    x = cdr(x);
     46    y = EVAL(car(x));
     47    NeedNum(ex, y);
     48    double b1 = (double) unBox(y) / 10000;
     49    x = cdr(x);
     50    y = EVAL(car(x));
     51    NeedNum(ex, y);
     52    double b2 = (double) unBox(y) / 10000;
     53    x = cdr(x);
     54    y = EVAL(car(x));
     55    NeedNum(ex, y);
     56    double b3 = (double) unBox(y) / 10000;
     57    x = cdr(x);
     58    y = EVAL(car(x));
     59    NeedNum(ex, y);
     60    double b4 = (double) unBox(y) / 10000;
     61    glClearColor(b1, b2, b3, b4);
     62    return Nil;
     63 }
     64 
     65 any cfun_glClearDepth(any ex) {
     66    any x = ex, y;
     67    x = cdr(x);
     68    y = EVAL(car(x));
     69    NeedNum(ex, y);
     70    double b1 = (double) unBox(y) / 10000;
     71    glClearDepth(b1);
     72    return Nil;
     73 }
     74 
     75 any cfun_glColor3f(any ex) {
     76    any x = ex, y;
     77    x = cdr(x);
     78    y = EVAL(car(x));
     79    NeedNum(ex, y);
     80    double b1 = (double) unBox(y) / 10000;
     81    x = cdr(x);
     82    y = EVAL(car(x));
     83    NeedNum(ex, y);
     84    double b2 = (double) unBox(y) / 10000;
     85    x = cdr(x);
     86    y = EVAL(car(x));
     87    NeedNum(ex, y);
     88    double b3 = (double) unBox(y) / 10000;
     89    glColor3f(b1, b2, b3);
     90    return Nil;
     91 }
     92 
     93 any cfun_glColor4f(any ex) {
     94    any x = ex, y;
     95    x = cdr(x);
     96    y = EVAL(car(x));
     97    NeedNum(ex, y);
     98    double b1 = (double) unBox(y) / 10000;
     99    x = cdr(x);
    100    y = EVAL(car(x));
    101    NeedNum(ex, y);
    102    double b2 = (double) unBox(y) / 10000;
    103    x = cdr(x);
    104    y = EVAL(car(x));
    105    NeedNum(ex, y);
    106    double b3 = (double) unBox(y) / 10000;
    107    x = cdr(x);
    108    y = EVAL(car(x));
    109    NeedNum(ex, y);
    110    double b4 = (double) unBox(y) / 10000;
    111    glColor4f(b1, b2, b3, b4);
    112    return Nil;
    113 }
    114 
    115 any cfun_glColorMaterial(any ex) {
    116    any x = ex, y;
    117    x = cdr(x);
    118    y = EVAL(car(x));
    119    NeedNum(ex, y);
    120    GLenum b1 = (GLenum) unBox(y);
    121    x = cdr(x);
    122    y = EVAL(car(x));
    123    NeedNum(ex, y);
    124    GLenum b2 = (GLenum) unBox(y);
    125    glColorMaterial(b1, b2);
    126    return Nil;
    127 }
    128 
    129 any cfun_glDepthFunc(any ex) {
    130    any x = ex, y;
    131    x = cdr(x);
    132    y = EVAL(car(x));
    133    NeedNum(ex, y);
    134    GLenum b1 = (GLenum) unBox(y);
    135    glDepthFunc(b1);
    136    return Nil;
    137 }
    138 
    139 any cfun_glDisable(any ex) {
    140    any x = ex, y;
    141    x = cdr(x);
    142    y = EVAL(car(x));
    143    NeedNum(ex, y);
    144    GLenum b1 = (GLenum) unBox(y);
    145    glDisable(b1);
    146    return Nil;
    147 }
    148 
    149 any cfun_glEnable(any ex) {
    150    any x = ex, y;
    151    x = cdr(x);
    152    y = EVAL(car(x));
    153    NeedNum(ex, y);
    154    GLenum b1 = (GLenum) unBox(y);
    155    glEnable(b1);
    156    return Nil;
    157 }
    158 
    159 any cfun_glEnd(any ex __attribute__((unused))) {
    160    glEnd();
    161    return Nil;
    162 }
    163 
    164 any cfun_glFlush(any ex __attribute__((unused))) {
    165    glFlush();
    166    return Nil;
    167 }
    168 
    169 any cfun_glHint(any ex) {
    170    any x = ex, y;
    171    x = cdr(x);
    172    y = EVAL(car(x));
    173    NeedNum(ex, y);
    174    GLenum b1 = (GLenum) unBox(y);
    175    x = cdr(x);
    176    y = EVAL(car(x));
    177    NeedNum(ex, y);
    178    GLenum b2 = (GLenum) unBox(y);
    179    glHint(b1, b2);
    180    return Nil;
    181 }
    182 
    183 any cfun_glLineWidth(any ex) {
    184    any x = ex, y;
    185    x = cdr(x);
    186    y = EVAL(car(x));
    187    NeedNum(ex, y);
    188    double b1 = (double) unBox(y) / 10000;
    189    glLineWidth(b1);
    190    return Nil;
    191 }
    192 
    193 any cfun_glLoadIdentity(any ex __attribute__((unused))) {
    194    glLoadIdentity();
    195    return Nil;
    196 }
    197 
    198 any cfun_glMatrixMode(any ex) {
    199    any x = ex, y;
    200    x = cdr(x);
    201    y = EVAL(car(x));
    202    NeedNum(ex, y);
    203    GLenum b1 = (GLenum) unBox(y);
    204    glMatrixMode(b1);
    205    return Nil;
    206 }
    207 
    208 any cfun_glNormal3f(any ex) {
    209    any x = ex, y;
    210    x = cdr(x);
    211    y = EVAL(car(x));
    212    NeedNum(ex, y);
    213    double b1 = (double) unBox(y) / 10000;
    214    x = cdr(x);
    215    y = EVAL(car(x));
    216    NeedNum(ex, y);
    217    double b2 = (double) unBox(y) / 10000;
    218    x = cdr(x);
    219    y = EVAL(car(x));
    220    NeedNum(ex, y);
    221    double b3 = (double) unBox(y) / 10000;
    222    glNormal3f(b1, b2, b3);
    223    return Nil;
    224 }
    225 
    226 any cfun_glOrtho(any ex) {
    227    any x = ex, y;
    228    x = cdr(x);
    229    y = EVAL(car(x));
    230    NeedNum(ex, y);
    231    double b1 = (double) unBox(y) / 10000;
    232    x = cdr(x);
    233    y = EVAL(car(x));
    234    NeedNum(ex, y);
    235    double b2 = (double) unBox(y) / 10000;
    236    x = cdr(x);
    237    y = EVAL(car(x));
    238    NeedNum(ex, y);
    239    double b3 = (double) unBox(y) / 10000;
    240    x = cdr(x);
    241    y = EVAL(car(x));
    242    NeedNum(ex, y);
    243    double b4 = (double) unBox(y) / 10000;
    244    x = cdr(x);
    245    y = EVAL(car(x));
    246    NeedNum(ex, y);
    247    double b5 = (double) unBox(y) / 10000;
    248    x = cdr(x);
    249    y = EVAL(car(x));
    250    NeedNum(ex, y);
    251    double b6 = (double) unBox(y) / 10000;
    252    glOrtho(b1, b2, b3, b4, b5, b6);
    253    return Nil;
    254 }
    255 
    256 any cfun_glPixelZoom(any ex) {
    257    any x = ex, y;
    258    x = cdr(x);
    259    y = EVAL(car(x));
    260    NeedNum(ex, y);
    261    double b1 = (double) unBox(y) / 10000;
    262    x = cdr(x);
    263    y = EVAL(car(x));
    264    NeedNum(ex, y);
    265    double b2 = (double) unBox(y) / 10000;
    266    glPixelZoom(b1, b2);
    267    return Nil;
    268 }
    269 
    270 any cfun_glPopMatrix(any ex __attribute__((unused))) {
    271    glPopMatrix();
    272    return Nil;
    273 }
    274 
    275 any cfun_glPushMatrix(any ex __attribute__((unused))) {
    276    glPushMatrix();
    277    return Nil;
    278 }
    279 
    280 any cfun_glRasterPos2f(any ex) {
    281    any x = ex, y;
    282    x = cdr(x);
    283    y = EVAL(car(x));
    284    NeedNum(ex, y);
    285    double b1 = (double) unBox(y) / 10000;
    286    x = cdr(x);
    287    y = EVAL(car(x));
    288    NeedNum(ex, y);
    289    double b2 = (double) unBox(y) / 10000;
    290    glRasterPos2f(b1, b2);
    291    return Nil;
    292 }
    293 
    294 any cfun_glRasterPos3f(any ex) {
    295    any x = ex, y;
    296    x = cdr(x);
    297    y = EVAL(car(x));
    298    NeedNum(ex, y);
    299    double b1 = (double) unBox(y) / 10000;
    300    x = cdr(x);
    301    y = EVAL(car(x));
    302    NeedNum(ex, y);
    303    double b2 = (double) unBox(y) / 10000;
    304    x = cdr(x);
    305    y = EVAL(car(x));
    306    NeedNum(ex, y);
    307    double b3 = (double) unBox(y) / 10000;
    308    glRasterPos3f(b1, b2, b3);
    309    return Nil;
    310 }
    311 
    312 any cfun_glRotatef(any ex) {
    313    any x = ex, y;
    314    x = cdr(x);
    315    y = EVAL(car(x));
    316    NeedNum(ex, y);
    317    double b1 = (double) unBox(y) / 10000;
    318    x = cdr(x);
    319    y = EVAL(car(x));
    320    NeedNum(ex, y);
    321    double b2 = (double) unBox(y) / 10000;
    322    x = cdr(x);
    323    y = EVAL(car(x));
    324    NeedNum(ex, y);
    325    double b3 = (double) unBox(y) / 10000;
    326    x = cdr(x);
    327    y = EVAL(car(x));
    328    NeedNum(ex, y);
    329    double b4 = (double) unBox(y) / 10000;
    330    glRotatef(b1, b2, b3, b4);
    331    return Nil;
    332 }
    333 
    334 any cfun_glScalef(any ex) {
    335    any x = ex, y;
    336    x = cdr(x);
    337    y = EVAL(car(x));
    338    NeedNum(ex, y);
    339    double b1 = (double) unBox(y) / 10000;
    340    x = cdr(x);
    341    y = EVAL(car(x));
    342    NeedNum(ex, y);
    343    double b2 = (double) unBox(y) / 10000;
    344    x = cdr(x);
    345    y = EVAL(car(x));
    346    NeedNum(ex, y);
    347    double b3 = (double) unBox(y) / 10000;
    348    glScalef(b1, b2, b3);
    349    return Nil;
    350 }
    351 
    352 any cfun_glShadeModel(any ex) {
    353    any x = ex, y;
    354    x = cdr(x);
    355    y = EVAL(car(x));
    356    NeedNum(ex, y);
    357    GLenum b1 = (GLenum) unBox(y);
    358    glShadeModel(b1);
    359    return Nil;
    360 }
    361 
    362 any cfun_glTranslatef(any ex) {
    363    any x = ex, y;
    364    x = cdr(x);
    365    y = EVAL(car(x));
    366    NeedNum(ex, y);
    367    double b1 = (double) unBox(y) / 10000;
    368    x = cdr(x);
    369    y = EVAL(car(x));
    370    NeedNum(ex, y);
    371    double b2 = (double) unBox(y) / 10000;
    372    x = cdr(x);
    373    y = EVAL(car(x));
    374    NeedNum(ex, y);
    375    double b3 = (double) unBox(y) / 10000;
    376    glTranslatef(b1, b2, b3);
    377    return Nil;
    378 }
    379 
    380 any cfun_glVertex2f(any ex) {
    381    any x = ex, y;
    382    x = cdr(x);
    383    y = EVAL(car(x));
    384    NeedNum(ex, y);
    385    double b1 = (double) unBox(y) / 10000;
    386    x = cdr(x);
    387    y = EVAL(car(x));
    388    NeedNum(ex, y);
    389    double b2 = (double) unBox(y) / 10000;
    390    glVertex2f(b1, b2);
    391    return Nil;
    392 }
    393 
    394 any cfun_glVertex3f(any ex) {
    395    any x = ex, y;
    396    x = cdr(x);
    397    y = EVAL(car(x));
    398    NeedNum(ex, y);
    399    double b1 = (double) unBox(y) / 10000;
    400    x = cdr(x);
    401    y = EVAL(car(x));
    402    NeedNum(ex, y);
    403    double b2 = (double) unBox(y) / 10000;
    404    x = cdr(x);
    405    y = EVAL(car(x));
    406    NeedNum(ex, y);
    407    double b3 = (double) unBox(y) / 10000;
    408    glVertex3f(b1, b2, b3);
    409    return Nil;
    410 }
    411 
    412 any cfun_glViewport(any ex) {
    413    any x = ex, y;
    414    x = cdr(x);
    415    y = EVAL(car(x));
    416    NeedNum(ex, y);
    417    int b1 = (int) unBox(y);
    418    x = cdr(x);
    419    y = EVAL(car(x));
    420    NeedNum(ex, y);
    421    int b2 = (int) unBox(y);
    422    x = cdr(x);
    423    y = EVAL(car(x));
    424    NeedNum(ex, y);
    425    int b3 = (int) unBox(y);
    426    x = cdr(x);
    427    y = EVAL(car(x));
    428    NeedNum(ex, y);
    429    int b4 = (int) unBox(y);
    430    glViewport(b1, b2, b3, b4);
    431    return Nil;
    432 }