PSEDO CODE GAMBAR (DELPHI)

PSEDO CODE GAMBAR IKHWAN
begin
  with image1.canvas do
  begin
    pen.Width:=2;
    arc(100,30,300,330,100,130,300,130); {kepala}
    arc(280,180,305,230,295,230,305,180); {telinga}
    arc(95,180,120,230,100,180,105,230);
    moveto(140,145); lineto(175,160); {alis}
    moveto(220,160); lineto(255,145);
    arc(150,220,250,290,150,260,250,260); {bibir}
    moveto(150,260); lineto(250,260);
    moveto(160,275); lineto(240,275);   {gigi}
    arc(190,230,210,250,200,250,200,150); {hidung}
    brush.color:=clblack; {peci}
    polygon([point(100,130),point(300,130),point(290,40),point(110,40)]);
    brush.color:=clwhite;   {mata}
    ellipse(140,160,170,210); ellipse(220,160,250,210);
    brush.color:=clblack;
    ellipse(150,170,168,210); ellipse(230,170,248,210);
    moveto(155,315); lineto(150,360); {leher}
    moveto(245,315); lineto(250,360);
    arc(115,310,285,405,115,355,285,355); {kerah}
    arc(105,300,295,415,118,360,282,360);
    moveto(150,350); lineto(50,365); {pundak}
    moveto(250,350); lineto(350,365);
    moveto(50,365); lineto(20,480); {lengan}
    moveto(350,365); lineto(380,480);
    moveto(200,415); lineto(200,480); {baju}
    ellipse(190,425,210,445);
  end;
end;

PSEDO CODE GAMBAR AKKHWAT

begin

  with image1.canvas do
  begin
    pen.Width:=2;
    arc(500,30,700,330,500,130,700,130); {kepala}
    moveto(540,160); lineto(575,145); {alis}
    moveto(620,145); lineto(655,160);
    moveto(500,130); lineto(700,130); {garis atas kepala}
    arc(470,30,720,150,720,90,470,90); {kerudungatas}
    moveto(470,90); lineto(420,390);
    moveto(720,90); lineto(770,390);
    arc(420,350,770,430,470,390,720,390); {kerudungbawah}
    arc(420,340,770,420,470,380,720,380);
    arc(590,230,610,250,600,150,600,250); {hidung}
    arc(550,220,650,290,550,260,650,260); {garisbibirbawah}
    moveto(550,260); lineto(650,260);
    moveto(560,275); lineto(640,275); {gigi}
    brush.color:=clwhite;   {mata}
    ellipse(540,160,570,210); ellipse(620,160,650,210);
    brush.color:=clblack;
    ellipse(542,170,560,210); ellipse(622,170,640,210);
    moveto(430,405); lineto(420,480); {badan}
    moveto(760,405); lineto(770,480);
    moveto(590,430); lineto(590,480); {baju}
    ellipse(580,440,600,460);
  end;
end;