                            (Color 255 255 255 255)
                   ,DynData (x0 + 0.25,y0 - 2) (0.25,0.25) 108 (11,11)
                            (Color 255 255 255 255)
                   ,DynData (x0 - 0.25,y0 - 2.5) (0.25,0.25) 108 (10,12)
                            (Color 255 255 255 255)
                   ,DynData (x0 + 0.25,y0 - 2.5) (0.25,0.25) 108 (11,12)
                            (Color 255 255 255 255)]
        -- 0 values are a basic cast
        (x0,y0) = (realToFrac x, realToFrac y)
        -- prime values locate the outer box
        (x',y') = (2*x0 - w',-2*y0 - h')
        (w',h') = (0.5*realToFrac w, 0.5*realToFrac h)
        -- double prime is the location of the inner box
        (x'',y'') = (x' + 1.0, y' + 3.0)