made some tests green

This commit is contained in:
Araq
2014-08-13 01:30:42 +02:00
parent 62e454f41b
commit 4d8c127838
4 changed files with 6 additions and 32 deletions

View File

@@ -1,5 +1,3 @@
import
Cairo
converter FloatConversion64(x: int): float64 = return toFloat(x)
converter FloatConversion32(x: int): float32 = return toFloat(x)
@@ -7,34 +5,10 @@ converter FloatConversionPlain(x: int): float = return toFloat(x)
const width = 500
const height = 500
const outFile = "CairoTest.png"
var surface = Cairo.ImageSurfaceCreate(CAIRO.FORMAT_RGB24, width, height)
var ç = Cairo.Create(surface)
proc ImageSurfaceCreate(w, h: float) = discard
ç.SetSourceRGB(1, 1, 1)
ç.Paint()
ç.SetLineWidth(10)
ç.SetLineCap(CAIRO.LINE_CAP_ROUND)
const count = 12
var winc = width / count
var hinc = width / count
for i in 1 .. count-1:
var amount = i / count
ç.SetSourceRGB(0, 1 - amount, amount)
ç.MoveTo(i * winc, hinc)
ç.LineTo(width - i * winc, height - hinc)
ç.Stroke()
ç.SetSourceRGB(1 - amount, 0, amount)
ç.MoveTo(winc, i * hinc)
ç.LineTo(width - winc, height - i * hinc)
ç.Stroke()
echo(surface.WriteToPNG(outFile))
surface.Destroy()
ImageSurfaceCreate(width, height)
type TFoo = object

View File

@@ -1,5 +1,5 @@
discard """
errormsg: "'y' might not have been initialized"
msg: "Warning: 'y' might not have been initialized [Uninit]"
line:34
"""

View File

@@ -1,5 +1,5 @@
discard """
errormsg: "cannot prove that field 'x.s' is accessible"
msg: "Warning: cannot prove that field 'x.s' is accessible [ProveField]"
line:51
"""

View File

@@ -1,6 +1,6 @@
discard """
output: '''0.0000000000000000e+00
0.0000000000000000e+00
output: '''0.0
0.0
0
0
0