DDgui Programmers Reference Guide by Nicholas J. Kingsley - HTML preview

Here are some complete programs that use Ddgui for their interface systems :

 

Graphic To Data

 

// --------------------------------- //

// Project: GraphicToDATA

// Start: Friday, July 09, 2010

// IDE Version: 8.036

 

CONSTANT fileToLoadWidget$ = "fileToLoadWidget"

CONSTANT fileToLoad$  = "fileToLoad"

CONSTANT browseButton$  = "browse"

CONSTANT addButton$   = "add"

CONSTANT listOfFilesList$ = "filesList"

CONSTANT removeFileButton$ = "removeFile"

CONSTANT labelWidget$  = "labelWidget"

CONSTANT labelText$   = "labelText"

CONSTANT processButton$  = "process"

CONSTANT processResult$  = "processResult"

CONSTANT space$    = "    "

CONSTANT VERSION$   = "0.0.0.5"

 

LOCAL sW%,sH%,text$,label$

 

GETSCREENSIZE sW%,sH%

 

DDgui_pushdialog(0,0,sW%,sH%)

DDgui_set("","TEXT","Graphics To DATA ("+VERSION$+")")

DDgui_widget(fileToLoadWidget$,"File To Load :",0,0)

DDgui_text(fileToLoad$,"",sW%-100,0)

DDgui_button(browseButton$,"Browse",0,0)

DDgui_button(addButton$,"Add",0,0)

DDgui_list(listOfFilesList$,"",sW%-12,sH%-108)

DDgui_button(removeFileButton$,"Remove File",0,0)

DDgui_widget(labelWidget$,"Label Name :",0,0)

DDgui_text(labelText$,"graphic",sW%-280,0)

DDgui_button(processButton$,"Process",0,0)

DDgui_widget(processResult$,"",sW%-8,0)

 

WHILE TRUE

DDgui_show(FALSE)

 

IF DDgui_get(browseButton$,"CLICKED")

text$=DDgui_FileDialog$(TRUE,"*.*")

IF text$<>"" THEN addFile(listOfFilesList$,text$)

ELSEIF DDgui_get(addButton$,"CLICKED")

text$=DDgui_get$(fileToLoad$,"TEXT")

IF text$<>"" THEN addFile(listOfFilesList$,text$)

ELSEIF DDgui_get(processButton$,"CLICKED")

label$=DDgui_get$(labelText$,"TEXT")

IF label$=""

  DDgui_msg("Please supply a valid label name",FALSE)

ELSE

  processFiles(listOfFilesList$,label$)

ENDIF

ELSEIF DDgui_get(removeFileButton$,"CLICKED")

removeLine(listOfFilesList$)

ENDIF

 

SHOWSCREEN

WEND

 

FUNCTION addFile%:widget$,text$

IF DOESFILEEXIST(text$)

DDgui_set(widget$,"TEXT",DDgui_get$(widget$,"TEXT")+"|"+text$)

ELSE

DDgui_msg("The file doesn't exist",FALSE)

ENDIF

ENDFUNCTION

 

FUNCTION removeLine%:widget$

LOCAL index%,loop%,text$

LOCAL list$[]

 

index%=DDgui_get(widget$,"SELECT")

IF index%>=0

IF DDgui_msg("Are you sure that you want to delete this line ?",TRUE)

  DIM list$[0]

  IF SPLITSTR(DDgui_get$(widget$,"TEXT"),list$[],"|")>0

   text$=""

   FOR loop%=0 TO BOUNDS(list$[],0)-1

    IF loop%<>index%

     text$=text$+list$[loop%]+"|"

    ENDIF

   NEXT

   DDgui_set(widget$,"TEXT",LEFT$(text$,LEN(text$)-1))

  ELSE

   DDgui_msg("There is nothing to split for some reason!",FALSE)

  ENDIF

ENDIF

ELSE

DDgui_msg("There is nothing to select",FALSE)

ENDIF

ENDFUNCTION

 

FUNCTION processFiles%:widget$,label$

LOCAL files$[]

LOCAL data%[]

LOCAL fileLoop$,ext$,count%,found%,extLoop%

LOCAL handle%

LOCAL outputFile$

LOCAL maxDataPerLine%=32

LOCAL sW%,sH%,sprite%

LOCAL error$

 

handle%=-1

TRY

DIM files$[0]

IF SPLITSTR(DDgui_get$(widget$,"TEXT"),files$[],"|")>0

  // Get the output filename

  outputFile$=DDgui_FileDialog$(FALSE,"*.gbas")

  IF outputFile$="" THEN RETURN FALSE

  IF DOESFILEEXIST(outputFile$)

   IF DDgui_msg("The file already exists.  Do you want to overwrite it ?",TRUE)

    KILLFILE outputFile$

    IF DOESFILEEXIST(outputFile$)

     DDgui_msg("The file could not be deleted - it must be in use by a program",FALSE)

     RETURN FALSE

    ENDIF

   ELSE

    RETURN FALSE

   ENDIF

  ENDIF

 

   count%=1

  handle%=GENFILE()

  IF handle%>=0

   IF OPENFILE(handle%,outputFile$,0)

    FOREACH fileLoop$ IN files$[]

     // Validate the extension

     found%=FALSE

     FOR extLoop%=LEN(fileLoop$)-1 TO 0 STEP -1

      IF MID$(fileLoop$,extLoop%,1)="."

       ext$=UCASE$(MID$(fileLoop$,extLoop%+1))

       IF ext$="JPEG" OR ext$="JPG"

        DDgui_msg("JPEG files are not currently supported.  File will be skipped",FALSE)

       ELSEIF ext$="PNG" OR ext$="BMP"

        found%=TRUE

        BREAK

       ENDIF

      ENDIF

     NEXT

 

      IF found%=FALSE

      DDgui_msg("The file type is not valid - only PNG and BMP files are allowed.  File will be skipped",FALSE)

     ENDIF

 

      IF found%=TRUE

      IF DOESFILEEXIST(fileLoop$)

       sprite%=GENSPRITE()

       IF sprite%>=0

        DDgui_set(processResult$,"TEXT","Loading : "+fileLoop$); DDgui_show(FALSE); SHOWSCREEN

 

         LOADSPRITE fileLoop$,sprite%

        GETSPRITESIZE sprite%,sW%,sH%

        IF sW%>0 AND sH%>0

         DIM data%[0]

         IF SPRITE2MEM(data%[],sprite%)

          // Only write the GLBasic code once at the start

          processData(handle%,data%[],maxDataPerLine%,fileLoop$,count%,sW%,sH%,label$,processResult$)

 

           IF count%<BOUNDS(files$[],0)

           WRITELINE handle,"\n"

          ENDIF

 

           INC count%

          LOADSPRITE "",sprite%

         ELSE

          THROW "Unable to convert a sprite to data"

         ENDIF

        ELSE

         THROW "Sprite size is invalid"

        ENDIF

       ELSE

        THROW "Unable to get a sprite handle"

       ENDIF

      ELSE

       THROW "A file doesn't exist"

      ENDIF

     ENDIF

    NEXT

 

     CLOSEFILE handle%

    DDgui_set(processResult$,"TEXT","Finished"); DDgui_show(FALSE); SHOWSCREEN

   ELSE

    THROW "Unable to open "+outputFile$

   ENDIF

  ENDIF

ELSE

  THROW "There is nothing to process"

ENDIF

CATCH error$

IF handle%>=0 THEN CLOSEFILE handle%

DDgui_msg(error$,FALSE)

RETURN FALSE

FINALLY

 

RETURN TRUE

ENDFUNCTION

 

//! Perform RLE compression on data

FUNCTION processData%:handle%,data%[],maxDataPerLine%,fileName$,count%,sprWidth%,sprHeight%,label$,processResult$

LOCAL loop%,loop2%,found%

LOCAL v1%,v2%,countDup%,numPerLine%,written%

LOCAL text$

LOCAL graphicDataHexSize% = 8 // 4 bytes

LOCAL sizeDataHexSize%  = 4 // 2 bytes

 

text$=""

loop%=0

numPerLine%=0

written%=FALSE

WHILE loop%<BOUNDS(data%[],0)

v1%=data%[loop%]

countDup%=1

INC loop%

WHILE loop%<BOUNDS(data%[],0) AND countDup%<65535 AND data%[loop%]=v1%

  IF MOD(loop%,4096)=0

   DDgui_set(processResult$,"TEXT",loop%+"/"+countDup%); DDgui_show(FALSE); SHOWSCREEN

  ENDIF

 

   INC loop%

  INC countDup%

WEND

 

  IF countDup%>1

  text$=text$+"*"+decToHex$(countDup%,sizeDataHexSize%)

ENDIF

 

  text$=text$+decToHex$(v1%,graphicDataHexSize%)

 

  INC numPerLine%

IF numPerLine%>maxDataPerLine%

  IF written%=FALSE

   DDgui_set(processResult$,"TEXT","Writing decompression routine"); DDgui_show(FALSE); SHOWSCREEN

 

    IF count%=1

    writeGLBasicCode(handle)

   ENDIF

 

    DDgui_set(processResult$,"TEXT","Writing DATA start"); DDgui_show(FALSE); SHOWSCREEN

   WRITELINE handle%,"// This is the data for the file "+fileName$

   WRITELINE handle%,"STARTDATA "+label$+"_"+count%+":"

   WRITELINE handle%,space$+"DATA "+sprWidth%+","+sprHeight%

  ENDIF

 

   WRITELINE handle%,space$+"DATA "+CHR$(34)+text$+CHR$(34)

 

   written%=TRUE

  text$=""

  numPerLine%=0

ENDIF

WEND

 

// Is there anything left over ?

IF text$<>""

DDgui_set(processResult$,"TEXT","Writing left-over text"); DDgui_show(FALSE); SHOWSCREEN

WRITELINE handle%,space$+"DATA "+CHR$(34)+text$+CHR$(34)

written%=TRUE

ENDIF

 

IF written%=TRUE

DDgui_set(processResult$,"TEXT","Writing terminator"); DDgui_show(FALSE); SHOWSCREEN

WRITELINE handle%,space$+"DATA "+CHR$(34)+"--------"+CHR$(34)

WRITELINE handle%,"ENDDATA"

ENDIF

ENDFUNCTION

 

// This is the function that creates the function for reading in the data

FUNCTION writeGLBasicCode%:handle%

LOCAL text$

 

RESTORE readSpriteData

READ text$

WHILE text$<>"*"

text$=REPLACE$(text$,"'",CHR$(34))

text$=REPLACE$(text$,"@","\\")

DDgui_WaitCursor(TRUE)

WRITELINE handle%,text$

READ text$

WEND

ENDFUNCTION

 

 

FUNCTION decToHex$:value%,length%=4

IF length%<=0

RETURN "0"

ENDIF

 

INLINE

DGStr result;

unsigned long value2;

int temp,digit;

 

  value2=(unsigned long) value;

result=DGStr("");

 

  for (digit=length; digit>=1; digit--)

{

  temp=value2 % 16;

  if (temp<10)

  {

   result=CHR_Str(temp+48)+result;

  }

  else

  {

   result=CHR_Str((temp-10)+65)+result;

  }

 

   value2/=16;

}

 

  return result;

ENDINLINE

ENDFUNCTION

 

STARTDATA readSpriteData:

DATA "//! This function will create a sprite from lines of hexadecimal pixel data.  You MUST set RESTORE to the appropriate data statement first!"

DATA "//@param  sprite% - The sprite number which will be created.  If this is < 0 then a sprite handle will be automatically found if possible"

DATA "//@return >=0 if the function completed successfully.  The value returned is the sprite number used."

DATA "FUNCTION readSpriteData%:sprite%=-1"

DATA "LOCAL text$,error$,one$,loop%,index%"

DATA "LOCAL array%[]"

DATA "LOCAL textLen% = 32"

DATA "LOCAL hexSize% = 8"

DATA "LOCAL dupSize%  =   4"

DATA "LOCAL width%,height%"

DATA ""

DATA "    TRY"

DATA "        IF sprite%<0"

DATA "            sprite%=GENSPRITE()"

DATA "            IF sprite%<0 THEN THROW 'Unable to get a sprite handle'"

DATA "        ENDIF"

DATA ""

DATA "        READ width%,height%"

DATA "        IF width%<=0 OR height%<=0 THEN THROW 'Sprite width and/or height is invalid'"

DATA "        IF width%*height%<0 THEN THROW 'Sprite width and/or height is too large'"

DATA ""

DATA "        DIM array%[width%*height%]"

DATA "        index%=0"

DATA ""

DATA "        READ text$"

DATA "        WHILE text$<>'--------'"

DATA "         IF LEN(text$)<8 THEN THROW 'A line has an invalid number of characters'"

DATA ""

DATA "            loop%=0"

DATA "            WHILE loop%<LEN(text$)"

DATA "               IF MID$(text$,loop%,1)='*'"

DATA "                  LOCAL value%,amount%"

DATA ""

DATA "                  // Duplicate data"

DATA "                  amount%=hexToDec(MID$(text$,loop%+1,dupSize%))"

DATA "                  value%=hexToDec(MID$(text$,loop%+1+dupSize%,hexSize%))"

DATA "                  WHILE amount%>0"

DATA "                      array%[index%]=value%"

DATA "                      INC index%"

DATA "                      DEC amount%"

DATA "                  WEND"

DATA ""

DATA "                  INC loop%,hexSize%+dupSize%+1"

DATA "               ELSE"

DATA "                   array%[index%]=hexToDec(MID$(text$,loop%,hexSize%))"

DATA "                   INC loop%,hexSize%"

DATA "                   INC index%"

DATA "               ENDIF"

DATA "            WEND"

DATA "            READ text$"

DATA "            SLEEP 1"

DATA "        WEND"

DATA ""

DATA "        // All finished, so we now call the MEM2SPRITE function"

DATA "        IF MEM2SPRITE(array%[],sprite%,width%,height%)=FALSE THEN THROW 'Unable TO convert DATA TO a sprite'"

DATA "    CATCH error$"

DATA "        // Put in your own code to display errors here.  Uncomment to use DDGui"

DATA "        // DDgui_msg(error$,FALSE)"

DATA "        // You MUST keep the following command"

DATA "        RETURN -1"

DATA "    FINALLY"

DATA ""

DATA "    RETURN sprite%"

DATA "ENDFUNCTION"

DATA ""

DATA "//! Convert a hexadecimal number of an integer"

DATA "//param hex$ - Hexidecimal string"

DATA "//@return The decimal value of the passed string"

DATA "FUNCTION hexToDec%:hex$"

DATA "LOCAL i%"

DATA "LOCAL j%"

DATA "LOCAL loop%"

DATA ""

DATA "    i%=0"

DATA "    j%=0"

DATA "    FOR loop%=0 TO LEN(hex$)-1"

DATA "        i%=ASC(MID$(hex$,loop%,1))-48"

DATA "        IF 9<i% THEN DEC i%,7"

DATA "        j%=bOR(j%*16,bAND(i,15))"

DATA "    NEXT"

DATA ""

DATA "    RETURN j%"

DATA "ENDFUNCTION"

DATA ""

DATA "*"

ENDDATA

 

This program converts one or more sprites to compressed hexadecimal data, and looks like :