; hgimg3 normal line sample
    ; 2023/11/27, use HSP 3.7 beta 7
    
    #packopt name   "13_normalline"  ; file name
    #packopt type   0   ; generate ".exe"
    
    #define KB_ESC      $00080
    
    screen 0, 512, 288, 0       ; initialize screen
    wdw_w = ginfo_winx          ; get window size
    wdw_h = ginfo_winy
    
*mainloop
    stick k, 0                      ; check keyboard
    if k & KB_ESC : goto *job_end   ; ESC key to exit
    
    redraw 0
    
    ; window all clear
    gmode 0
    color $40, $80, $c0
    boxf
    
    color 128, 128, 128
    boxf 0, 0, 16, 16
    
    repeat 8
        gmode 0
        color 255, 1, 1
        
        ; draw rectangle
        x = 0
        y = 0 + (2 * cnt)
        w = cnt
        line x + w, y, x, y
    loop
    
    redraw 1
    await 15
    goto *mainloop

*job_end
    end