{curl 3.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}

{title Japanese Flag}

|| 日本の国旗
{define-class public JPFlag {inherits BaseFrame}
    ||Default constructor
    {constructor public {default ...}
      {construct-super ...}
    }

    || draw method.
    {method public {draw renderer:Renderer2d}:void
        {renderer.render-ellipse
            {self.layout.get-bounds}.width / 2 - {self.layout.get-bounds}.width / 4,
            {self.layout.get-bounds}.height / 2 - {self.layout.get-bounds}.width / 4,
            {self.layout.get-bounds}.width / 2,
            {self.layout.get-bounds}.width / 2,
            fill-pattern = "red"
        }
    }
}

|| ここから描画
{JPFlag width = 3in, height = 2in, border-width = 1pt,
    border-color = "black"}