module Main where

import Graphics.Rendering.Diagrams

main = renderAs PNG "snellen.png" (Width 400) snellen

snellen = vcatA hcenter $ zipWith text sizes letters

sizes = [36,24,18,12,9,6,5,4,3]
letters = ["A","D F","H Z P","T X U D","Z A D N H","P N T U H X"
          ,"U A Z N F D T","N P H T A F X U","X D F H P T Z A N"
          ,"F A X T D N H U P Z"]