made some tests green

This commit is contained in:
Araq 2014-08-13 01:30:42 +02:00
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