logo.c

#include "jio.c"
#include "graphics.c"
#include <math.h>

// TODO: use gx and gy?

float pi= 3.141592654; // TODO: fix

int c= white, pen= 1, turtle= 1, size= 1;
float rad= 0;

void moveto(int x, int y) {
  gx= x; gy= y;
}

int forward(int n) {
  int dx= n*cos(rad);
  int dy= n*sin(rad);
  if (pen) gline(gx, gy, dx, dy, c);
  gx+= dx;
  gy+= dy;
  return n;
}

float angle(float d) {
  return rad= 2*pi*d/360;
}

float left(float d) {
  return rad-= 2*pi*d/360;
}

float right(float d) {
  return rad+= 2*pi*d/360;
}

int xc, yc;

void home() {
  moveto(0, 0);
}

void center() {
  gx= xc= gsizex/2;
  gy= yc= gsizey/2;
  rad= 0;
  c= white;
}



// plot a Function in x=[xa,xb] with STeP, on y=[ya,yb] using Color
void graph(float xa, float xb, float stp, float ya, float yb, double f(double), int c) {
  for(float x= xa; x<=xb; x+= stp) {
    float y= f(x);
    gset(x/(xb-xa)*2*xc+xc, y/(yb-ya)*2*yc+yc, c);
    gupdate();
  }
}

// graphs w axis and label
void mygraph() {
  wclear();
  center();

  // draw axis
  //center(); angle(  0); forward(xc); {
  center(); forward(xc); {
    gx-= 8; gputc('x');
  }
  center(); left(90); forward(xc); {
    gx-= 8; gy=0; gputc('y');
  }    

  // TODO: these two doesn't work???
  center(); angle(180); forward(xc);
  center(); angle(270); forward(xc);

  center(); right(180); forward(xc);
  center(); left(90); forward(xc);
  
  graph(-10,10, 0.01, -1.2,1.2, sin, red);
  graph(-10,10, 0.1, -1.2,1.2, cos, green);
  graph(-10,10, 0.01, -1.2,1.2, tan, cyan);

  gupdate();
}

void myclock() {
  int h= 1, m= 45, s= 0;

  int w= gsizex/2;
  if (gsizey/2 < w) w= gsizey/2;
  w-= 3;
  
  wclear();
  
  while(peekey()<0) {
    //usleep(1000*1000);
    usleep(1000*1000/10);

    s++;
    if (s>=60) m++,s=0;
    if (m>=60) h++,m=0;
    
    gclear();
    
    // hours
   
    center(); left(90);
    right(h*360/12);
    c= red;
    forward(w*0.7);
      
    // minutes
    center(); left(90);
    right(m*360/60);
    c= cyan;
    forward(w*0.8);
	    
    // seconds
    center(); left(90);
    right(s*360/60);
    c= white;
    forward(w);

    gupdate();
  }
}

// get a value from *P and move pointer
// if no value return DEF
int argdef(char** p, int def) {
  if (!p || !*p) return 0;
  char* s = *p;
  int r= 0;
  while(isdigit(*s)) {
    r= 10*r + *s++-'0';
  }
  if (s== *p && *s) {
    if (*s=='$') { // arg
      assert(!"TODO");
    } else if (*s=='*') { // pop stack?
      assert(!"TODO");
    }
  }
  if (s==*p) r= def;
  *p= s;
  return r;
}

int arg(char** p) {
  return argdef(p, 0);
}

// LOGO single char commands
// used: J K M N Q (T) V
//   Forward [N]
//   Up (Pen) 
//   Down (Pen)
//   Show (turtle)
//   Hide (turtle)
//   Left [D] (default 90)
//   Right [D] (default 90)
//   Angle [D] (default 90/up)
//  cOlor [N] (default white)
// siZe [N] (default 1)
//   #repeat [N] [...]
//   Wait [N] (default 1000ms)
//   Erase
//   Box W [H] (default W)
//   I - cewnter lol
//   Text [foobar] or Text "foobar"
//   X [N] (default 0)
//   Y [N] (default 0)
//   V [N] (background default none)
//   Graphics [W],[H],[%s] (bitblt/"sprite")

// TODO: how to say filled?
//   Circle
//   Pattern

  
void logobin(char* p, char* bin) {
  while(*p) {
    //printf(">%s\n", p);
    switch(tolower(*p++)) {
    case ' ': case '\t': case '\n': break;
    case '[': break;
    case ']': case 0: return;
    case 'f': forward(arg(&p)); break;
    case 'e': gclear(); break;
    case 'u': pen= 0; assert(!"TODO"); break;
    case 'd': pen= 1; assert(!"TODO"); break;
    case 'h': turtle= 0; assert(!"TODO"); break;
    case 's': turtle= 1; assert(!"TODO"); break;
    case 'l': left(argdef(&p, 90)); break;
    case 'r': right(argdef(&p, 90)); break;
    case 'a': angle(argdef(&p, 90)); break;
    case 'o': gfg= c= argdef(&p, white); break; // TODO: cOlor names
    case 'v': gbg= argdef(&p, none); break; // TODO: cOlor names
    case 'z': size= argdef(&p, 1); break;
    case '#': { int n= arg(&p); for(int i=1; i<=n; i++) logobin(p, bin); }
    case 'w': usleep(argdef(&p, 1000)*1000); break;
    case 'i': center(); break;
    case 'b': { int w= arg(&p), h=argdef(&p, w); gbox(gx, gy, w, h, c); break; }
    case 't': { char d= *p++=='['?']':'"'; while(*p && *p!=d) gputc(*p++); }
    case 'x': gx= argdef(&p, 0); break;
    case 'y': gy= argdef(&p, 0); break;
    case 'g': if (bin) gbitblit(gx, gy, bin); break;
    //case 'c': { int x=arg(&p), y=arg(&p), r=arg(&p); circle(x, y, r); break; }
    default: printf("\n%%ERROR.logo: %s\n", p);
    }
  }
}

void logo(char* p) {
  logobin(p, 0);
}


// bitmap w size "sprite"?
char bits[]= { 0x10, 0x10,
  0xff, 0xff,
  0x80, 0x01,
  0xff, 0xff,
  0x80, 0x01,

  0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,
  0x80, 0x01, 0x80, 0x01, 0x80, 0x01, 0x80, 0x01,

  0x20, 0x20,
  0x40, 0x40,
  0x80, 0x80,
  0xff, 0xff,
};
	
// TODO: rgb multicolor "sprite"
char* rgbs[]= {
};

int main(void) {
  jio();
  cursoroff();
  
  pixels_per_col= 2;
  //pixels_per_col= 1; // TODO: 1
  pixels_per_row= 2;
  gcanvas();
  
  switch(4) {
  case 1: {
    forward(10);
    
    c=green;
    forward(10);

    left(45);
    c=red;
    forward(10);

    right(45+90);
    c=cyan;
    forward(9);

  //gline(x,y,0,10,c);
  //gline(x,y,+10,0,green);
  //gline(x,y,0,10,c);
  //gline(x,y,+10,0,green);
  //x+=10; y+=0;
  
    gupdate();
    break; }

  case 2: {
    mygraph();
    key();
    break;
  }

  case 3: {
    myclock();
    break;
  }

  case 4: {
    logo("e");
    logo("i#4[f30l]");
    logo("i#90[f2l4]"); // "circle"
    logo("ib50r45o0f50");
    logo("o3t\"foo\"xyo1t[FiSH]");
    logo("ib50t[GURKA]");
    logobin("x30y30o2g", bits);
    gupdate();

    char* b= gcopy(xc, yc, 100, 100);
    gpaste(20, 20, b);
    free(b);
    gupdate();

    break;
  }
  } 
  
  cursoron();
  exit(0);
}