Tag Info

Hot answers tagged

7

A quick and dirty way to do this is to pad the image with pixels of some inoffensive color, so that the actual meaningful part of the image gets mapped to a smaller portion of the sphere: image = Import["ExampleData/ocelot.jpg"]; {width, height} = ImageMeasurements[image, "Dimensions"]; image = ImagePad[image, {{2 width, 2 width}, {height, height}}, White]; ...


3

myData = {{2, 1, #}, {1, 1, 0}} & /@ Table[1/(n + 2) + .2 RandomReal[], {n, 1, 15}]; SectorChart3D[myData, BoxRatios -> {1, 1, 1}, ColorFunction -> Function[{x, y, z}, Hue[z]], ColorFunctionScaling -> False]


2

ParameticPlot is what you are looking for. With[{r = 1}, ParametricPlot[r {2 π t - Sin[2 π t], 1 - Cos[2 π t]}, {t, 0, 2}]]



Only top voted, non community-wiki answers of a minimum length are eligible