Wolfram言語＆システムドキュメントセンター

Raster

Raster[{{a₁₁,a₁₂,…},…}]

グレーのセルの矩形配列を表す2Dのグラフィックスプリミティブである．

Raster[{{{r₁₁,g₁₁,b₁₁},…},…}]

RGBカラーのセルの配列を表す．

Raster[{{{r₁₁,g₁₁,b₁₁,α₁₁},…},…}]

不透明度 α_ijの彩色されたセルの配列を表す．

Raster[{{{a₁₁,α₁₁},…},…}]

指定された不透明度の灰色セルの配列を表す．

Raster

Raster[{{a₁₁,a₁₂,…},…}]

グレーのセルの矩形配列を表す2Dのグラフィックスプリミティブである．

Raster[{{{r₁₁,g₁₁,b₁₁},…},…}]

RGBカラーのセルの配列を表す．

Raster[{{{r₁₁,g₁₁,b₁₁,α₁₁},…},…}]

不透明度 α_ijの彩色されたセルの配列を表す．

Raster[{{{a₁₁,α₁₁},…},…}]

指定された不透明度の灰色セルの配列を表す．

詳細とオプション

Raster[array,ColorFunction->f]は，関数 f をそのセルに指定された値に適用することで得られるグラフィックス指示子を使ってそれぞれのセルが彩色されるように指定する．
array の次元が{n,m}の場合，Raster[array]は，長方形Rectangle[{0,0},{m,n}]を充填するとみなされる． »
Raster[array,{{x_min,y_min},{x_max,y_max}}]は，長方形Rectangle[{x_min,y_min},{x_max,y_max}]を満たすためにラスタを代りに使用するように指定する． »
ScaledとOffsetは，長方形の座標を指定するのに使用できる．
Raster[array,Automatic]はRaster[array,{{0,0},{m,n}}]と等価である．
Raster[array,rect,{a_min,a_max}]は，a_min が0に対応し a_max が1に対応するようにセルの値をスケールするように指定する．この範囲外にあるセルの値は0か1になるように切り取られる．
array はSparseArrayオブジェクトでもよい．
Image[Raster[…]]はRasterオブジェクトを画像に変換する．

例題

すべて開くすべて閉じる

例 (4)

灰色セルの矩形配列：

Wolfram Language code: Graphics[Raster[{{0, 0.2, 0.4}, {0.6, 0.8, 1}}]]

RGBカラーのセルの配列：

Wolfram Language code: Graphics[Raster[{{{0, 1, 1}, {1, 0, 1}, {1, 1, 0}}, {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}}]]

不透明な灰色セルの配列：

Wolfram Language code: Graphics[{{Red, Disk[{5, 5}, 4]}, Raster[Table[{1 - x, y}, {x, .1, 1, .1}, {y, .1, 1, .1}]]}]

不透明なRGBセルの配列：

Wolfram Language code: Graphics[{{Red, Disk[{5, 5}, 4]}, Raster[Table[{x, y, x, y}, {x, .1, 1, .1}, {y, .1, 1, .1}]]}]

スコープ (14)

ラスタ指定 (3)

× の行列について，ラスタは{0,0}から{m,n}までの長方形を占める：

Wolfram Language code: a = {{0, 0.2, 0.4}, {0.6, 0.8, 1}};

Wolfram Language code: Graphics[Raster[a], Frame -> True, FrameTicks -> False]

実座標を使ってラスタの形を明示的に指定する：

Wolfram Language code: Graphics[Raster[a, {{0, 1}, {5, 4}}], PlotRange -> {{0, 5}, {0, 5}}, Frame -> True]

ScaledとImageScaledを使う：

Wolfram Language code: a = {{0, 0.2, 0.4}, {0.6, 0.8, 1}};

Wolfram Language code:

Graphics[Raster[a, {Scaled[{0, .3}], Scaled[{1, .7}]}], PlotRange -> {{0, 5}, {0, 5}}, 
Frame -> True]

Wolfram Language code:

Graphics[Raster[a, {ImageScaled[{0, .3}], ImageScaled[{1, .7}]}], PlotRange -> {{0, 5}, {0, 5}}, 
Frame -> True]

Offsetを使う：

Wolfram Language code: a = {{0, 0.2, 0.4}, {0.6, 0.8, 1}};

Wolfram Language code:

Graphics[Raster[a, {Offset[{10, 10}, {0, 0}], Offset[{-10, -10}, {5, 5}]}], PlotRange -> {{0, 5}, {0, 5}}, 
Frame -> True]

ラスタのスタイル (11)

スカラー行列のラスタにはデフォルトでグレーレベルが使われる：

Wolfram Language code: a = {{0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1}};

Wolfram Language code: Graphics[Raster[a], Frame -> True, FrameTicks -> False]

Wolfram Language code: Graphics[Raster[a, ColorFunction -> GrayLevel], Frame -> True, FrameTicks -> False]

0から1までの範囲の外にある値は，通常0または1になるように切り取られる：

Wolfram Language code: a = {{-0.4, -0.2, 0, 0.2, 0.4, 0.5, 0.6, 0.8, 1, 1.2, 1.4}};

Wolfram Language code: Graphics[Raster[a], Frame -> True, FrameTicks -> False]

値の範囲を指定する：

Wolfram Language code: a = {{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}};

Wolfram Language code: Graphics[Raster[a, Automatic, {0, 10}], Frame -> True, FrameTicks -> False]

指定範囲外の値は切り取られる：

Wolfram Language code: a = {{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}};

Wolfram Language code: Graphics[Raster[a, Automatic, {2, 8}], Frame -> True, FrameTicks -> False]

数のペアの配列は，不透明度のあるグレーレベルとして扱われる：

Wolfram Language code: a = {{{0, .2}, {0, .4}, {0, .5}, {0, .6}, {0, .8}, {0, 1}}};

Wolfram Language code: Graphics[Raster[a], Background -> Cyan]

3つの数の配列のラスタには，デフォルトでRGBカラーが使われる：

Wolfram Language code: a = {{{1, 0, 0}, {0, 1, 0}, {0, 0, 1}}, {{.5, 0, 0}, {0, .5, 0}, {0, 0, .5}}};

Wolfram Language code: Graphics[Raster[a]]

Wolfram Language code: Graphics[Raster[a, ColorFunction -> RGBColor]]

4つの数の配列は不透明度を伴ったRGB値を持つものとして扱われる：

Wolfram Language code: a = {{{1, 0, 0, 1}, {0, 1, 0, 1}, {0, 0, 1, 1}}, {{1, 0, 0, .5}, {0, 1, 0, .5}, {0, 0, 1, .5}}};

Wolfram Language code: Graphics[Raster[a], Background -> Cyan]

Hueの値をスカラー行列に使う：

Wolfram Language code: a = {{0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1}};

Wolfram Language code: Graphics[Raster[a, ColorFunction -> Hue]]

ユーザ定義の関数を使う：

Wolfram Language code: a = {{0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1}};

Wolfram Language code: Graphics[Raster[a, ColorFunction -> (Blend[{Red, Blue}, #]&)]]

指定範囲で色関数を使う：

Wolfram Language code: a = {{0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}};

Wolfram Language code: Graphics[Raster[a, Automatic, {0, 10}, ColorFunction -> (Blend[{Red, Blue}, #]&)]]

定義済みの勾配を使う：

Wolfram Language code: a = {{0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1}};

Wolfram Language code: Graphics[Raster[a, ColorFunction -> "AvocadoColors"]]

一般化と拡張 (1)

任意のWolfram言語による式を，色関数に適用することができる：

Wolfram Language code: a = {{x, y, y, z, z, z, x}};

Wolfram Language code: Graphics[Raster[a, ColorFunction -> (Switch[#, x, Red, y, Green, z, Blue]&)]]

Wolfram Language code: b = {{"Tomato", "Gold", "LawnGreen", "SteelBlue"}};

Wolfram Language code: Graphics[Raster[b, ColorFunction -> (ColorData["HTML", #]&)]]

オプション (4)

ColorFunction (4)

各セルにグレーレベルを使う：

Wolfram Language code: Graphics[Raster[{{0, 0.2, 0.4}, {0.6, 0.8, 1}}, ColorFunction -> GrayLevel]]

色相の値を使ってラスタセルに色付けする：

Wolfram Language code: Graphics[Raster[{{0, 0.2, 0.4}, {0.6, 0.8, 1}}, ColorFunction -> Hue]]

ユーザ定義の色関数を使う：

Wolfram Language code: Graphics[Raster[{{0, 0.2, 0.4}, {0.6, 0.8, 1}}, ColorFunction -> (RGBColor[#, #, 1 - #]&)]]

定義済みの勾配を使う：

Wolfram Language code: Graphics[Raster[{Range[0, 1, .1]}, ColorFunction -> "TemperatureMap"]]

アプリケーション (3)

ラスタを壁紙として使う：

Wolfram Language code: r = Raster[Table[i, {i, 100}, {j, 100}], {Scaled[{0, 0}], Scaled[{1, 1}]}, {1, 100}, ColorFunction -> "Pastel"];

Wolfram Language code: Plot[{Sin[x], Cos[x], Csc[x]}, {x, 0, 10}, Prolog -> r, PlotStyle -> Thick]

ExampleDataを使ってテスト用のRGBラスタを得る：

Wolfram Language code: rgb = Reverse[ExampleData[{"TestImage", "Sailboat"}, "Data"] / 255.];

Wolfram Language code: Graphics[Raster[rgb]]

RGBをグレースケールに変換する：

Wolfram Language code: gray = Map[{.3, .59, .11}.#&, rgb, {2}];

Wolfram Language code: Graphics[Raster[gray]]

ListCorrelateを使ってフィルタを適用し，これを表示する：

Wolfram Language code: ker = {{1, 0, -1}, {1, 0, -1}, {1, 0, -1}};

Wolfram Language code: f = ListCorrelate[ker, gray];

Wolfram Language code: Graphics[Raster[f, Automatic, MinMax[f] / 4, ColorFunction -> "TemperatureMap"]]

簡単なラスタ密度プロット関数を定義する：

Wolfram Language code:

rasterDensityPlot[f_, {xs_, xmin_, xmax_}, {ys_, ymin_, ymax_}, opts : OptionsPattern[rasterDensityPlot]] := Module[{raw, ppts, cf, zmin, zmax}, {ppts, cf} = OptionValue[{PlotPoints, ColorFunction}];raw = Table[f /. {xs -> j, ys -> i}, {i, ymin, ymax, (ymax - ymin) / (ppts - 1)}, {j, xmin, xmax, (xmax - xmin) / (ppts - 1)}];zmin = Min[raw];zmax = Max[raw];Graphics[Raster[raw, {{xmin, ymin}, {xmax, ymax}}, {zmin, zmax}, ColorFunction -> cf], FilterRules[{opts}, Options[Graphics]], AspectRatio -> 1, Frame -> True]]

関数のオプションを設定する：

Wolfram Language code: Options[rasterDensityPlot] = Sort@Join[{PlotPoints -> 50, ColorFunction -> "LakeColors"}, Options[Graphics]];

結果：

Wolfram Language code: rasterDensityPlot[x Sin[y], {x, -5, 5}, {y, 0, 10}, ColorFunction -> "AvocadoColors"]

Wolfram Language code: rasterDensityPlot[Sin[x] Sin[ y], {x, -4, 4}, {y, -4, 4}, ColorFunction -> "SunsetColors"]

特性と関係 (7)

Rotateをラスタに適用することができる：

Wolfram Language code: Graphics[Rotate[Raster[Table[{i, j, .5}, {i, 0, 1, .1}, {j, 0, 1, .1}]], Pi / 6]]

離散データの可視化にはArrayPlotを用いる：

Wolfram Language code: data = CellularAutomaton[30, {{1}, 0}, 20];

Wolfram Language code: {ArrayPlot[data], Graphics[Raster[data]]}

連続データの可視化にはListDensityPlotを用いる：

Wolfram Language code: data = Table[Exp[-(x ^ 2 + y ^ 2)], {x, -1.5, 1.5, .1}, {y, -1.5, 1.5, 0.1}];

Wolfram Language code: {ListDensityPlot[data, FrameTicks -> None], Graphics[Raster[data]]}

標高データの可視化にはReliefPlotを用いる：

Wolfram Language code: data = Table[Evaluate[Sum[Sin[RandomReal[5, 2].{x, y}], {10}]], {x, 0, 10, .04}, {y, 0, 10, .04}];

Wolfram Language code: {ReliefPlot[data], Graphics[Raster[data, Automatic, {Min[data], Max[data]}]]}

Rasterizeで任意の式からラスタグラフィックスが生成できる：

Wolfram Language code: Rasterize[x ^ 2 + y ^ 2 == 1, "Graphics"]