module Draw(inchToPixel,pixelToInch,intToFloat,
 xWin,yWin,trans,shapeToGraphic,
 spaceClose
 ) where
 
import Shape
import SOEGraphics
inchToPixel :: Float -> Int
inchToPixel x = round (100*x)
pixelToInch :: Int -> Float
pixelToInch n = (intToFloat n) / 100
intToFloat :: Int -> Float
intToFloat n = fromInteger (toInteger n)
xWin, yWin :: Int
xWin = 600
yWin = 500
trans :: Vertex -> Point
trans (x,y) = ( xWin2 + inchToPixel x, 
 yWin2 - inchToPixel y )
transList :: [Vertex] -> [Point]
transList [] = []
transList (p:ps) = trans p : transList ps
xWin2, yWin2 :: Int
xWin2 = xWin `div` 2 
yWin2 = yWin `div` 2 
shapeToGraphic :: Shape -> Graphic
shapeToGraphic (Rectangle s1 s2)
 = let s12 = s1/2
 s22 = s2/2
 in polygon 
 (transList [(-s12,-s22),(-s12,s22),
 (s12,s22),(s12,-s22)])
shapeToGraphic (Ellipse r1 r2)
 = ellipse (trans (-r1,-r2)) (trans (r1,r2)) 
shapeToGraphic (RtTriangle s1 s2)
 = polygon (transList [(0,0),(s1,0),(0,s2)])
shapeToGraphic (Polygon pts)
 = polygon (transList pts)
 
spaceClose :: Window -> IO ()
spaceClose w =
 do { k <- getKey w
 ; if k == ' ' then closeWindow w
 else spaceClose w
 }
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="http://web.cecs.pdx.edu/~sheard/course/funprog/lecturenotes/Draw.hs">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="http://web.cecs.pdx.edu/~sheard/course/funprog/lecturenotes/Draw.hs" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>