viernes, 18 de mayo de 2012

1º BTO

Para luz :x
    sl
    ponx :x
    pony 16
    bl
    poncl 47
    repite 12 [avanza 4 giraderecha 360/12]
  
    sl
    ponx :x
    pony 44
    bl
    poncl 12
    repite 12 [avanza 4 giraderecha 360/12]

    sl
    ponx :x
    pony 72
    bl
    poncl 10
    repite 12 [avanza 4 giraderecha 360/12]
    poncl 1
fin

Para semaforo :rect :luz
    rectangulo :rect
    luz :luz
fin


Para semaforos
    semaforo 0 -20
      encenderluz -17 72 10
    espera 200
      blanco
      luz -20
      encenderluz -17 16 47
      blanco2  
      espera 200
      blanco  
      encenderluz -17 44 12
      blanco3
      luz -20
    espera 200
    semaforo 50 30
fin

Para rectangulo :x2
    sl
    ponx :x2
    pony 0
    bl
    poncl 1
    repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]
fin




Para blanco
    sl
    ponx -17
    pony 72
    bl
    poncl 16
    rellena
fin

Para blanco2
    sl
    ponx -17
    pony 44
    bl
    poncl 16
    rellena
fin

Para blanco3
    sl
    ponx -17
    pony 16
    bl
    poncl 16
    rellena
fin
para encenderluz :x :y :color
    sl
    ponx :x
    pony :y
    poncl :color
    bl
    rellena
fin

miércoles, 16 de mayo de 2012

1ºBTO: Semáforo (Ojo, es diferente al de 2º de BTO)

Para luz :x


sl

ponx :x

pony 16

bl

poncl 47

repite 12 [avanza 4 giraderecha 360/12]



sl

ponx :x

pony 44

bl

poncl 12

repite 12 [avanza 4 giraderecha 360/12]



sl

ponx :x

pony 72

bl

poncl 10

repite 12 [avanza 4 giraderecha 360/12]

poncl 1

fin



Para semaforo :rect :luz

rectangulo :rect

luz :luz

fin





Para semaforos

semaforo 0 -20

semaforo 50 30

fin



Para rectangulo :x2

sl

ponx :x2

pony 0

bl

repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]

fin

viernes, 23 de marzo de 2012

2º BTO: Semáforo

Para apagaluz :tiempoespera
 espera :tiempoespera
 poncl 16
 rellena
fin

Para colorealuz :equis :ygriega :color
 sl
 ponx :equis
 pony :ygriega
 bl
 poncl :color
 repite 12 [avanza 4 giraderecha 360/12]
 giraderecha 90
 avanza 5
 rellena
 giraizquierda 90
fin

Para grafico
 rectangulo
 activa [1 2]
 muestratortugas
 activa 2
 colorealuz 80 72 10 ; semáforo 2 color rojo
 activa 1
 colorealuz -20 72 10 ;semaforo 1 rojo
 apagaluz 300
 colorealuz -20 16 47 ;semaforo 1 verde
 apagaluz 300
 colorealuz -20 44 12 ;semaforo 1 amarillo
 apagaluz 300
 colorealuz -20 72 10 ; semaforo 1 rojo
  activa 2
 colorealuz 80 72 10 ;semaforo 2 rojo
 apagaluz 300
 colorealuz 80 16 47 ;semaforo 2 verde
 apagaluz 300
 colorealuz 80 44 12 ;semaforo 2 amarillo
 apagaluz 300
 colorealuz 80 72 10 ;semaforo 2 rojo
  si tecla? [borrapantalla alto]
 grafico
fin

Para rectangulo
 activa [1 2]
 muestratortugas
 sl
 activa 1
 ponx 0
 pony 0
 bl
 activa 2
 ponx 100
 pony 0
 activa [1 2]
 bl
 poncl 1
 repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]
fin

jueves, 22 de marzo de 2012

viernes, 16 de marzo de 2012

4º ESO: crear un efecto de lluvia con GIMP

Hay que seguir las instrucciones que aparecen en esta web:

http://mirincon-misaani.blogspot.com/2009/06/el-gimp-foto-con-efecto-de-lluvia.html

jueves, 8 de marzo de 2012