| New in Wolfram Mathematica 6: Dynamic Graphical Input | ◄ previous | next ► |
Create Visual Language Syntaxes
Mathematica 6 provides the underlying functionality necessary to create arbitrarily sophisticated visual language syntaxes.
In[1]:=  |  RevolutionPlot3D[\!\(\*
GraphicsBox[{{{{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-126., -7.5}, {-118., 0}, {-103.,
0}, {-95., -7.5}, {-103., -15.}, {-118., -15.}}]},
{GrayLevel[0], InsetBox[
RowBox[{"-", "1"}], {-110.5, -7.5}]}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-213., -27.5}, {-205., -20.}, {-198., -20.}, \
{-190., -27.5}, {-198., -35.}, {-205., -35.}}]},
{GrayLevel[0], InsetBox["3", {-201.5, -27.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-225., -54.}, {-217., -40.}, {-198., -40.}, \
{-190., -54.}, {-198., -68.}, {-217., -68.}}]},
{GrayLevel[0], InsetBox[
RowBox[{"-",
FractionBox["1", "2"]}], {-207.5, -54.}]}}}, {
LineBox[{{-190., -27.5}, {-178., -27.5}, {-152., -41.5}, \
{-140., -41.5}}],
LineBox[{{-190., -54.}, {-178., -54.}, {-152., -46.5}, \
{-140., -46.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-140., -54.5}, {-140., -33.5}, {-95., -33.5}, \
{-95., -54.5}, {-140., -54.5}}]},
{GrayLevel[0], InsetBox["Power", {-117.5, -44.}]}}}, {{{{{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-410., -80.5}, {-402., -73.}, {-395., \
-73.}, {-387., -80.5}, {-395., -88.}, {-402., -88.}}]},
{GrayLevel[0], InsetBox["3", {-398.5, -80.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-422., -107.}, {-414., -93.}, {-395., \
-93.}, {-387., -107.}, {-395., -121.}, {-414., -121.}}]},
{GrayLevel[0], InsetBox[
RowBox[{"-",
FractionBox["1", "2"]}], {-404.5, -107.}]}}}, {
LineBox[{{-387., -80.5}, {-375., -80.5}, {-349., -94.5}, \
{-337., -94.5}}],
LineBox[{{-387., -107.}, {-375., -107.}, {-349., -99.5}, \
{-337., -99.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-337., -107.5}, {-337., -86.5}, {-292., \
-86.5}, {-292., -107.5}, {-337., -107.5}}]},
{GrayLevel[0], InsetBox["Power", {-314.5, -97.}]}}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-403., -133.5}, {-395., -126.}, {-388., \
-126.}, {-380., -133.5}, {-388., -141.}, {-395., -141.}}]},
{GrayLevel[0], InsetBox["1", {-391.5, -133.5}]}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-498., -153.5}, {-490., -146.}, {-483., \
-146.}, {-475., -153.5}, {-483., -161.}, {-490., -161.}}]},
{GrayLevel[0], InsetBox["2", {-486.5, -153.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-498., -173.5}, {-490., -166.}, {-483., \
-166.}, {-475., -173.5}, {-483., -181.}, {-490., -181.}}]},
{GrayLevel[0], InsetBox["x", {-486.5, -173.5}]}}}, {
LineBox[{{-475., -153.5}, {-463., -153.5}, {-437., \
-161.}, {-425., -161.}}],
LineBox[{{-475., -173.5}, {-463., -173.5}, {-437., \
-166.}, {-425., -166.}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-425., -174.}, {-425., -153.}, {-380., \
-153.}, {-380., -174.}, {-425., -174.}}]},
{GrayLevel[0], InsetBox["Times", {-402.5, -163.5}]}}}}, {
LineBox[{{-380., -133.5}, {-368., -133.5}, {-342., \
-151.}, {-330., -151.}}],
LineBox[{{-380., -163.5}, {-368., -163.5}, {-342., \
-156.}, {-330., -156.}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-330., -164.}, {-330., -143.}, {-292., \
-143.}, {-292., -164.}, {-330., -164.}}]},
{GrayLevel[0], InsetBox["Plus", {-311., -153.5}]}}}}, {
LineBox[{{-292., -97.}, {-280., -97.}, {-254., -124.5}, \
{-242., -124.5}}],
LineBox[{{-292., -153.5}, {-280., -153.5}, {-254., \
-129.5}, {-242., -129.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-242., -137.5}, {-242., -116.5}, {-197., \
-116.5}, {-197., -137.5}, {-242., -137.5}}]},
{GrayLevel[0], InsetBox["Times", {-219.5, -127.}]}}},
LineBox[{{-197., -127.}, {-185., -127.}, {-159., -127.}, \
{-147., -127.}}], {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-147., -136.}, {-147., -118.}, {-95., -118.}, \
{-95., -136.}, {-147., -136.}}]},
{GrayLevel[0], InsetBox["ArcTan", {-121., -127.}]}}}}, {
LineBox[{{-95., -7.5}, {-83., -7.5}, {-57., -85.5}, {-45., \
-85.5}}],
LineBox[{{-95., -44.}, {-83., -44.}, {-57., -90.5}, {-45., \
-90.5}}],
LineBox[{{-95., -127.}, {-83., -127.}, {-57., -95.5}, {-45., \
-95.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-45., -103.5}, {-45., -77.5}, {0., -77.5}, {
0., -103.5}, {-45., -103.5}}]},
{GrayLevel[0], InsetBox["Times", {-22.5, -90.5}]}}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-123., -200.}, {-115., -186.}, {-103., -186.}, \
{-95., -200.}, {-103., -214.}, {-115., -214.}}]},
{GrayLevel[0], InsetBox[
FractionBox["1", "3"], {-109., -200.}]}}, {{{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-295., -226.5}, {-287., -219.}, {-272., \
-219.}, {-264., -226.5}, {-272., -234.}, {-287., -234.}}]},
{GrayLevel[0], InsetBox[
RowBox[{"-", "1"}], {-279.5, -226.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-287., -246.5}, {-279., -239.}, {-272., \
-239.}, {-264., -246.5}, {-272., -254.}, {-279., -254.}}]},
{GrayLevel[0], InsetBox["x", {-275.5, -246.5}]}}}, {
LineBox[{{-264., -226.5}, {-252., -226.5}, {-226., -234.}, \
{-214., -234.}}],
LineBox[{{-264., -246.5}, {-252., -246.5}, {-226., -239.}, \
{-214., -239.}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-214., -247.}, {-214., -226.}, {-176., \
-226.}, {-176., -247.}, {-214., -247.}}]},
{GrayLevel[0], InsetBox["Plus", {-195., -236.5}]}}},
LineBox[{{-176., -236.5}, {-164., -236.5}, {-138., -236.5}, \
{-126., -236.5}}], {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-126., -245.5}, {-126., -227.5}, {-95., \
-227.5}, {-95., -245.5}, {-126., -245.5}}]},
{GrayLevel[0], InsetBox["Log", {-110.5, -236.5}]}}}}, {
LineBox[{{-95., -200.}, {-83., -200.}, {-57., -217.5}, {-45., \
-217.5}}],
LineBox[{{-95., -236.5}, {-83., -236.5}, {-57., -222.5}, \
{-45., -222.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-45., -230.5}, {-45., -209.5}, {0., -209.5}, {
0., -230.5}, {-45., -230.5}}]},
{GrayLevel[0], InsetBox["Times", {-22.5, -220.}]}}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-130., -273.}, {-122., -259.}, {-103., -259.}, \
{-95., -273.}, {-103., -287.}, {-122., -287.}}]},
{GrayLevel[0], InsetBox[
RowBox[{"-",
FractionBox["1", "6"]}], {-112.5, -273.}]}}, {{{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-287., -299.5}, {-279., -292.}, {-272., \
-292.}, {-264., -299.5}, {-272., -307.}, {-279., -307.}}]},
{GrayLevel[0], InsetBox["1", {-275.5, -299.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-287., -319.5}, {-279., -312.}, {-272., \
-312.}, {-264., -319.5}, {-272., -327.}, {-279., -327.}}]},
{GrayLevel[0], InsetBox["x", {-275.5, -319.5}]}}, {{{
{RGBColor[1, 0.7, 1],
PolygonBox[{{-382., -339.5}, {-374., -332.}, {-367., \
-332.}, {-359., -339.5}, {-367., -347.}, {-374., -347.}}]},
{GrayLevel[0], InsetBox["x", {-370.5, -339.5}]}}, {
{RGBColor[1, 0.7, 1],
PolygonBox[{{-382., -359.5}, {-374., -352.}, {-367., \
-352.}, {-359., -359.5}, {-367., -367.}, {-374., -367.}}]},
{GrayLevel[0], InsetBox["2", {-370.5, -359.5}]}}}, {
LineBox[{{-359., -339.5}, {-347., -339.5}, {-321., -347.}
, {-309., -347.}}],
LineBox[{{-359., -359.5}, {-347., -359.5}, {-321., \
-352.}, {-309., -352.}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-309., -360.}, {-309., -339.}, {-264., \
-339.}, {-264., -360.}, {-309., -360.}}]},
{GrayLevel[0], InsetBox["Power", {-286.5, -349.5}]}}}}, {
LineBox[{{-264., -299.5}, {-252., -299.5}, {-226., \
-324.5}, {-214., -324.5}}],
LineBox[{{-264., -319.5}, {-252., -319.5}, {-226., \
-329.5}, {-214., -329.5}}],
LineBox[{{-264., -349.5}, {-252., -349.5}, {-226., \
-334.5}, {-214., -334.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-214., -342.5}, {-214., -316.5}, {-176., \
-316.5}, {-176., -342.5}, {-214., -342.5}}]},
{GrayLevel[0], InsetBox["Plus", {-195., -329.5}]}}},
LineBox[{{-176., -329.5}, {-164., -329.5}, {-138., -329.5}, \
{-126., -329.5}}], {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-126., -338.5}, {-126., -320.5}, {-95., \
-320.5}, {-95., -338.5}, {-126., -338.5}}]},
{GrayLevel[0], InsetBox["Log", {-110.5, -329.5}]}}}}, {
LineBox[{{-95., -273.}, {-83., -273.}, {-57., -310.5}, {-45., \
-310.5}}],
LineBox[{{-95., -329.5}, {-83., -329.5}, {-57., -315.5}, \
{-45., -315.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{-45., -323.5}, {-45., -302.5}, {0., -302.5}, {
0., -323.5}, {-45., -323.5}}]},
{GrayLevel[0], InsetBox["Times", {-22.5, -313.}]}}}}, {
LineBox[{{0, -90.5}, {12, -90.5}, {38, -178.5}, {50, -178.5}}],
LineBox[{{0, -220.}, {12, -220.}, {38, -183.5}, {50, -183.5}}],
LineBox[{{0, -313.}, {12, -313.}, {38, -188.5}, {
50, -188.5}}]}, {
{RGBColor[1, 0.7, 0.4],
PolygonBox[{{50., -196.5}, {50., -170.5}, {88., -170.5}, {
88., -196.5}, {50., -196.5}}]},
{GrayLevel[0], InsetBox["Plus", {69., -183.5}]}}},
AspectRatio->Automatic,
ImageSize->{469., 277.},
PlotRange->{{-498., 88.}, {-367., 0}}]\), {x, -3, 3}] |
Out[1]=  |  |