July 9th, 2014

Беженцы из Украины: они настоящие

Недели две-три-четыре назад в ТОП-е Яндекса по Питеру мелькала новость о десятках, сотнях и тысячах беженцев из Украины, в частности на Васильевском острове. Ссылка правда затерялась в недрах сети.

Ещё тогда подумал: если остров уплотнён беженцами, то какова вероятность визуального подтверждения их присутствия?
Вопрос повис в воздухе.
Ответ не заставил себя долго ждать...Collapse )

Graphics.UI.WXCore.Draw или HTk.Widgets.Canvas

import Graphics.UI.WX

main = do start hello

hello :: IO ()
hello = do 
  f1 <- frameFixed [text := "test1"]
  p <- panel f1 [on paint := drawItems]
           
  set f1 [layout := minsize (sz 300 300) $ widget p]
           
drawItems dc viewArea = 
  do set dc [brushColor := green, brushKind := BrushSolid]
     drawLine dc [(Point 250 250), (Point 200 200)]

drawLine dc pt = line dc (head pt) (last pt) []

Или так:
import HTk.Toplevel.HTk
import HTk.Kernel.Core

main = do main <- initHTK [text "Sample", size (300 300)]
          f <- newFrame main []
          pack f []
          canv <- newCanvas [size (300, 300)]
          pack canv [Side AtTop, Fill Both]
          createLine canv [coord [(250, 250), (200, 200)], outlinewidth (mm 1), filling "green"]
Tags: ,