Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %====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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement