Tunyukuk Robot Kolu

Her hakkı saklıdır.

Yüksek lisans tezimde robot kolu yapmıştım (1994-1997). Çalışmanıŋ mekanik, elektronik ve yazılım ayağı vardı. O zamanlar nesneye yöŋelik programlama dilleri yoktu. MS-DOS altında çalışan ilkel derleyicilerde kod yazıyorduk. Mekanik ve elektronik yapısını tasarlayıp gerçekledikten soŋra, robotuŋ bilgisayardaki arayüzünde tüm ikonları, bevelleri, panelleri, gölgelendirmeleri  kendim tasarlamıştım. Arayüzde KökTörükçe de kullanmak istedim ve herbir KökTörük üsüğünü piksel piksel bir başlık (header) dosyasında tasarladım ve robot kolunuŋ kumanda arayüzünde kullandım. Üsükleriŋ tasarımı iki haftamı almıştı. Artık Turbo C'de KökTörükçe yazabiliyordum (1995). Tüm koduŋ sadece KökTörük üsüklerinden sorumlu kısmı KOKTURK.H başlık dosyasınıŋ içeriğini resmiŋ altında vėriyorum.

KOKTURK.H (1995)

/* This header file was prepared by Ulduz Tu§rul €AVDAR to use the Alphabet of K”ktrk in C or C++ applications.  May 2, 1996

     CHARACTER TABLE

  ---------------------------------------------------------------------

  a =   a,e      i =   ,i      o =   o,u      F =   ”,      Y =  (a)y

  y =  (e)y      B =  (a)b      b =  (e)b      c =   ‡,c      f = i‡,ic

  D =  (a)d      d =  (e)d      G =  (a)g      g =  (e)g      k =  (e)k

  q = ”k,k      K =  (a)k      w =    k      W = ok,uk      L =  (a)l

  l =  (e)l      x = lt,ld      m =     m      N =  (a)n      n =  (e)n

  ¤ =    ng      X =    ny      Q = n‡,nc      h = nd,nt      p =     p

  R =  (a)r      r =  (e)r      S =  (a)s      s =  (e)s      v =     Ÿ

  T =  (a)t      t =  (e)t      z =     z      V =     :

  1 =     1      2 =     2      3 =     3      4 =     4      5 =     5

  6 =     6      7 =     7      8 =     8      9 =     9      0 =     0

  ! =     !      + =     +      / =     /      = =     =      - =     -

  . =     .      % =     %      { =     }      } =     {      * =     *

  ( =     )      ) =     (      : =     :      @ =     @      ? =(inv)?

  ; =(inv);      , =(inv),      \"=     "

*/

int x,y,b;

void kharf(char code)

  {

  switch (code)

    {

    case 'a':line(x,y+3,x-3,y);                    //  a,e

     line(x-3,y,x-3,y+10);

     line(x-3,y+10,x-6,y+7);

     x-=9;

     break;

    case 'i':line(x,y+3,x-3,y);                    //  ,i

     line(x-3,y,x-3,y+10);

     x-=6;

     break;

    case 'o':line(x-5,y,x,y+5);                    //  o,u

     line(x,y+5,x-5,y+10);

     x-=8;

     break;

    case 'F':line(x,y,x,y+5);                      //  ”,

     line(x,y+5,x-5,y);

     line(x-5,y,x-5,y+10);

     x-=8;

     break;

    case 'Y':line(x-5,y,x-5,y+10);                 //  (a)y

     arc(x-5,y+5,270,90,5);

     x-=8;

     break;

    case 'y':circle(x-3,y+3,3);                    //  (e)y

     arc(x-5,y+5,270,0,5);

     x-=8;

     break;

    case 'B':arc(x-3,y+7,135,90,3);                //  (a)b

     arc(x,y+1,160,230,4);

     x-=9;

     break;

    case 'b':line(x-6,y+10,x,y+3);                 //  (e)b

     line(x,y+3,x-3,y);

     line(x-3,y,x-6,y+3);

     line(x-6,y+3,x,y+10);

     x-=9;

     break;

    case 'c':line(x,y+10,x-3,y+6);                 //  ‡,c

     line(x-3,y+6,x-6,y+10);

     line(x-3,y+6,x-3,y);

     x-=9;

     break;

    case 'f':line(x-3,y+10,x-3,y);                 //  i‡,ic

     line(x-3,y+5,x,y);

     line(x-3,y+5,x-6,y);

     x-=9;

     break;

    case 'D':line(x-3,y,x,y+3);                    //  (a)d

     line(x,y+3,x-2,y+5);

     line(x-2,y+5,x,y+7);

     line(x,y+7,x-3,y+10);

     line(x-6,y,x-3,y+3);

     line(x-3,y+3,x-5,y+5);

     line(x-5,y+5,x-3,y+7);

     line(x-3,y+7,x-6,y+10);

     x-=9;

     break;

    case 'd':line(x,y,x-6,y+10);                   //  (e)d

     line(x-6,y,x,y+10);

     x-=9;

     break;

    case 'G':line(x-3,y+6,x-3,y+10);               //  (a)g

     arc(x,y+2,90,270,2);

     arc(x-6,y+2,270,90,2);

     x-=9;

     break;

    case 'g':line(x-4,y,x-6,y+6);                  //  (e)g

     line(x-4,y,x,y+3);

     line(x-4,y+4,x,y+7);

     arc(x-1,y+5,180,270,5);

     x-=9;

     break;

    case 'k':line(x-4,y,x,y+2);                    //  (e)k

     line(x,y+2,x,y+10);

     line(x-4,y+3,x,y+5);

     x-=7;

     break;

    case 'q':line(x-5,y,x-5,y+10);                 //  ”k,k

     line(x-5,y,x,y);

     line(x,y,x-1,y+3);

     line(x-5,y+6,x,y+6);

//      line(x,y+6,x,y+10);

     arc(x+2,y+8,135,240,3);

     x-=8;

     break;

    case 'K':line(x,y,x,y+10);                     //  (a)k

     line(x,y+6,x-4,y+4);

     arc(x-14,y+5,330,0,10);

     x-=8;

     break;

    case 'w':line(x,y,x,y+10);                     //  k

     line(x,y,x-5,y+5);

     line(x-5,y+5,x,y+10);

     x-=8;

     break;

    case 'W':line(x-3,y,x-3,y+10);                 //  ok,uk

     line(x-3,y+10,x,y+6);

     line(x-3,y+10,x-6,y+6);

     x-=9;

     break;

    case 'L':line(x,y,x,y+10);                     //  (a)l

     line(x,y+10,x-4,y+6);

     x-=7;

     break;

    case 'l':line(x,y,x-3,y+5);                    //  (e)l

     line(x-3,y+5,x-6,y);

     line(x-3,y+5,x-3,y+10);

     x-=9;

     break;

    case 'x':line(x,y,x,y+10);                     //  lt,ld

     line(x-8,y,x-8,y+10);

     line(x,y,x-4,y+5);

     line(x-4,y+5,x-8,y);

     x-=11;

     break;

    case 'm':line(x-5,y,x,y+5);                    //  m

     line(x,y+5,x-5,y+10);

     line(x-8,y+3,x-3,y+8);

     line(x-8,y+7,x-3,y+2);

     x-=11;

     break;

    case 'N':arc(x-5,y+5,290,80,5);                //  (a)n

     x-=8;

     break;

    case 'n':line(x,y,x,y+6);                      //  (e)n

     line(x,y+6,x-4,y+3);

     line(x-4,y,x-4,y+10);

     line(x-4,y+7,x-8,y+4);

     line(x-8,y+4,x-8,y+10);

     x-=11;

     break;

    case '¤':line(x,y,x,y+10);                     //  ¤

     line(x,y+6,x-4,y+2);

     x-=7;

     break;

    case 'X':arc(x-3,y+3,270,90,3);                //  ny

     arc(x-3,y+7,270,90,3);

     x-=6;

     break;

    case 'Q':line(x-3,y,x,y+3);                    //  n‡,nc

     line(x,y+3,x-2,y+5);

     line(x-2,y+5,x,y+7);

     line(x,y+7,x-3,y+10);

     x-=6;

     break;

    case 'h':arc(x-5,y+5,125,55,5);                //  nd,nt

     putpixel(x-3,y+4,getcolor());

     putpixel(x-7,y+4,getcolor());

     putpixel(x-5,y+6,getcolor());

     x-=13;

     break;

    case 'p':line(x,y,x,y+10);                     //  p

     line(x,y,x-3,y+3);

     x-=6;

     break;

    case 'R':line(x,y,x,y+10);                     //  (a)r

     line(x,y+4,x-5,y+6);

     arc(x-12,y+2,330,10,8);

     x-=8;

     break;

    case 'r':line(x,y+3,x-2,y);                    //  (e)r

     line(x-2,y,x-4,y+3);

     line(x-4,y+3,x-6,y);

     line(x-6,y,x-8,y+3);

     line(x-4,y+3,x-4,y+10);

     x-=11;

     break;

    case 'S':arc(x,y+2,90,250,2);                  //  (a)s

     arc(x-3,y+7,270,60,3);

     arc(x,y+1,160,270,5);

     x-=8;

     break;

    case 's':line(x,y,x,y+10);                     //  (e)s

     x-=3;

     break;

    case 'v':line(x,y+4,x-6,y+4);                  //  Ÿ

     line(x-3,y+4,x-1,y);

     line(x-5,y,x-3,y+4);

     line(x-3,y+4,x-3,y+10);

     x-=9;

     break;

    case 'T':line(x-3,y,x,y+3);                    //  (a)t

     line(x-3,y,x-6,y+3);

     line(x-3,y,x-3,y+4);

     line(x-3,y+4,x,y+7);

     line(x-3,y+4,x-6,y+7);

     line(x-6,y+7,x-3,y+10);

     line(x,y+7,x-3,y+10);

     x-=9;

     break;

    case 't':line(x-5,y,x-5,y+10);                 //  (e)t

     line(x-5,y+6,x-1,y+4);

     arc(x+9,y+5,180,210,10);

     x-=8;

     break;

    case 'z':line(x-4,y,x-4,y+10);                 //  z

     line(x,y,x,y+5);

     line(x,y+5,x-8,y+5);

     line(x-8,y+5,x-8,y+10);

     x-=11;

     break;

    case 'V':putpixel(x-1,y+2,getcolor());         //  word separator

     putpixel(x-1,y+8,getcolor());

     x-=5;

     break;

    case '!':line(x-3,y,x-3,y+7);                  //  interjection

     putpixel(x-3,y+10,getcolor());

     line(x-2,y,x-2,y+7);

     putpixel(x-2,y+10,getcolor());

     x-=12;

     break;

    case '+':line(x-1,y+5,x-7,y+5);                //  plus

     line(x-4,y+2,x-4,y+8);

     x-=11;

     break;

    case '/':line(x-1,y,x-6,y+10);                 //  slash

     x-=11;

     break;

    case '=':line(x-1,y+4,x-6,y+4);                //  sign of equality

     line(x-1,y+6,x-6,y+6);

     x-=10;

     break;

    case '-':line(x-1,y+5,x-7,y+5);                //  minus

     x-=11;

     break;

    case '"':line(x-1,y,x-1,y+3);                  //  double quotation mark

     line(x-3,y,x-3,y+3);

     x-=7;

     break;

    case '?':arc(x-2,y+3,30,250,3);                //  inverse question mark

     arc(x-3,y+3,30,250,3);

     line(x-3,y+6,x-3,y+7);

     line(x-2,y+6,x-2,y+7);

     putpixel(x-3,y+10,getcolor());

     putpixel(x-2,y+10,getcolor());

     x-=12;

     break;

    case ';':outtextxy(x,y-5,":");                 //  inverse semicolon

     line(x-3,y+3,x-2,y+1);

     x-=12;

     break;

    case ',':line(x-3,y+6,x-2,y+6);                //  inverse comma

     line(x-3,y+5,x-2,y+3);

     x-=12;

     break;

    case '0':outtextxy(x-2,y-5,"0");               //  zero

     x-=9;

     break;

    case '1':outtextxy(x-2,y-5,"1");               //  one

     x-=9;

     break;

    case '2':outtextxy(x-2,y-5,"2");               //  two

     x-=9;

     break;

    case '3':outtextxy(x-2,y-5,"3");               //  three

     x-=9;

     break;

    case '4':outtextxy(x-2,y-5,"4");               //  four

     x-=9;

     break;

    case '5':outtextxy(x-2,y-5,"5");               //  five

     x-=9;

     break;

    case '6':outtextxy(x-2,y-5,"6");               //  six

     x-=9;

     break;

    case '7':outtextxy(x-2,y-5,"7");               //  seven

     x-=9;

     break;

    case '8':outtextxy(x-2,y-5,"8");               //  eight

     x-=9;

     break;

    case '9':outtextxy(x-2,y-5,"9");               //  nine

     x-=9;

     break;

    case '.':outtextxy(x-3,y-5,".");               //  full stop

     x-=12;

     break;

    case '%':outtextxy(x-6,y-5,"%");               //  per cent

     x-=15;

     break;

    case '}':outtextxy(x-7,y-5,"{");               //  close curly bracket

     x-=13;

     break;

    case ')':outtextxy(x-5,y-5,"(");               //  close parenthesis

     x-=11;

     break;

    case '(':outtextxy(x-6,y-5,")");               //  open parenthesis

     x-=11;

     break;

    case '{':outtextxy(x-8,y-5,"}");               //  open curly bracket

     x-=13;

     break;

    case '*':outtextxy(x-7,y-5,"*");               //  star

     x-=11;

     break;

    case ':':outtextxy(x,y-5,":");                 //  colon

     x-=12;

     break;

    case ' ':outtextxy(x-9,y-5," ");               //  space

     x-=12;

     break;

    case '@':outtextxy(x-2,y-5,"@");               //  at

     x-=9;

     break;

    }

  }

void ulduz(char text[80],int xx,int yy,int color)

  {

  struct textsettingstype textinfo;

  gettextsettings(&textinfo);

  setcolor(color);

  settextstyle(2,0,6);

  settextjustify(1,2);

  x=xx;

  y=yy;

  b=0;

  do

    {

    kharf(text[b]);

    b++;

    }

  while (b<strlen(text));

  settextstyle(textinfo.font,textinfo.direction,textinfo.charsize);

  settextjustify(textinfo.horiz,textinfo.vert);

  }