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

{let r:double = 0.2,
Graphic-Width:double = 5,
Graphic-Height:double = 2,
Distance-Width:Distance = 5cm,
Distance-Height:Distance = 2cm,
Temp-Width:double = Graphic-Width - r,
Temp-Height:double = Graphic-Height - r
}
{let BackGraphic:PolygonGraphic = {PolygonGraphic
width = Distance-Width,
height = Distance-Height,
border-width = 1pt,
border-color = "black",
color = "lime",
{Fraction2d r - r*{cos 0degrees},Temp-Height + r*{sin 0degrees}}, {Fraction2d r - r*{cos 10degrees},Temp-Height + r*{sin 10degrees}},
{Fraction2d r - r*{cos 20degrees},Temp-Height + r*{sin 20degrees}},{Fraction2d r - r*{cos 30degrees},Temp-Height + r*{sin 30degrees}},
{Fraction2d r - r*{cos 40degrees},Temp-Height + r*{sin 40degrees}},{Fraction2d r - r*{cos 50degrees},Temp-Height + r*{sin 50degrees}},
{Fraction2d r - r*{cos 60degrees},Temp-Height + r*{sin 60degrees}},{Fraction2d r - r*{cos 70degrees},Temp-Height + r*{sin 70degrees}},
{Fraction2d r - r*{cos 80degrees},Temp-Height + r*{sin 80degrees}},{Fraction2d r - r*{cos 90degrees},Temp-Height + r*{sin 90degrees}},
{Fraction2d Temp-Width + r*{cos 90degrees},Temp-Height + r*{sin 90degrees}},{Fraction2d Temp-Width + r*{cos 80degrees},Temp-Height + r*{sin 80degrees}},
{Fraction2d Temp-Width + r*{cos 70degrees},Temp-Height + r*{sin 70degrees}},{Fraction2d Temp-Width + r*{cos 60degrees},Temp-Height + r*{sin 60degrees}},
{Fraction2d Temp-Width + r*{cos 50degrees},Temp-Height + r*{sin 50degrees}},{Fraction2d Temp-Width + r*{cos 40degrees},Temp-Height + r*{sin 40degrees}},
{Fraction2d Temp-Width + r*{cos 30degrees},Temp-Height + r*{sin 30degrees}},{Fraction2d Temp-Width + r*{cos 20degrees},Temp-Height + r*{sin 20degrees}},
{Fraction2d Temp-Width + r*{cos 10degrees},Temp-Height + r*{sin 10degrees}},{Fraction2d Temp-Width + r*{cos 0degrees},Temp-Height + r*{sin 0degrees}},
{Fraction2d Temp-Width + r*{cos 0degrees},r - r*{sin 0degrees}}, {Fraction2d Temp-Width + r*{cos 10degrees},r - r*{sin 10degrees}},
{Fraction2d Temp-Width + r*{cos 20degrees},r - r*{sin 20degrees}},{Fraction2d Temp-Width + r*{cos 30degrees},r - r*{sin 30degrees}},
{Fraction2d Temp-Width + r*{cos 40degrees},r - r*{sin 40degrees}},{Fraction2d Temp-Width + r*{cos 50degrees},r - r*{sin 50degrees}},
{Fraction2d Temp-Width + r*{cos 60degrees},r - r*{sin 60degrees}},{Fraction2d Temp-Width + r*{cos 70degrees},r - r*{sin 70degrees}},
{Fraction2d Temp-Width + r*{cos 80degrees},r - r*{sin 80degrees}},{Fraction2d Temp-Width + r*{cos 90degrees},r - r*{sin 90degrees}},
{Fraction2d r - r*{sin 0degrees},r - r*{cos 0degrees}}, {Fraction2d r - r*{sin 10degrees},r - r*{cos 10degrees}},
{Fraction2d r - r*{sin 20degrees},r - r*{cos 20degrees}},{Fraction2d r - r*{sin 30degrees},r - r*{cos 30degrees}},
{Fraction2d r - r*{sin 40degrees},r - r*{cos 40degrees}},{Fraction2d r - r*{sin 50degrees},r - r*{cos 50degrees}},
{Fraction2d r - r*{sin 60degrees},r - r*{cos 60degrees}},{Fraction2d r - r*{sin 70degrees},r - r*{cos 70degrees}},
{Fraction2d r - r*{sin 80degrees},r - r*{cos 80degrees}},{Fraction2d r - r*{sin 90degrees},r - r*{cos 90degrees}}
}
}
{let BackCanvas:Canvas = {Canvas
width = 5cm,
height = 2cm,
border-width = 1pt,
border-color = "black"
}
}
{value
{let cb:CommandButton = {CommandButton
{on Action do
{BackCanvas.add BackGraphic, x = 0cm, y = 2cm}
}
}
}
{VBox BackCanvas,cb}
}