多角形の描画

GDIを利用した多角形描画。

#include "gdi32.as"
    cls 4

    CreatePen 0, 3, 0xffff00
    if stat {
        hPen = stat
    } else {
        end
    }

    CreateSolidBrush 0xff0000
    if stat {
        hBrush = stat
    } else {
        end
    }

    points = 50, 50, 150, 100, 100, 150
    SelectObject hDC, hPen
    SelectObject hDC, hBrush
    Polygon hDC, varptr(points), 3
    DeleteObject hPen
    DeleteObject hBrush
    redraw 1
    stop