Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I am modeling an eye and am using TurboPlot and DrawSystem.

I would like to export the graph, but using the Move function which returns a Graphics. When execute Show[Graphics[%]] I just get a graph, without the object and when I export get the following error:

Show::gtype: Optical System is not a type of graphic, 

And this leads me to the questions:

1) Is there an alternative to the Move function, or similar to Move, which gives an option to Export a graph?

2) Is there a function that will let me Export a graph even with the function Move?

colorscreen = CustomDeflections[Screen[0.9], Function[Ray[WaveLength -> .45]], 
                AddTo -> ChangedRay];

myplot = DrawSystem[{ConeOfRays[20, NumberOfRays -> 7],
    RefractiveIndex [1.5], Polarization [45], 
    Ray [WaveLength -> .45, AddTo -> NewRay],
    Move[SphericalLens[{rr1, 5}, {rr2, -5}, 3, 0.5], {x, 5}, SaveDefinitions -> True],
    Move[PinHole[0.5, 1.5], 7],
    Boundary[{0, -4, -4}, {15, 4, 4}],
    Move [Screen[5, " "], 15],
    Move[Screen [1.5], 5], ColorView -> Long [Intensity], 
    Frame -> True, FrameTicks -> Automatic, SaveDefinitions -> True}];

 Show[Graphics[%]]
Move::pattern: The pattern HoldForm[colorscreen,1] is not recognized by Move.
 Export["myplot.jpg", myplot]
share|improve this question
    
Please, provide a minimum non-working, in this case, example that illustrates the problems you are having. Otherwise we would have to look at the bottom of the cup of coffee and guess what's happening. –  Sektor Feb 4 at 11:38
    
Plus there will be a limited supply of Optica users, so you should entice them just so much more. –  Yves Klett Feb 4 at 17:25
    
Have you tried to post this on Wolfram Community? –  Kuba Feb 6 at 7:58
    
I have no look into Wolfran Community, I will try –  user12162 Feb 7 at 8:32
    
Are you drawing a 3D figure by any chance? In that case you should use Graphics3D instead of Graphics. –  Sjoerd C. de Vries Mar 19 at 20:15
show 1 more comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Browse other questions tagged or ask your own question.