<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet type="text/xsl" href="codigo.transformacao.xml" ?>
<página>
<aplique nome="CorridaDeCarros" atores="Ajuda, Controlador1, Controlador2, Pista" máquina="maquinaTelis_2006-12-05.jar" altura="600" largura="800" esquerda="0" topo="0">

<modelo nome="Carro2" moldes="">
<agenda nome="preparar">  
<![CDATA[

[-268 -140] andarPara

Carro22 fixarIconeGiravel
visivel



]]></agenda> 

<agenda nome="errarCaminho">  
<![CDATA[



obterCorDoPonto [0 255 0] =
	[
	-50 frente
	90 fixarDireção
  	]
seVerdade	


obterCorDoPonto [255 255 255] =
	[
	-50 frente
	90 fixarDireção
	]
seVerdade

]]></agenda> 

<agenda nome="contarVoltas">  
<![CDATA[

obterCorDoPonto [255 0 0] =
	[IdentidadeContador2.contarVoltas]
seVerdade




]]></agenda> 

<agenda nome="colidir">  
<![CDATA[

[texto texto texto texto texto lista lista]
	[-20 frente -20 direita]
seDito

]]></agenda> 

<agenda nome="virarEsquerda">  
<![CDATA[

-15 direita


]]></agenda> 

<agenda nome="irFrente">  
<![CDATA[

[1 frente] 24 vezesRepetir  errarCaminho contarVoltas


]]></agenda> 

<agenda nome="virarDireita">  
<![CDATA[

15 direita 



]]></agenda> 

<agendaInicial>
<![CDATA[

Preparar

Colidir


Contador2 IdentidadeContador2 associar

]]>
</agendaInicial>
</modelo>

<modelo nome="Pista" moldes="">
<agenda nome="desenharPista">  
<![CDATA[

[350 -175] andarPara
8 fixarCorDePreenchimento [0 700 400 700 400 0 0 0] desenharPoligonoCheio




[250 -100] andarPara
10 fixarCorDePreenchimento [0 500 250 500 250 0 0 0] desenharPolígonoCheio



]]></agenda> 

<agenda nome="posicionarAjuda">  
<![CDATA[


[300 -200] andarPara
ajuda1 fixarIcone
visivel

]]></agenda> 

<agenda nome="desenharLinhaDeChegada">  
<![CDATA[

[-300 -90] andarPara
Linhadechegadaa fixarIcone
carimbar

]]></agenda> 

<agendaInicial>
<![CDATA[

desenharPista


desenharLinhaDeChegada


posicionarAjuda


]]>
</agendaInicial>
</modelo>

<modelo nome="Controlador2" moldes="">
<agendaInicial>
<![CDATA[

[TECLADO "teclaPressionada" numero 0]
	[ 3 obterElemento tecla associar
	tecla 105 =
		[Identidade2.irFrente]
	seVerdade
	
	tecla 106 =
		[Identidade2.virarEsquerda]
	seVerdade
	
	tecla 108 =
		[Identidade2.virarDireita]
	seVerdade]
seDito



Carro2 Identidade2 associar

]]>
</agendaInicial>
</modelo>

<modelo nome="Contador1" moldes="">
<agenda nome="contarVoltas">  
<![CDATA[

[-70 240] andarPara

15 fixarCorDePreenchimento [0 200 30 200 30 0 0 0] desenharPolígonoCheio


[-250 250] andarPara
voltasRestantes 1 - voltasRestantes associar
enumeradorDeVoltas voltasRestantes + mostrar


0 voltasRestantes =
	[[0 17] andarPara Vitoria1 fixarIcone visivel]
seVerdade

]]></agenda> 

<agendaInicial>
<![CDATA[

7 voltasRestantes associar
"Voltas Restantes p/ Carro1: " enumeradorDeVoltas associar

contarVoltas

]]>
</agendaInicial>
</modelo>

<modelo nome="Contador2" moldes="">
<agenda nome="contarVoltas">  
<![CDATA[


[275 240] andarPara
15 fixarCorDePreenchimento [0 200 30 200 30 0 0 0] desenharPolígonoCheio


[100 250] andarPara
voltasRestantes 1 - voltasRestantes associar
enumeradorDeVoltas voltasRestantes + mostrar


0 voltasRestantes =
	[[0 20] andarPara vitoria2 fixarIcone visivel]
seVerdade

]]></agenda> 

<agendaInicial>
<![CDATA[

7 voltasRestantes associar
"Voltas restantes p/ Carro2: " enumeradorDeVoltas associar



contarVoltas


]]>
</agendaInicial>
</modelo>

<modelo nome="Controlador1" moldes="">
<agendaInicial>
<![CDATA[

[TECLADO "teclaPressionada" numero 0]
	[ 3 obterElemento tecla associar
	tecla 119 =
		[Identidade1.irFrente]
	seVerdade
	
	tecla 97 =
		[Identidade1.virarEsquerda]
	seVerdade
	
	tecla 100 =
		[Identidade1.virarDireita]
	seVerdade]
seDito



Carro1 Identidade1 associar

]]>
</agendaInicial>
</modelo>

<modelo nome="Carro1" moldes="">
<agenda nome="preparar">  
<![CDATA[

[-325 -140] andarPara

Carro11 fixarIconeGiravel
visivel

tangivel



]]></agenda> 

<agenda nome="errarCaminho">  
<![CDATA[

 

obterCorDoPonto [0 255 0] =
	[
	-50 frente 
	90 fixarDireção
	]
seVerdade


obterCorDoPonto [255 255 255] =
	[
	-50 frente 
	90 fixarDireção
	]
seVerdade

]]></agenda> 

<agenda nome="contarVoltas">  
<![CDATA[



obterCorDoPonto [255 0 0] =
	[IdentidadeContador.contarVoltas]
seVerdade




]]></agenda> 

<agenda nome="colidir">  
<![CDATA[

[texto texto texto texto texto lista lista]
	[-20 frente  20 direita]
seDito

]]></agenda> 

<agenda nome="virarEsquerda">  
<![CDATA[

-15 Direita

]]></agenda> 

<agenda nome="irFrente">  
<![CDATA[

[1 frente] 24 vezesRepetir errarCaminho contarVoltas

]]></agenda> 

<agenda nome="virarDireita">  
<![CDATA[

15 direita

]]></agenda> 

<agendaInicial>
<![CDATA[

Preparar

Colidir

Contador1 IdentidadeContador associar

]]>
</agendaInicial>
</modelo>

<modelo nome="Ajuda" moldes="">
<agenda nome="aparecerAjuda">  
<![CDATA[


[TECLADO "teclaPressionada" 49 numero] 
	[visivel] 
seDito



[TECLADO "teclaPressionada" 50 numero] 
	[invisivel] 
seDito

]]></agenda> 

<agendaInicial>
<![CDATA[

[0 20] andarPara
instruçoes fixarIcone
visivel
20 fixarProfundidade

aparecerAjuda


]]>
</agendaInicial>
</modelo>


   <ícone nome="Carro22" uri="icones/Carro22.gif" />
   <ícone nome="Instruçoes" uri="icones/Instrucoes.gif" />

</aplique>
</página>
