我正在尝试创建一个图形计算器并使其在“画布”上正确显示图形。当我加载 HTML 文件并写 x 例如它从左上角开始向下到右下角。所以问题是它显示图表是倒置的,它不包括负值。我知道画布从左上角的像素值 (0,0) 开始,到右下角的 (300,300) 结束。我希望它显示这个链接中的绿色画布之类的东西: http ://www.cse.chalmers.se/edu/course/TDA555/lab4.html
points :: Expr -> Double -> (Int,Int) -> [Point]
points exp scale (x, y) = [(x, realToPix (eval exp (pixToReal x))) | x<-[0..(fromIntegral canWidth)] ]
where
pixToReal :: Double -> Double --converts a pixel x-coordinate to a real x-coordinate
pixToReal x = x * 0.02
realToPix :: Double -> Double --converts a real y-coordinate to a pixel y-coordinate
realToPix y = y / 0.02