Subrutinas

Dos de las últimas incorporaciones másinteresantes son los comandos: EjecutaAlActualizar[ ] EjecutaAlClic[ ] Estos comandos ejecutan el guion que hay en Al actualizar y en Al hacer clic respectivamente en dicho objeto. Estoequivale a tener la posibilidad de utilizar subrutinas en nuestros guiones. Las subrutinas se tienen que entender como un mismo guion que aparece en diversos objetos y que para simplificar se pone en un solo objeto y este guion es llamado des de los diversos objetos antes mencionados. Por ejemplo, tenemos cuatro puntos: A, B, C, y D. Alclicar sobre uno de ellos queremos que se dibuje un segmento de extremos el punto P y dicho punto. El segmento tiene queser de color rojo y de grosor 5. Esto lo podemos conseguir poniendo en cada uno de los puntos, en la pestaña Al hacer clic, el guion: AP=Segmento[A,P] Color[AP,1,0,0] GrosorLínea[AP, 5] Para evitar repetir el código podemos utilizarsubrutinas. Creamos el objeto nombre detipo texto que contendrá el nombre del punto. En Al actualizar escribimos el siguiente guion: Ejecuta[{nombre"P=Segment[P,"nombre"]"}] Ejecuta[{"SetColor["nombre"P,1,0,0]"}] Ejecuta[{"SetLineThickness["nombre"P, 5 ]"}] En Al hacer clic encada uno de los puntos A, B, C, D y escribimosel siguiente guion (cambiando la A porel nombre del punto correspondiente): Valor[nombre,"A"] EjecutaAlClic[nombre]