[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: simple line graphics



Thanks for the hint. It's not as hard as I thought it would be.
Here is a simple test I came up with after browsing the bitmap.self,
draw.self and screenBitmap.self files :

( | g. |
    g: heightLimitedScreenBitmap copy.
    g initialize.
    g fillRectangle: 1 @ 1 To: 400 @ 400 Color: colors white.
    g changeFont: 'screen.b.14'.
    g text: ( paragraph copyLines: ' triangle ' ) At: 50 @ 50.
    g xorLine: 10 @ 10 To: 5 @ 200.
    g xorLine: 5 @ 200 To: 300 @ 100.
    g xorLine: 300 @ 100 To: 10 @ 10.
    g release. )

Adding waveforms to my simulator should be a snap ( once it starts working again -
I'm "cleaning it up" and it caught some nasty bugs ).

Jecel - University of Sao Paulo - Brazil