Biri daha 9 yaşında diğeri de daha 8 yaşında..Yaptıklarına bakılırsa hiçte öyle değiller.Aslına bakarsanız onlar için üzülmüyor değilim , ömrünün sonuna dek laboratuvarlarda geçecek bir hayat muhtemelen..:)

Yine de sevdim kerataları. :) Kimlerden bahsediyor bu diyorsunuz değil mi içinizden şimdi , durun hemen söyleyeyim Lim Ding Wen'den adlı malezyalı bir erkek ve diğeri de Marko Calasan isimli şeker mi şeker Makedonyalı bir kız çocuğu..

 

//Resim Kaynak : www.uruninceleme.com

Daha fazla bilgi için Lim'in kendi sitesine bir göz atın. Tıklayın

Hatta Lim'in kardeşleri için yazdığı bir oyunun koduda aşağıda üstelik bu oyun iphone için yazılmış bir oyun..



// Resim Kaynak :CHIP

program DoodleKids;
uses Types, Quickdraw, Events, miscTool;
var
etypes,color            : integer;
key, size, shape, x, y, i : integer;
event                 : eventRecord;
  mouse                 : point;
  tri                   : handle;
  rec                   : rect;
  animate, draw         : boolean;
  tick                    : longInt;
{ Color cycle }
procedure cycle;
begin 
  if animate then begin
    color := getColorEntry(0, 1);
    for i := 1 to 14 do
      setColorEntry(0, i,
        getColorEntry(0, i + 1));
    setColorEntry(0, 15, color);
  end;     
end;
{ Start drawing }
procedure startDraw;
begin  
  if draw then begin
    size := random mod 9 + 3;              
    getMouse(mouse);
    x := mouse.h;
    y := mouse.v;       
    setSolidPenPat(random mod 15 + 1);
if shape < 5 then
      setRect(rec, x - size div 2,
        y - size div 2, x + size div 2,
        y + size div 2);               
    if (shape > 6) and (shape < 9) then begin
      tri := openPoly;
        moveTo(x - size div 2, y + size div 2);
        line(size, 0);
        lineTo(x, y - size div 2);
      closePoly;
    end;                            
    { Draw shape }
    case shape of
      1: paintOval(rec);
      2: paintRect(rec);
      3: frameOval(rec);
      4: frameRect(rec);
      5: begin
        moveTo(x + size div 2,
          y + size div 2);
        lineTo(x - size div 2,
          y - size div 2);
      end; 
      6: begin
        moveTo(x - size div 2,
          y + size div 2);
        lineTo(x + size div 2,
          y - size div 2);
      end; 
      7: paintPoly(tri);
      8: framePoly(tri);
      9: begin
        moveTo(x + size div 2,
          y + size div 2);
        lineTo(x - size div 2,
          y - size div 2);
        moveTo(x - size div 2,
          y + size div 2);
        lineTo(x + size div 2,
          y - size div 2);
        moveTo(x - size div 2, y);
        line(size,0);
        moveTo(x,y - size div 2);
        line(0,size);
      end; 
    end;
  end;                                 
end;   
begin
  etypes := keyDownMask + mDownMask + mUpMask;
  tick := getTick; 
  { Setup }
  graphics(320);
  clearScreen(0); 
  while true do begin
    startDraw;
    if getTick - tick > 9 then begin
      tick := getTick;
      cycle;
    end;         
    if getNextEvent(etypes,event) then begin
      case event.what of       
        { Keys }       
        keyDownEvt: begin
          key := event.message;
            case key of
            27: halt;
            32: begin
              if not animate then
                animate := true
              else animate := false; 
            end;     
            127: clearScreen(0);
          end;   
        end;       
        { Mouse }       
        mouseDownEvt: begin
          shape := random mod 9 + 1;
          draw := true;
        end;  
        mouseUpEvt: draw := false;
      end;
    end;
  end;
end.
Ne diyelim analar ne aslanlar doğuruyor.. :)

Sevgiler.

E2