Vizatim me KTurtle

rifillo
majë_lapsi 1

mëso vendos_ngjyrën $ngjyra {
  nëse $ngjyra == "e kuqe" {
      ngjyrë_lapsi 255, 0, 0
  }
  përndryshe nëse $ngjyra == "e gjelbër" {
    ngjyrë_lapsi 0, 255, 0
  }
  përndryshe nëse $ngjyra == "blu" {
    ngjyrë_lapsi 0, 0, 255
  }
  përndryshe {
    shkruaj "Ngjyra '" + $ngjyra + "' është e panjohur"
  }
}

mëso bëj_lule $qendër_x, $qendër_y, $rrezja, $këndi, $ngjyra
{
  vendos_ngjyrën $ngjyra
  përsërit 360/$këndi {
    shko $qendër_x, $qendër_y
    ec_përpara $rrezja
    shkruaj "-----"
    kthehu_majtas $këndi
  }
  prit 1
}

bëj_lule 200, 200, 50, 5, "e kuqe"

bëj_lule 200+60, 200+60, 50, 6, "e gjelbër"
bëj_lule 200+60, 200-60, 50, 6, "e gjelbër"
bëj_lule 200-60, 200+60, 50, 6, "e gjelbër"
bëj_lule 200-60, 200-60, 50, 6, "e gjelbër"

bëj_lule 200+120, 200, 80, 10, "blu"
bëj_lule 200, 200+120, 80, 10, "blu"
bëj_lule 200-120, 200, 80, 10, "blu"
bëj_lule 200, 200-120, 80, 10, "blu"

bëj_lule 200+120, 200+120, 100, 15, "e kuqe"
bëj_lule 200+120, 200-120, 100, 15, "e kuqe"
bëj_lule 200-120, 200+120, 100, 15, "e kuqe"
bëj_lule 200-120, 200-120, 100, 15, "e kuqe"

shko 200, 200