#usage "make TQFP-100"

string cmd,tmp;
int i,j;
real x0,y0,dx,dy,sx,sy,w,len;

cmd = "grid mm;grid 1;";

if(!package){
	dlgMessageBox("Please run in library/package window!","OK");
        exit(0);
}

w =   0.34;
len = 0.9;

for(i=0;i<100;i++){
  if(i<30){
    j = i;
    x0 = -8;
    y0 = 14.5 * 0.65;
    dx = 0;
    dy = -0.65;
    sx = len;
    sy = w;
  }
  else if(i < 50){
    j = i - 30;
    x0 = -9.5 * 0.65;
    y0 = -11;
    dx = 0.65;
    dy = 0;
    sx = w;
    sy = len;
  }
  else if(i < 80){
    j = i - 50;
    x0 = 8;
    y0 = -14.5 * 0.65;
    dx = 0;
    dy = 0.65;
    sx = len;
    sy = w;
  }
  else {
    j = i - 80;
    x0 = 9.5 * 0.65;
    y0 = 11;
    dx = -0.65;
    dy = 0;
    sx = w;
    sy = len;
  }
  sprintf(tmp,"smd %f %f '%d' (%f %f);\n",sx,sy,i+1,x0+j*dx,y0+j*dy);
  cmd += tmp;
}


dlgDialog("Enter"){
  dlgVBoxLayout {
    dlgTextEdit(cmd);
    dlgPushButton("+Go") dlgAccept();
  }
};

exit(cmd);