2011-03-15 5 views

Respuesta

7

Además de WReach's answer: En una normal de Locator llaman su aparición puede darse como uno de los argumentos. Cuando se usa en un Manipulate, esto no es posible. Sin embargo, Appearance se puede usar para dibujar otros símbolos de localización.

a = Graphics[{Red, Table[Circle[{0, 0}, i], {i, 3}]}, ImageSize -> 20]; 
Manipulate[ 
Graphics[Line[{{0, 0}, pt}], PlotRange -> 2], {{pt, {1, 1}}, Locator, 
    Appearance -> a}] 

Mathematica graphics

no creo que esto está documentado. El año pasado intenté averiguar cómo hacer esto, pero no pude encontrar la manera. No obtuve respuesta en mi question en el grupo de noticias de mathematica tampoco.

+1

La documentación de Mathematica sobre este punto es escasa (eufemismo). Antes de V8, la documentación simplemente mostraba un ejemplo con la explicación "control con opciones particulares". En V8, agregaron la frase explícita "Las opciones para los controles también se pueden dar dentro de la especificación para las variables". Este es un ejemplo de algo que me ha sucedido algunas veces: una lectura irracionalmente cercana de la documentación revela una característica importante. – WReach

+0

@WReach Sí, en segundo lugar. La página del documento Apariencia ni siquiera alude a la posibilidad de que pueda usarse para apuntar a objetos visuales, como gráficos o texto. Parece indicar que solo puede cambiar el tamaño del localizador. Nuevamente, se encuentra con la frase "Configuraciones típicas para Apariencia que incluyen ..." una frase que ocurre molestamente a menudo en los documentos. –

+0

+1 Gracias por esto. Previamente, he dibujado símbolos de localizador arbitrarios usando 'Apariencia-> Ninguno' y luego dibujo el símbolo en la parte superior del localizador (por ejemplo [aquí] (http://demonstrations.wolfram.com/ScalarFeynmanDiagramsAndSymanzikPolynomials/) donde utilicé la función de representación de vértices del gráfico) Ahora puedo usar algo como 'Aspecto -> Dinámico [Gráficos [{Rojo, Tamaño de Puntos [Grande], Punto [pt]}]]'. – Simon

4

Trate de añadir Appearance -> None para el control Locator:

Manipulate[ 
    Graphics[ 
    Line[{{0, 0}, pt}] 
    , PlotRange -> 2 
    ] 
, {{pt, {1, 1}}, Locator, Appearance -> None} 
] 
Cuestiones relacionadas