Source file: /~heha/Mikrocontroller/LEDs/Eagle.zip/Kreis.ulp

// Durchmesser
real r=6.25;
// Anzahl der Dioden
int N=14;
string scriptname;
board(B) {
 scriptname=filedir(B.name)+"Kreis.scr";
}
output(scriptname) {
 for (int i=0; i<N; i++) {
  real w=i*2*PI/N;
  printf("move D%d (%f %f);\n",i+1,r*cos(w),r*sin(w));
 }
}
exit("script "+scriptname+";\n");