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

This allows you to create vector-based graphics, and looks like :

 

To display the results (once saved), you could use the following routine (which ignores special nodes) :

 

The Line drawing routine was originally written by Gernot Frisch

 

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

// Project: TestVector

// Start: Friday, July 23, 2010

// IDE Version: 8.036

TYPE tCoord

x

y

ENDTYPE

 

TYPE tGroup

pos[] AS tCoord

ENDTYPE

 

TYPE tObject

author$

objectName$

handleX%;handleY%

groups[] AS tGroup

ENDTYPE

 

TYPE TVector

vectorObject AS tObject

 

SECTION_OBJECT$ = "OBJECT"

KEY_AUTHOR$  = "AUTHOR"

KEY_NAME$  = "NAME"

KEY_HANDLE$  = "HANDLE"

KEY_INUSE$  = "INUSE"

KEY_DATA$  = "DATA"

 

FUNCTION TVector_Initialise%:

DIM self.vectorObject.groups[0]

ENDFUNCTION

 

FUNCTION TVector_Load%:fileName$

LOCAL vector AS tCoord

LOCAL group AS tGroup

LOCAL temp$,loop%,error$

LOCAL array$[],dataArray$[]

 

  IF DOESFILEEXIST(fileName$)

  TRY

   INIOPEN fileName$

 

    self.vectorObject.author$=INIGET$(self.SECTION_OBJECT$,self.KEY_AUTHOR$,"")

   self.vectorObject.objectName$=INIGET$(self.SECTION_OBJECT$,self.KEY_NAME$,"")

 

    DIM array$[0]

   DIM self.vectorObject.groups[0]

 

    // Get the handle positions - for information only

   IF SPLITSTR(INIGET$(self.SECTION_OBJECT$,self.KEY_HANDLE$,"0,0"),array$[],",")=2

    self.vectorObject.handleX%=INTEGER(array$[0])

    self.vectorObject.handleY%=INTEGER(array$[1])

   ELSE

    // Ignore anything else and carry on

   ENDIF

 

    // Now we get a list of data sections that are in use

   DIM array$[0]

   IF SPLITSTR(INIGET$(self.SECTION_OBJECT$,self.KEY_INUSE$,""),array$[],",")>0

    FOREACH temp$ IN array$[]

     DIM dataArray$[0]

     DIM group.pos[0]

     IF SPLITSTR(INIGET$(self.SECTION_OBJECT$,self.KEY_DATA$+temp$,""),dataArray$[],",")>0

      FOR loop%=0 TO BOUNDS(dataArray$[],0)-2 STEP 2

       vector.x=INTEGER(dataArray$[loop%])*1.0

       vector.y=INTEGER(dataArray$[loop%+1])*1.0

       DIMPUSH group.pos[],vector

      NEXT

 

       // Push group into array

      DIMPUSH self.vectorObject.groups[],group

     ELSE

      THROW "No data in key : "+self.KEY_DATA$+temp$

     ENDIF

    NEXT

   ELSE

    THROW "No data to be found!"

   ENDIF

 

    INIOPEN ""

   RETURN TRUE

  CATCH error$

   DEBUG error$+"\n"

   STDERR error$+"\n"

   INIOPEN ""

   RETURN FALSE

  FINALLY

ELSE

  RETURN FALSE

ENDIF

ENDFUNCTION

 

FUNCTION TVector_Display%:x,y,angle,scale,colour%,alpha,usePolyVector%=FALSE,useSprite%=-1

LOCAL group AS tGroup

LOCAL coords%,size%,loop%

LOCAL n%,cv,sv

 

  cv=COS(angle)

sv=SIN(angle)

 

  ALPHAMODE alpha

FOREACH group IN self.vectorObject.groups[]

  size%=BOUNDS(group.pos[],0)

  FOR loop%=0 TO size%-1

   n%=self.TVector_GetNextIndex(loop%,size%)

   IF usePolyVector%=TRUE

    self.Line(x+((cv*group.pos[loop%].x*scale)-(sv*group.pos[loop%].y*scale)),y+((cv*group.pos[loop%].y*scale)+(sv*group.pos[loop%].x*scale)), _

      x+((cv*group.pos[n%].x*scale)-(sv*group.pos[n%].y*scale)),y+((cv*group.pos[n%].y*scale)+(sv*group.pos[n%].x*scale)),colour%)

   ELSE

    DRAWLINE x+((cv*group.pos[loop%].x*scale)-(sv*group.pos[loop%].y*scale)),y+((cv*group.pos[loop%].y*scale)+(sv*group.pos[loop%].x*scale)), _

        x+((cv*group.pos[n%].x*scale)-(sv*group.pos[n%].y*scale)),y+((cv*group.pos[n%].y*scale)+(sv*group.pos[n%].x*scale)),colour%

   ENDIF

  NEXT

NEXT

ENDFUNCTION

 

FUNCTION TVector_GetNextIndex%:current%,size%

INC current%

IF current%>=size% THEN current%=0

RETURN current

ENDFUNCTION

 

FUNCTION Line: x1, y1, x2, y2, col

LOCAL c,s,p, w, dx, dy, ddx, ddy, ux, uy, lg

 

  //line width

w = 16

 

  // direction of line

ddx = x2-x1

ddy = y2-y1

lg = SQR(ddx*ddx+ddy*ddy)

IF lg<0.5 THEN RETURN

 

  // short caps

lg=lg*2

// dir vector

dx=ddx*w/lg

dy=ddy*w/lg

// up vector

ux=dy

uy=-dx

 

  // cap1

STARTPOLY 0

  POLYVECTOR x1+ux-dx, y1+uy-dy,  0.5, 0.5,col

  POLYVECTOR x1-ux-dx, y1-uy-dy,  0.5,63.5,col

  POLYVECTOR x1-ux,    y1-uy,    31.5,63.5,col

  POLYVECTOR x1+ux,    y1+uy,    31.5, 0.5,col

ENDPOLY

 

  // center

STARTPOLY 0

  POLYVECTOR x1+ux, y1+uy, 31.5,  0.5,col

  POLYVECTOR x1-ux, y1-uy, 31.5, 63.5,col

  POLYVECTOR x2-ux, y2-uy, 31.5, 63.5,col

  POLYVECTOR x2+ux, y2+uy, 31.5,  0.5,col

ENDPOLY

 

  // cap2

STARTPOLY 0

  POLYVECTOR x2+ux,    y2+uy,    31.5,  0.5,col

  POLYVECTOR x2-ux,    y2-uy,    31.5, 63.5,col

  POLYVECTOR x2-ux+dx, y2-uy+dy, 63.5, 63.5,col

  POLYVECTOR x2+ux+dx, y2+uy+dy, 63.5,  0.5,col

ENDPOLY

ENDFUNCTION

ENDTYPE

 

An example would be :