%====INFORMATION====%
% LFSAB1402 Projet 2016
% Nomas : NOMA1-NOMA2
% Noms : (Nom1,Prenom1)-(Nom2,Prenom2)
%====MODULELINK====%
declare
[Projet]={Module.link ["/home/louis/Projet-Info/ProjetOz2016/Projet2016.ozf"]}

%====CODE====%
local
   MaxTime = 15 % nombre de frame à l'animation
   MyFunction
   Map
   CheckMap
   Extensions = opt(withExtendedFormula:false
            withIfThenElse:false
            withComparison:false
            withTimeWindow:false
            withCheckMapEasy:false
            withCheckMapComplete:false
           )
   Building = primitive(kind:building)
   Water = primitive(kind:water)
   Road = primitive(kind:road)
   Pokemon = primitive(kind: pokemon)
   Pokestop = primitive(kind: pokestop)
   Arena = primitive(kind: arena)
   X =scale(rx: 20.0 ry: 20.0 1:translate(dx: 200.0 dy: 200.0 1:Water))
   Y =scale(rx: 12.0 ry: 24.0 1:translate(dx: 100.0 dy: 100.0 1:rotate(angle: 1.047 1:Building)))
   Z =scale(rx: 120.0 ry: 0.0 rotate(angle: 0.7854 1:Road))
   A = translate(dx:200.0 dy:200.0 1:translate(dx: cos(time) dy:sin(time) 1:Pokemon))
   B = translate(dx:100.0 dy:200.0 1:translate(dx: tan(time) dy:sin(time) 1:Pokestop))
   C = translate(dx:100.0 dy:100.0 1:translate(dx: cos(time) dy:sin(time) 1:Arena))
in
   Map = map(ru:X|Y|Z|nil pu:A|B|C|nil) %% TODO change the map here

   fun{MyFunction Map}
      local FUN in
     fun{FUN Time}
        local Pos1 Pos2 Pos3 Pos4 X Y in
           X = 200.0 + 10.0*Time
           Y = 400.0 + 10.0*Time
           Pos1 = pt(x:X y:200.0)
           Pos2 = pt(x:X y:400.0)
           Pos3 = pt(x:Y y:200.0)
           Pos4 = pt(x:Y y:400.0)
           realitem(kind:water p1:Pos1 p2:Pos2 p3:Pos3 p4:Pos4)
        end
     end

     FUN|nil
      end

   end

   fun{CheckMap Map}
      false %% TODO complete here the function for the checking of the maps
   end

   {Projet.run MyFunction Map MaxTime Extensions CheckMap}
end