Combining 3D graphics with different lighting conditionsInteracting with 3D Graphics, for export3D graphics with colourbarProblem with “Lighting” in Mathematica V9Change in Lighting and Show in V10?Change lighting in ChromaticityPlot3DCombining Graphics, Graphics3D, and ParametricPlot3DTrue neutral lighting in ParametricPlot3DWeird lighting for spherical plot
Does fossil fuels use since 1990 account for half of all the fossil fuels used in history?
Why is the Lucas test not recommended to differentiate higher alcohols?
What are those bumps on top of the Antonov-225?
Why aren't rainbows blurred-out into nothing after they are produced?
What is a "soap"?
Why did IBM make public the PC BIOS source code?
(A room / an office) where an artist works
How do some PhD students get 10+ papers? Is that what I need for landing good faculty position?
Graphs for which a calculus student can reasonably compute the arclength
How was the murder committed?
The cat exchanges places with a drawing of the cat
Clarification on Integrability
Why are Tucker and Malcolm not dead?
Why is tert-butoxide often used in elimination reactions when it is not necessary?
Scam? Phone call from "Department of Social Security" asking me to call back
How would you translate this? バタコチーズライス
Why did Saruman lie?
Reimplementation of min() in Python
How far did Gandalf and the Balrog drop from the bridge in Moria?
Dogfights in outer space
Why is there a large performance impact when looping over an array over 240 elements?
In which case does the Security misconfiguration vulnerability apply to?
How is являться different from есть and быть
Does Nightpack Ambusher's second ability trigger if I cast spells during the end step?
Combining 3D graphics with different lighting conditions
Interacting with 3D Graphics, for export3D graphics with colourbarProblem with “Lighting” in Mathematica V9Change in Lighting and Show in V10?Change lighting in ChromaticityPlot3DCombining Graphics, Graphics3D, and ParametricPlot3DTrue neutral lighting in ParametricPlot3DWeird lighting for spherical plot
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;
$begingroup$
I would like to create a 3D graphic of the bust of Beethoven with specified lighting position, as well as a small (colored) set of axes. I would like the axes to not be affected by the position of the light in the rest of the figure.
bustWithLight = Show[ExampleData["Geometry3D","Beethoven"],
Lighting -> "Directional",
RGBColor[1, 1, 1], 0, -20, -20]
Here are the axes:
theAxes = Graphics3D[
Red, Thickness[0.015], Arrowheads[.05],
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green,
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue,
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Lighting -> "Ambient", White]
Here they are integrated:
Show[bustWithLight, theAxes]
Problem: Notice that the axes are rendered as three-dimensional tubes (as they should) but "illuminated" by the lighting inherited from the bust. (This is clearest if you render then rotate the whole figure on your screen.) I would like to render the axes so they have no such inherited illumination.
I have tried a number of methods (such as above), but it seems that a final Show demands there be a single overall lighting. Is there a way to avoid this limitation?
graphics3d lighting
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
$endgroup$
add a comment |
$begingroup$
I would like to create a 3D graphic of the bust of Beethoven with specified lighting position, as well as a small (colored) set of axes. I would like the axes to not be affected by the position of the light in the rest of the figure.
bustWithLight = Show[ExampleData["Geometry3D","Beethoven"],
Lighting -> "Directional",
RGBColor[1, 1, 1], 0, -20, -20]
Here are the axes:
theAxes = Graphics3D[
Red, Thickness[0.015], Arrowheads[.05],
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green,
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue,
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Lighting -> "Ambient", White]
Here they are integrated:
Show[bustWithLight, theAxes]
Problem: Notice that the axes are rendered as three-dimensional tubes (as they should) but "illuminated" by the lighting inherited from the bust. (This is clearest if you render then rotate the whole figure on your screen.) I would like to render the axes so they have no such inherited illumination.
I have tried a number of methods (such as above), but it seems that a final Show demands there be a single overall lighting. Is there a way to avoid this limitation?
graphics3d lighting
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
$endgroup$
$begingroup$
You could try toInsetthe innerGraphics3D.
$endgroup$
– b3m2a1
8 hours ago
$begingroup$
@b3m2a1:Insetdoesn't seem to work. I've posted all my code. Can you just cut and paste and verifyInsetworks for you?
$endgroup$
– David G. Stork
8 hours ago
add a comment |
$begingroup$
I would like to create a 3D graphic of the bust of Beethoven with specified lighting position, as well as a small (colored) set of axes. I would like the axes to not be affected by the position of the light in the rest of the figure.
bustWithLight = Show[ExampleData["Geometry3D","Beethoven"],
Lighting -> "Directional",
RGBColor[1, 1, 1], 0, -20, -20]
Here are the axes:
theAxes = Graphics3D[
Red, Thickness[0.015], Arrowheads[.05],
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green,
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue,
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Lighting -> "Ambient", White]
Here they are integrated:
Show[bustWithLight, theAxes]
Problem: Notice that the axes are rendered as three-dimensional tubes (as they should) but "illuminated" by the lighting inherited from the bust. (This is clearest if you render then rotate the whole figure on your screen.) I would like to render the axes so they have no such inherited illumination.
I have tried a number of methods (such as above), but it seems that a final Show demands there be a single overall lighting. Is there a way to avoid this limitation?
graphics3d lighting
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
$endgroup$
I would like to create a 3D graphic of the bust of Beethoven with specified lighting position, as well as a small (colored) set of axes. I would like the axes to not be affected by the position of the light in the rest of the figure.
bustWithLight = Show[ExampleData["Geometry3D","Beethoven"],
Lighting -> "Directional",
RGBColor[1, 1, 1], 0, -20, -20]
Here are the axes:
theAxes = Graphics3D[
Red, Thickness[0.015], Arrowheads[.05],
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green,
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue,
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Lighting -> "Ambient", White]
Here they are integrated:
Show[bustWithLight, theAxes]
Problem: Notice that the axes are rendered as three-dimensional tubes (as they should) but "illuminated" by the lighting inherited from the bust. (This is clearest if you render then rotate the whole figure on your screen.) I would like to render the axes so they have no such inherited illumination.
I have tried a number of methods (such as above), but it seems that a final Show demands there be a single overall lighting. Is there a way to avoid this limitation?
graphics3d lighting
graphics3d lighting
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
asked 8 hours ago
David G. StorkDavid G. Stork
25.9k2 gold badges23 silver badges58 bronze badges
25.9k2 gold badges23 silver badges58 bronze badges
$begingroup$
You could try toInsetthe innerGraphics3D.
$endgroup$
– b3m2a1
8 hours ago
$begingroup$
@b3m2a1:Insetdoesn't seem to work. I've posted all my code. Can you just cut and paste and verifyInsetworks for you?
$endgroup$
– David G. Stork
8 hours ago
add a comment |
$begingroup$
You could try toInsetthe innerGraphics3D.
$endgroup$
– b3m2a1
8 hours ago
$begingroup$
@b3m2a1:Insetdoesn't seem to work. I've posted all my code. Can you just cut and paste and verifyInsetworks for you?
$endgroup$
– David G. Stork
8 hours ago
$begingroup$
You could try to
Inset the inner Graphics3D.$endgroup$
– b3m2a1
8 hours ago
$begingroup$
You could try to
Inset the inner Graphics3D.$endgroup$
– b3m2a1
8 hours ago
$begingroup$
@b3m2a1:
Inset doesn't seem to work. I've posted all my code. Can you just cut and paste and verify Inset works for you?$endgroup$
– David G. Stork
8 hours ago
$begingroup$
@b3m2a1:
Inset doesn't seem to work. I've posted all my code. Can you just cut and paste and verify Inset works for you?$endgroup$
– David G. Stork
8 hours ago
add a comment |
1 Answer
1
active
oldest
votes
$begingroup$
You can use Lighting as a directive:
theAxes2 = Graphics3D[Lighting -> "Ambient", White, Thickness[0.015],
Red, Arrowheads[.05], Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green, Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue, Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]]];
Show[bustWithLight, theAxes2]
An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:
theAxes3 = Graphics3D[Thickness[0.015], Arrowheads[.05],
MapThread[Style[#, #2, Lighting -> "Ambient", White]&,
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Red, Green, Blue]];
Show[bustWithLight, theAxes3]
same picture
Both usages are documented in Lighting >> Details
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
$endgroup$
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
add a comment |
Your Answer
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f203696%2fcombining-3d-graphics-with-different-lighting-conditions%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
You can use Lighting as a directive:
theAxes2 = Graphics3D[Lighting -> "Ambient", White, Thickness[0.015],
Red, Arrowheads[.05], Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green, Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue, Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]]];
Show[bustWithLight, theAxes2]
An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:
theAxes3 = Graphics3D[Thickness[0.015], Arrowheads[.05],
MapThread[Style[#, #2, Lighting -> "Ambient", White]&,
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Red, Green, Blue]];
Show[bustWithLight, theAxes3]
same picture
Both usages are documented in Lighting >> Details
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
$endgroup$
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
add a comment |
$begingroup$
You can use Lighting as a directive:
theAxes2 = Graphics3D[Lighting -> "Ambient", White, Thickness[0.015],
Red, Arrowheads[.05], Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green, Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue, Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]]];
Show[bustWithLight, theAxes2]
An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:
theAxes3 = Graphics3D[Thickness[0.015], Arrowheads[.05],
MapThread[Style[#, #2, Lighting -> "Ambient", White]&,
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Red, Green, Blue]];
Show[bustWithLight, theAxes3]
same picture
Both usages are documented in Lighting >> Details
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
$endgroup$
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
add a comment |
$begingroup$
You can use Lighting as a directive:
theAxes2 = Graphics3D[Lighting -> "Ambient", White, Thickness[0.015],
Red, Arrowheads[.05], Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green, Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue, Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]]];
Show[bustWithLight, theAxes2]
An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:
theAxes3 = Graphics3D[Thickness[0.015], Arrowheads[.05],
MapThread[Style[#, #2, Lighting -> "Ambient", White]&,
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Red, Green, Blue]];
Show[bustWithLight, theAxes3]
same picture
Both usages are documented in Lighting >> Details
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
$endgroup$
You can use Lighting as a directive:
theAxes2 = Graphics3D[Lighting -> "Ambient", White, Thickness[0.015],
Red, Arrowheads[.05], Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Green, Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Blue, Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]]];
Show[bustWithLight, theAxes2]
An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:
theAxes3 = Graphics3D[Thickness[0.015], Arrowheads[.05],
MapThread[Style[#, #2, Lighting -> "Ambient", White]&,
Arrow[Tube[-3.5, -.5, 0, -3.5, -2.5, 0]],
Arrow[Tube[-3.5, -.5, 0, -3.5, -.5, 2]],
Arrow[Tube[-3.5, -.5, 0, -5.5, -.5, 0]],
Red, Green, Blue]];
Show[bustWithLight, theAxes3]
same picture
Both usages are documented in Lighting >> Details
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
edited 7 hours ago
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
answered 8 hours ago
kglrkglr
211k10 gold badges241 silver badges483 bronze badges
211k10 gold badges241 silver badges483 bronze badges
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
add a comment |
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
Oh... you are very good at this. Thanks so much. ($checkmark$)
$endgroup$
– David G. Stork
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
$begingroup$
@David, thank you for the accept.
$endgroup$
– kglr
7 hours ago
add a comment |
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f203696%2fcombining-3d-graphics-with-different-lighting-conditions%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
$begingroup$
You could try to
Insetthe innerGraphics3D.$endgroup$
– b3m2a1
8 hours ago
$begingroup$
@b3m2a1:
Insetdoesn't seem to work. I've posted all my code. Can you just cut and paste and verifyInsetworks for you?$endgroup$
– David G. Stork
8 hours ago