VDU 22,8
      VDU 23,23,1|
      OFF:VDU 5:COLOUR 0:CLG
      PROC_image(100,500)
      WAIT 0:END
      DEF PROC_image(h,v)
      LOCAL DATA
      u=0:r=0:g=0:b=0:a=0:c=0:t=0
      ost$=""
      READ x,y:REPEAT
        READ nst$,t
        IF nst$="0" THEN r=0:g=0:b=0 :REM 'black              0   0   0
        IF nst$="1" THEN r=192:g=128:b=64:REM  ' brown      192 128  64
        IF nst$="2" THEN r=64:g=64:b=192 :REM'dark blue     64  64 192
        IF nst$="3" THEN r=128:g=128:b=128:REM' dark grey 128 128 128
        IF nst$="4" THEN r=128:g=0:b=0:REM'dark red       128   0   0
        IF nst$="5" THEN r=224:g=192:b=0 :REM'dark yellow  224   192   0
        IF nst$="6" THEN r=128:g=160:b=192:REM'flat blue  128 160 192
        IF nst$="7" THEN r=32:g=192:b=64 :REM'green        32 192  64
        IF nst$="8" THEN r=166:g=202:b=240:REM'light blue 166 202 240
        IF nst$="9" THEN r=192:g=192:b=192:REM 'light gray 192 192 192
        IF nst$="a" THEN r=192:g=224:b=0:REM  'light green  192 224   0
        IF nst$="b" THEN r=224:g=32:b=64:REM'light red    224  32  64
        IF nst$="c" THEN r=0:g=160:b=192 :REM'medblue        0 160 192
        IF nst$="d" THEN r=224:g=128:b=64 :REM 'orange       224 128 64
        IF nst$="e" THEN r=224:g=160:b=192:REM'pink       224 160 192
        IF nst$="f" THEN r=160:g=64:b=192:REM'purple      160 64 192
        IF nst$="g" THEN r=192:g=220:b=192:REM'tan        192 220 192
        IF nst$="h" THEN r=255:g=255:b=255:REM'white      255 255 255
        IF nst$="i" THEN r=255:g=255:b=0:REM'yellow       255 255 0
        COLOUR 0,r,g,b:GCOL 0
        FOR u=0 TO t
          a=a+1: MOVE h+c,v-a:DRAW h+c,v-a:IF a>x  THEN c=c+1:a=0
        NEXT u
      UNTIL nst$="100000"
      MOVE 0,0
      DATA 161,161
      DATA 0,9471,3,1,0,159,3,1,0,157,h,3,0,157,h,3,0,155,h,7,0,153,h,7,0,151,h,11,0,149,h,11,0,147,h,13,3,1,0,145,h
      DATA 13,3,1,0,143,h,15,0,145,h,15,0,145,g,1,h,15,0,143,g,1,h,15,0,143,h,17,0,143,h,17,0,141,h,21,0,139,h,21,0,139
      DATA h,21,0,139,h,21,0,137,h,25,0,135,h,25,0,135,h,27,0,133,h,27,0,133,h,27,3,1,0,131,h,27,3,1,0,129,3,1,h,29,0
      DATA 129,3,1,h,29,0,129,g,1,h,29,0,129,g,1,h,29,0,129,h,31,0,129,h,31,0,129,h,31,0,129,h,31,0,129,h,13,9,1,0,1
      DATA h,11,0,131,h,13,9,1,0,1,h,11,0,131,h,11,0,5,9,1,h,7,0,133,h,11,0,5,9,1,h,7,0,133,h,9,3,1,0,7,h
      DATA 5,0,135,h,9,3,1,0,7,h,5,0,139,h,7,0,5,g,1,h,3,0,141,h,7,0,5,g,1,h,3,0,145,g,1,h,7,g,1,0,149
      DATA g,1,h,7,g,1,100000,0
      ENDPROC
 

      REM The 3rd and 4th components of the VDU 23,22 statement must be the same as bmi.Header.Width% and bmi.Header.Height%

      VDU 23,22,1024;640;16,16,16,0

      DIM BITMAPINFOHEADER{Size%, Width%, Height%, Planes{l&,h&}, BitCount{l&,h&}, Compression%, SizeImage%, XPelsPerMeter%, YPelsPerMeter%, ClrUsed%, ClrImportant%}
      DIM bmi{Header{} = BITMAPINFOHEADER{}}

      bmi.Header.Size% = DIM(BITMAPINFOHEADER{})
      bmi.Header.Width% = 1024
      bmi.Header.Height% = 640
      bmi.Header.Planes.l& = 1
      bmi.Header.BitCount.l& = 32

      SYS "CreateDIBSection", @memhdc%, bmi{}, 0, ^bits%, 0, 0 TO hbitmap%
      IF hbitmap%=0 ERROR 100, "Couldn't create DIBSection"

      SYS "SelectObject", @memhdc%, hbitmap% TO oldhbm%
      SYS "DeleteObject", oldhbm%
      SYS "InvalidateRect", @hwnd%, 0, 0

      REM The code to this point sets the screen size in pixels and creates bitmap to the same size

      REM To access the bitmap you need to use bit% :-

      REM Each pixel is four bytes

      REM You can access one at a time with  "bits%?(X,Y)=8_bit_number"

      REM Or all four bytes at the same time "bits%!(X,Y)=&aaRRGGBB

      REM when setting X and Y remember they are pixel coordinates not graphics coordinates

      X=100
      Y=100

      bits%?( ( X + ( Y * bmi.Header.Width% ) ) * 4 ) = 255 : REM Will put a blue dot at 100,100

      X=110
      bits%!( ( X + ( Y * bmi.Header.Width% ) ) * 4 ) =&FF0000
      X=115
      bits%!( ( X + ( Y * bmi.Header.Width% ) ) * 4 ) = &00FF00FF : REM Will put a magenta dot at 110,100
      FOR loop = 300 TO 500
  
        bits%!( ( loop + ( loop * bmi.Header.Width% ) ) * 4 ) = &400040 :REM DARK PURPLE
        bits%!( ( loop +8+ ( loop * bmi.Header.Width% ) ) * 4 ) = &FF0000  :REM RED
        bits%!( ( loop +15+ ( loop * bmi.Header.Width% ) ) * 4 ) = &F36E2D7 :REM CYAN
        bits%!( ( loop +16+ ( loop * bmi.Header.Width% ) ) * 4 ) = &F36E2D7 :REM CYAN
        bits%!( ( loop +25+ ( loop * bmi.Header.Width% ) ) * 4 ) = &0011E6380C :REM orange
        bits%!( ( loop +35+ ( loop * bmi.Header.Width% ) ) * 4 ) = &00BEFA717 :REM yellow
        bits%!( ( loop +45+ ( loop * bmi.Header.Width% ) ) * 4 ) = &00F360BFF :REM blue
        bits%!( ( loop +55+ ( loop * bmi.Header.Width% ) ) * 4 ) = &00F36E23C :REM green
        bits%!( ( loop +65+ ( loop * bmi.Header.Width% ) ) * 4 ) = &005F9C57C :REM TAN
        bits%!( ( loop +80+ ( loop * bmi.Header.Width% ) ) * 4 ) = &65497 :REM light blue
        bits%!( ( loop +90+ ( loop * bmi.Header.Width% ) ) * 4 ) = &654951 :REM Greyish purple?
        bits%!( ( loop +91+ ( loop * bmi.Header.Width% ) ) * 4 ) = &654951 :REM greyish purple?
        bits%!( ( loop +92+ ( loop * bmi.Header.Width% ) ) * 4 ) = &654951 :REM greyish purple?
        bits%!( ( loop +93+ ( loop * bmi.Header.Width% ) ) * 4 ) = &654951 :REM greyish purple?
        bits%!( ( loop +99+ ( loop * bmi.Header.Width% ) ) * 4 ) = &6549 :REM grass green
        bits%!( ( loop +109+ ( loop * bmi.Header.Width% ) ) * 4 ) = &65 :REM ? dark blue
        bits%!( ( loop +129+ ( loop * bmi.Header.Width% ) ) * 4 ) = &12632256:REM purple
        bits%!( ( loop +149+ ( loop * bmi.Header.Width% ) ) * 4 ) = &167777215 :REM Dark yellow
        bits%!( ( loop +159+ ( loop * bmi.Header.Width% ) ) * 4 ) = &167777:REM dark cyan
        bits%!( ( loop +169+ ( loop * bmi.Header.Width% ) ) * 4 ) = &167772111:REM dark red
        bits%!( ( loop +179+ ( loop * bmi.Header.Width% ) ) * 4 ) = &FFFFFF: REM BRIGHT WHITE BMPtoCODE
        bits%!( ( loop +189+ ( loop * bmi.Header.Width% ) ) * 4 ) = &C0CFD0: REM GRAY?  BMPtoCODE
        bits%!( ( loop +199+ ( loop * bmi.Header.Width% ) ) * 4 ) = &C0C0C0: REM Light GRAY  BMPtoCODE
        bits%!( ( loop +209+ ( loop * bmi.Header.Width% ) ) * 4 ) = &A0013BF: REM RED BMPtocode? NOPE!! its blue
      NEXT


      bits%!( ( X + ( Y * bmi.Header.Width% ) ) * 4 ) = &400040 :REM DARK PURPLE

      REM The reason for the "* bmi.Header.Width%" is to move the "Y" position up the screen by the correct displacement
      REM and the "*4" is because each position on the bit map is four pixels

      REM A simple line

      REM After you have finished accessing the bit map a "*REFRESH" is needed to update the screen

      *REFRESH
 

      REM "Vector balls 4"
      REM Original GfxLib-based version created 16-Jan-2012
      REM Modified for GLib on 01-Dec-2016
      REM Uses 'PlotRotateScaleRTR' to draw the ball objects

      *ESC OFF
      *FLOAT 64
      PROCurldownload( "http://www.proggies.uk/glib/GLIB.bbc", @tmp$+"glib_bbc.BBC" )
      INSTALL @tmp$ + "glib_bbc"
      PROCglib_FixWindowSize : MODE 8 : OFF
      PROCglib_Init(g{}, glib{})
      ON CLOSE PROCglib_Cleanup : QUIT
      ON ERROR PROCglib_Cleanup : OSCLI "REFRESH ON" : ON : REPORT : PRINT " at line "; ERL : END
      INSTALL @lib$+"SORTLIB" : sort% = FN_sortinit(1,0)
      DIM g2{} = g{}

      ballTypes% = 6 : DIM bmAddrTbl%( ballTypes%-1 )

      REM bmAddrTbl%(0) = FNglib_LoadImg( @dir$+"blueball_128x128x24.BMP", -1 )
      bmAddrTbl%(0) = FNLoadImgFromNet( "http://www.proggies.uk/temp/", "blueball_128x128x24.bmp" )

      g2.w% = 128
      g2.h% = 128
      FOR I% = 1 TO ballTypes%-1
        bmAddrTbl%(I%) = FNglib_CopyBitmap( glib{}, bmAddrTbl%(0), 128, 128, -1 )
        g2.a% = bmAddrTbl%(I%)
        SYS glib.PlotShuffleRGB%, g2{}, bmAddrTbl%(I%), 128, 128, 0, 0, I%
      NEXT I%

      _PREMULTIPLY = &1
      _INVERT = &8
      _3MRPASS = 3<<4
      _2MBBPASS = 2<<6
      ctrl% = _PREMULTIPLY + _INVERT + _3MRPASS + _2MBBPASS
      FOR I% = 0 TO ballTypes%-1
        PROCglib_CreateAlphaMask( g{}, glib{}, bmAddrTbl%(I%), 128, 128, 0, ctrl% )
      NEXT I%

      N% = 50
      DIM bmAddr%( N%-1 ), bmAddr2%( N%-1 )
      DIM x%(N%-1), y%(N%-1), z%(N%-1)
      DIM x2%(N%-1), y2%(N%-1), z2%(N%-1)

      minDist% = 100

      R% = RND(-12345)

      FOR I%=0 TO N%-1
        REPEAT
          valid% = TRUE
          x%=-400+RND(2*400 - 1)
          y%=-400+RND(2*400 - 1)
          z%=-400+RND(2*400 - 1)
          IF I%=0 THEN
            x%(0) = x%
            y%(0) = y%
            z%(0) = z%
          ELSE
            FOR J%=0 TO I%
              d% = SQR( (x%-x%(J%))^2 + (y%-y%(J%))^2 + (z%-z%(J%))^2 )
              IF d% < minDist% THEN
                valid% = FALSE
                J% = I%
              ENDIF
            NEXT J%
          ENDIF
        UNTIL valid%
        x%(I%) = x%
        y%(I%) = y%
        z%(I%) = z%
        bmAddr%(I%) = bmAddrTbl%( RND(ballTypes%)-1 )
      NEXT I%

      a#=0
      b#=0
      c#=0

      *REFRESH OFF

      REPEAT
        T% = TIME
        bgCol% = &10000*INT(255*ABSSINRAD(T%/4.5)) + \
        \ &100*INT(255*ABSSINRAD(T%/6.7)) + \
        \ INT(255*ABSCOSRAD(T%/6.83))
        SYS glib.Clr%, g{}, bgCol%
  
        cosa# = COSa#
        cosb# = COSb#
        cosc# = COSc#
        sina# = SINa#
        sinb# = SINb#
        sinc# = SINc#
        FOR I%=0 TO N%-1
          x# = x%(I%)
          y# = y%(I%)
          z# = z%(I%)
          x1# = x#*cosa# - y#*sina#
          y1# = x#*sina# + y#*cosa#
          z1# = z#
          y2# = y1#*cosb# - z1#*sinb#
          z2# = y1#*sinb# + z1#*cosb#
          x2# = x1#
          z3# = z2#*cosc# - x2#*sinc#
          x3# = z2#*sinc# + x2#*cosc#
          y3# = y2#
          x2%(I%) = x3#
          y2%(I%) = y3#
          z2%(I%) = z3#
        NEXT I%
  
        bmAddr2%() = bmAddr%()
        C%=N% : CALL sort%, z2%(0), x2%(0), y2%(0), bmAddr2%(0)
  
        FOR I%=0 TO N%-1
          d# = 1/(&3E8+z2%(I%))
          x = &140 + &2A8 * x2%(I%) * d#
          y = &100 + &2A8 * y2%(I%) * d#
          scale% = &10000*300/(z2%(I%)+650)
          SYS glib.PlotRotateScaleRTR%, g{}, bmAddr2%(I%), 128, 128, 16*x, 16*y, 0, scale%
        NEXT
  
        a# += 0.019151
        b# += 0.016316
        c# += 0.012194
        IF a# > 2*PI THEN a# -= 2*PI
        IF b# > 2*PI THEN b# -= 2*PI
        IF c# > 2*PI THEN c# -= 2*PI
  
        PROCglib_Display
  
      UNTIL FALSE

      DEFFNLoadImgFromNet(url$,file$):LOCALA%,F%:F%=OPENIN(@tmp$+file$)
      IF F%=0 PROCurldownload(url$+file$,@tmp$+file$)
      CLOSE#F%
      A%=FNglib_LoadImg(@tmp$+file$,0)
      =A%

      DEFPROCurldownload(url$,file$)
      LOCALurlmon%,res%
      SYS"LoadLibrary","urlmon.dll"TOurlmon%
      SYS"GetProcAddress",urlmon%,"URLDownloadToFileA"TO`URLDownloadToFile`
      SYS`URLDownloadToFile`,0,url$,file$,0,0TOres%
      SYS"FreeLibrary",urlmon%
      IFres%ERROR100,"Couldn't download "+url$
      ENDPROC