' test card for Picomite VGA and HDMI
 ' TassyJim September 2024
 
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 DIM INTEGER wd, ht, wbox, sh, x, w, n, nn, m, mp, cd, maxMode, keepMode, widesc, mk
 DIM FLOAT a, defaultMode
 DIM k$, imgtitle$, fname$, imgRes$, pages$
 DIM INTEGER c(8)
 c(0) = RGB(BLACK)
 c(1) = RGB(YELLOW)
 c(2) = RGB(CYAN)
 c(3) = RGB(GREEN)
 c(4) = RGB(MAGENTA)
 c(5) = RGB(RED)
 c(6) = RGB(BLUE)
 c(7) = RGB(WHITE)
 c(8) = RGB(64,64,64)
 IF INSTR(MM.DEVICE$,"HDMI") THEN
 maxMode = 5
 ELSE
 maxmode = 3
 ENDIF
 IF MM.VRES/MM.HRES = 0.75 THEN
     widesc = 0
     ELSE
     widesc = 1
     ENDIF
 a = 1
 defaultMode = 3
 CLS
 
 DO
   IF m = 0 THEN
     MODE 1
     CLS
     TEXT 320,100, "Video mode test",cm,5,1
     TEXT 320,180, "Ratio = aspect ratio used in the circle command",cm,1,1
     TEXT 320,220, "Q to quit, P to save page as a BMP",cm,3,1
     TEXT 320,260, "Up Down arrow to change resolution",cm,2,1
     TEXT 320,300, "+ - to change circle aspect ratio",cm,2,1
     
   ELSE
     
     IF keepmode THEN  ' only change resolution if needed
       keepmode = 0
     ELSE
       CLS             ' erase video memory before mode change
       ON ERROR SKIP
       MODE m
       CLS
     ENDIF
     
     wd = MM.HRES : ht = MM.VRES
     nn = INT(wd/80)
     imgtitle$ =" MODE "+STR$(M)+" Ratio "+STR$(a,1,3)+" "
     imgRes$ = " "+STR$(MM.HRES)+" x "+STR$(MM.VRES)+" "
     pages$ = " "'Maximum page number = "+STR$(mp)+" "
     wbox = wd / 8
     
     ' primary colours
     FOR x = 0 TO 7
       BOX x*wbox,ht/4,wbox,ht/2,0,c(x), c(x)
     NEXT x
     ' full gradient for each primary colour and greyscale
     FOR x = 0 TO wd-1
       sh = 255*x/wd
       
       LINE x,0,x,ht/12,1,RGB(sh,0,0)
       LINE x,ht/12,x,ht/6,1,RGB(0,sh,0)
       LINE x,ht/6,x,ht/4,1,RGB(0,0,sh)
       
       LINE x,ht*9/12,x,ht*10/12,1,RGB(0,sh,sh)
       LINE x,ht*10/12,x,ht*11/12,1,RGB(sh,0,sh)
       LINE x,ht*11/12,x,ht,1,RGB(sh,sh,0)
       
       LINE x,ht/2,x,ht*3/4,1,RGB(sh,sh,sh) ' greyscale
     NEXT x
     ' circle to check aspect ratio
     CIRCLE wd/2,ht/2, ht*15/32,3,a,c(7)
     sh = 0
     x = wd/2 - 55*nn/2
     ' black white bars to check monitor bandwidth
     FOR w = 10 TO 1 STEP -1
       FOR n = 1 TO nn
         sh = 255 - sh
         LINE x,ht*3/8,x,ht*5/8,w,RGB(sh,sh,sh)
         x = x + w
       NEXT n
     NEXT w
     ' white and red border to check that image fits on monitor
     BOX 0,0,wd,ht,3,c(7)
     BOX 1,1,wd-2,ht-2,1,c(5)
     ' title
     IF wd > 600 THEN
       TEXT wd/2,ht/2-15, imgtitle$,cm,4,1
       TEXT wd/2,ht/2, pages$,cm,4,1
       TEXT wd/2,ht/2+15, imgRes$,cm,4,1
     ELSE
       TEXT wd/2,ht/2-11, imgtitle$,cm,1,1
       TEXT wd/2,ht/2, pages$,cm,1,1
       TEXT wd/2,ht/2+11, imgRes$,cm,1,1
     ENDIF
     
   ENDIF
   PAUSE 100
   ' wait for keypress
   DO
     k$ = INKEY$
   LOOP UNTIL k$<>""
   '
   SELECT CASE k$
     CASE "Q","q"
       EXIT DO
     CASE "P","p"
       fname$ = MID$(imgtitle$,2)+".bmp"
       TIMER = 0
       SAVE IMAGE fname$
      ' PAGE WRITE 0
       TEXT wd/2,ht/2,"Saved as "+fname$+" in "+STR$(TIMER/1000,3,2)+" Sec" ,cm,1,1
       DO
         k$ = INKEY$
       LOOP UNTIL k$<>""
     CASE CHR$(128) ' up arrow
       m = m - 1
       IF m < 1 THEN m = maxMode
       IF m = 4 AND widesc THEN m = 3
     CASE CHR$(129) ' down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
       IF m = 4 AND widesc THEN m = 5
     CASE "+" ' ratio plus
       IF a < 1.4 THEN a = a + 0.01
       keepmode = 1
     CASE "-" ' ratio minus
       IF a > 0.75 THEN a = a - 0.01
       keepmode = 1
     CASE ELSE ' same as down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
   END SELECT
 LOOP
 MODE defaultMode ' restore original mode before ending program
 CLS
 
END

 ' test card for Picomite VGA and HDMI
 ' TassyJim September 2024
 
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 DIM INTEGER wd, ht, wbox, sh, x, w, n, nn, m, mp, cd, maxMode, keepMode, widesc, mk
 DIM FLOAT a, defaultMode
 DIM k$, imgtitle$, fname$, imgRes$, pages$
 DIM INTEGER c(8)
 c(0) = RGB(BLACK)
 c(1) = RGB(YELLOW)
 c(2) = RGB(CYAN)
 c(3) = RGB(GREEN)
 c(4) = RGB(MAGENTA)
 c(5) = RGB(RED)
 c(6) = RGB(BLUE)
 c(7) = RGB(WHITE)
 c(8) = RGB(64,64,64)
 IF INSTR(MM.DEVICE$,"HDMI") THEN
 maxMode = 5
 ELSE
 maxmode = 3
 ENDIF
 IF MM.VRES MOD 240 = 0 AND MM.VRES <> 720 THEN
     widesc = 0
     ELSE
     widesc = 1
     ENDIF
 a = 1
 defaultMode = 3
 CLS
 
 DO
   IF m = 0 THEN
     MODE 1
     CLS
     TEXT 320,100, "Video mode test",cm,5,1
     TEXT 320,180, "Ratio = aspect ratio used in the circle command",cm,1,1
     TEXT 320,220, "Q to quit, P to save page as a BMP",cm,3,1
     TEXT 320,260, "Up Down arrow to change resolution",cm,2,1
     TEXT 320,300, "+ - to change circle aspect ratio",cm,2,1
     
   ELSE
     
     IF keepmode THEN  ' only change resolution if needed
       keepmode = 0
     ELSE
       CLS             ' erase video memory before mode change
       ON ERROR SKIP
       MODE m
       CLS
     ENDIF
     
     wd = MM.HRES : ht = MM.VRES
     nn = INT(wd/80)
     imgtitle$ =" MODE "+STR$(M)+" Ratio "+STR$(a,1,3)+" "
     imgRes$ = " "+STR$(MM.HRES)+" x "+STR$(MM.VRES)+" "
     pages$ = " "'Maximum page number = "+STR$(mp)+" "
     wbox = wd / 8
     
     ' primary colours
     FOR x = 0 TO 7
       BOX x*wbox,ht/4,wbox,ht/2,0,c(x), c(x)
     NEXT x
     ' full gradient for each primary colour and greyscale
     FOR x = 0 TO wd-1
       sh = 255*x/wd
       
       LINE x,0,x,ht/12,1,RGB(sh,0,0)
       LINE x,ht/12,x,ht/6,1,RGB(0,sh,0)
       LINE x,ht/6,x,ht/4,1,RGB(0,0,sh)
       
       LINE x,ht*9/12,x,ht*10/12,1,RGB(0,sh,sh)
       LINE x,ht*10/12,x,ht*11/12,1,RGB(sh,0,sh)
       LINE x,ht*11/12,x,ht,1,RGB(sh,sh,0)
       
       LINE x,ht/2,x,ht*3/4,1,RGB(sh,sh,sh) ' greyscale
     NEXT x
     ' circle to check aspect ratio
     CIRCLE wd/2,ht/2, ht*15/32,3,a,c(7)
     sh = 0
     x = wd/2 - 55*nn/2
     ' black white bars to check monitor bandwidth
     FOR w = 10 TO 1 STEP -1
       FOR n = 1 TO nn
         sh = 255 - sh
         LINE x,ht*3/8,x,ht*5/8,w,RGB(sh,sh,sh)
         x = x + w
       NEXT n
     NEXT w
     ' horisontal lines to check for raster stability
     x = wd/2 - 50*nn/2
     sh = ht*5/8-5
     BOX x,sh,50*nn,5*nn+4,1,RGB(BLACK),RGB(BLACK)
     sh = sh + 2
     FOR n = x TO wd/2 + 50*nn/2 - 10 STEP 10
     LINE n,sh,n+9,sh,1,RGB(WHITE)
     sh = sh + 1
     NEXT n
     
     ' white and red border to check that image fits on monitor
     BOX 0,0,wd,ht,3,c(7)
     BOX 1,1,wd-2,ht-2,1,c(5)
     ' title
     IF wd > 600 THEN
       TEXT wd/2,ht/2-15, imgtitle$,cm,4,1
       TEXT wd/2,ht/2, pages$,cm,4,1
       TEXT wd/2,ht/2+15, imgRes$,cm,4,1
     ELSE
       TEXT wd/2,ht/2-11, imgtitle$,cm,1,1
       TEXT wd/2,ht/2, pages$,cm,1,1
       TEXT wd/2,ht/2+11, imgRes$,cm,1,1
     ENDIF
     
   ENDIF
   PAUSE 100
   ' wait for keypress
   DO
     k$ = INKEY$
   LOOP UNTIL k$<>""
   '
   SELECT CASE k$
     CASE "Q","q"
       EXIT DO
     CASE "P","p"
       fname$ = MID$(imgtitle$,2)+".bmp"
       TIMER = 0
       SAVE IMAGE fname$
      ' PAGE WRITE 0
       TEXT wd/2,ht/2,"Saved as "+fname$+" in "+STR$(TIMER/1000,3,2)+" Sec" ,cm,1,1
       DO
         k$ = INKEY$
       LOOP UNTIL k$<>""
     CASE CHR$(128) ' up arrow
       m = m - 1
       IF m < 1 THEN m = maxMode
       IF m = 4 AND widesc THEN m = 3
     CASE CHR$(129) ' down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
       IF m = 4 AND widesc THEN m = 5
     CASE "+" ' ratio plus
       IF a < 1.4 THEN a = a + 0.01
       keepmode = 1
     CASE "-" ' ratio minus
       IF a > 0.75 THEN a = a - 0.01
       keepmode = 1
     CASE ELSE ' same as down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
       IF m = 4 AND widesc THEN m = 5
   END SELECT
 LOOP
 MODE defaultMode ' restore original mode before ending program
 CLS
 
END