|
xn,y), (x+xn,y+yn), (x,y+yn)]
drawInWindow w $ withRGB r1
$ polyline [ (x,y+yn), (x,y), (x+xn,y)]
drawInWindow w $ withRGB r2
$ polyline [ (x+xn+2,y+2), (x+xn+2, y+yn+2), (x+2,y+yn+2)]
font1 <- getFont1
drawInWindow w $ withFont font1 $ withColor Black
$ text (x-10+xn `div` 2, y-8+yn `div` 2) [c
|
|
메뉴펼치기
