Skip to main content
added 606 characters in body
Source Link
Dr. belisarius
  • 116.8k
  • 13
  • 208
  • 466
i = Import@"https://i.sstatic.net/8I3B1.jpg"; f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax-tmin)/100}]]}, {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

Edit

You may also want to get a better visual feedback:

Module[{cd = ColorData[3, "ColorList"]}, f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax - tmin)/100}]]}, cd = RotateLeft@cd; {Texture[ImageCompose[i, {Graphics[{cd[[1]], Disk[]}], 0.5}]], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] ] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg"; f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax-tmin)/100}]]}, {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg"; f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax-tmin)/100}]]}, {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

Edit

You may also want to get a better visual feedback:

Module[{cd = ColorData[3, "ColorList"]}, f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax - tmin)/100}]]}, cd = RotateLeft@cd; {Texture[ImageCompose[i, {Graphics[{cd[[1]], Disk[]}], 0.5}]], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] ] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

deleted 89 characters in body
Source Link
Dr. belisarius
  • 116.8k
  • 13
  • 208
  • 466
i = Import@"https://i.sstatic.net/8I3B1.jpg"jpg"; f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] :=  Module[{l = Join[{{0, 0}, {Cos@tmin, Sin@tmin}},  Table[{Cos[t]Cos@t, Sin[t]Sin@t}, {t, tmin, tmax, (tmax - tmin)/30}], {{Cos@tmax, Sin@tmax}100}]]]},    {Texture[i], EdgeForm[],  Polygon[l, VertexTextureCoordinates ->  1/2 Transpose[Transpose[l] + {1, 1}]]}]   Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg" f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] :=  Module[{l = Join[{{0, 0}, {Cos@tmin, Sin@tmin}},  Table[{Cos[t], Sin[t]}, {t, tmin, tmax, (tmax - tmin)/30}], {{Cos@tmax, Sin@tmax}}]},    {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates ->  1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg"; f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}}, Table[{Cos@t, Sin@t}, {t, tmin, tmax, (tmax-tmin)/100}]]}, {Texture[i], EdgeForm[],  Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}]   Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

added 12 characters in body
Source Link
Dr. belisarius
  • 116.8k
  • 13
  • 208
  • 466
i = Import@"https://i.sstatic.net/8I3B1.jpg" f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}, {Cos@tmin, Sin@tmin}}, Table[{Cos[t], Sin[t]}, {t, tmin, tmax, (tmax - tmin)/30}], {{Cos@tmax, Sin@tmax}}]}, {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphicsMathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg" f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}, {Cos@tmin, Sin@tmin}}, Table[{Cos[t], Sin[t]}, {t, tmin, tmax, (tmax - tmin)/30}], {{Cos@tmax, Sin@tmax}}]}, {Texture[i], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

i = Import@"https://i.sstatic.net/8I3B1.jpg" f[{{tmin_, tmax_}, {rmin_, rmax_}}, ___] := Module[{l = Join[{{0, 0}, {Cos@tmin, Sin@tmin}}, Table[{Cos[t], Sin[t]}, {t, tmin, tmax, (tmax - tmin)/30}], {{Cos@tmax, Sin@tmax}}]}, {Texture[i], EdgeForm[], Polygon[l, VertexTextureCoordinates -> 1/2 Transpose[Transpose[l] + {1, 1}]]}] Framed@PieChart[{1, 2, 3, 4, 5, 6}, ChartElementFunction -> f] 

Mathematica graphics

Source Link
Dr. belisarius
  • 116.8k
  • 13
  • 208
  • 466
Loading