graphics manipulation
- To: mathgroup at smc.vnet.net
- Subject: [mg70580] graphics manipulation
- From: dimmechan at yahoo.com
- Date: Fri, 20 Oct 2006 05:21:45 -0400 (EDT)
Hello to all. Below I give some code that appeared in the course of practicing on graphics issues. Off[General::spell1] plot1=Plot[BesselJ[0,x],{x,0,10},PlotStyle®Blue]; With the following command vertical lines are displayed at each point calculated by the Plot function in order to produce plot1. Show[{plot1, (Graphics[{Red, Line[{{First[#1], 0}, #1}]}] & ) /@ Cases[FullForm[plot1], {(x_)?NumberQ, (y_)?NumberQ}, Infinity]}, ImageSize -> {400, 300}] Here is some other simple code. Show[plot1/.{x_?NumberQ,y_?NumberQ}¦{y,x}] Show[plot1/.{x_?NumberQ,y_?NumberQ}¦{-x,y}] lst = Partition[Range[0, 10], 2, 1]; Show[(Plot[BesselJ[0, x], {x, #1[[1]], #1[[2]]}, DisplayFunction -> Identity, PlotStyle -> {AbsoluteThickness[#1[[2]]/2], Hue[#1[[1]]/11]}] & ) /@ lst, DisplayFunction -> $DisplayFunction] I will really appreciate if someone provide me with other simple examples of similar or more advanced level. Next, the code below vertically displays the x-ticklabels (adopted by Bruce Colleti) g = Plot[x, {x, 0, 1}]; g = FullGraphics[g]; g = g /. Text[text_, {x_, y_ /; y < 0}, offset_] -> Text[text, {x, y}, offset, {0, 1}]; Show[g, PlotRange -> All, ImageSize -> {400, 300}]; However for plot1 there is a problem as you can see. FullGraphics[plot1] /. Text[text_, {x_, y_ /; y < 0}, offset_] -> Text[text, {x, y}, offset, {0, 1}]; Show[%, PlotRange -> All, ImageSize -> {400, 300}]; How can I modify it in order to change the display of the x-ticklabels only? Is another way to get the same result? Also, because of the documentation of FullGraphics is very poor, I really appreciate if someone will provide me with further examples. Lastly, I would like to mention, even I know that I say something well known to the active members of this forum, that in private communication with David Park it appeared clearly that issues like those in my questions can be very easily dealt with his excellent DrawGraphics package. Thanks in advance for any response. Dimitris