_Putimage Question.

[Pete]

Nice! You needed another +1 to stay tied with Mark, anyway... Good luck getting it! Kidding, +1

So here is Mark's step solution, which I fiddled with a bit after I figured out Step to some degree...

Code: (Select All)

Width 80, 25: _Font 16

fw = _FontWidth: fh = _FontHeight

t = _NewImage(fw * 2, fh, 32)

_Dest t

' Draw a triangle.

a = 6: c = 0: w = a * 2: h = a

For i = 0 To 6

    Line (a, c)-(a + i * 2, c)

    a = a - 1

    c = c + 1

Next

tri& = _CopyImage(t, 33)

_Dest 0

_FreeImage t

col = 32: row = 5: BarLength = 8

Locate row, col + 2: Print "__________Row"; row

Locate row + 8, col + 2: Print "__________Row"; row + 8

Locate row + 1, col

For j = 1 To BarLength

    Locate , col: Print Chr$(219)

Next

sx1 = col * fw - fw - 2: sy1 = fh \ 2 - 2

sx2 = sx1 + c * 2 * fw: sy2 = sy1 + i * fh + 3

TopTriangle = row * fh - fh ' 1st num is row in Screen 0.

xfactor = fh * (i - 1) - TopTriangle

BottomTriangle = BarLength * fh

Do

    _Limit 30

    _PutImage (sx1, sy1 + TopTriangle)-Step(w, h), tri&, 0, (0, 0)-(w, h) '<<<<<<<<<<<<

    _PutImage (sx1, sy2 - xfactor + BottomTriangle)-Step(w, -h), tri&, 0, (0, 0)-(w, h) '<<

Loop

Pete