網掛け状態で表示するには

【ご質問】
グラフィックを網掛け状態で表示することは可能でしょうか。

【回答】
グラフィックオブジェクトのdrawメソッドをオーバーライドすることにより、
網掛け状態を表現することが可能です。

詳細は以下のサンプルをご参照ください。
（サンプル内のdrawメソッドで縦、横の線を網目状にオブジェクトに対して引いています。）

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{define-class public AmikakeFrame {inherits Frame}

{constructor public {default …}
{construct-super …}
}

{method public {draw renderer2d:Renderer2d}:void
    ||縦
    {for i:Distance = 0pt below self.width step {any-to-Distance 2px} do
        {renderer2d.render-line
            i, 0pt,
            i, self.height,
            fill-pattern = “black”,
            stroke-thickness = {any-to-Distance 1px},
            line-style = “solid”
        }
    }
    ||横
    {for i:Distance = 0pt below self.height step {any-to-Distance 2px} do
        {renderer2d.render-line
            0pt, i,
            self.width, i,
            fill-pattern = “black”,
            stroke-thickness = {any-to-Distance 1px},
            line-style = “solid”
        }
    }
}
}

{value
let af:AmikakeFrame = {AmikakeFrame width = 200pt, height = 200pt, background = “red”}
af
}