Sign up ×
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}];

Move::pattern: The pattern HoldForm[colorscreen,1] is not recognized by Move.
 Export["myplot.jpg", myplot]
share|improve this question
Plus there will be a limited supply of Optica users, so you should entice them just so much more. – Yves Klett Feb 4 '14 at 17:25
Have you tried to post this on Wolfram Community? – Kuba Feb 6 '14 at 7:58
I have no look into Wolfran Community, I will try – user12162 Feb 7 '14 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 '14 at 20:15
Optica respond and they said can be save using click and save, but doed not save nice .jpg, the suggest to save is a .pdf – user12162 Mar 20 '14 at 21:26

1 Answer 1

You should check out the OutputType option, which allows you to specify Graphics output instead of the default Optical System output from functions like AnalyzeSystem, DrawSystem, and ShowSystem.

mySystem = DrawSystem[{ConeOfRays[20, NumberOfRays -> 7],
    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], SaveDefinitions -> True}];

myPlot = ShowSystem[myplot, PlotType -> Full3D, ColorView -> Intensity, 
 OutputType -> StandardGraphics];


enter image description here

share|improve this answer
I've created a new tag optics and tagged this question with it. You should be able to retag other questions that are optics related :) – R. M. Jul 11 at 18:54
@TheToad - Thanks. I just submitted a description for the new tag. – dionys Jul 11 at 19:43

Your Answer


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

Not the answer you're looking for? Browse other questions tagged or ask your own question.