diff options
| -rw-r--r-- | vectorgfx.mod/vectorgfx.bmx | 59 |
1 files changed, 55 insertions, 4 deletions
diff --git a/vectorgfx.mod/vectorgfx.bmx b/vectorgfx.mod/vectorgfx.bmx index f504141..a79b79c 100644 --- a/vectorgfx.mod/vectorgfx.bmx +++ b/vectorgfx.mod/vectorgfx.bmx @@ -22,6 +22,11 @@ Rem bbdoc: Defines a method for drawing vector lines EndRem Type TVectorGfxLineStyle Abstract + Rem + bbdoc: Draws a vector line. + returns: The or'ed mask of all collision IDs overwritten in @colmap by this line. + about: This routine must draw a line from @x1, @y1 to @x2, @y2 using the colour @r,@g,@b. @id must be written into the collision map @colmap. + EndRem Method Draw:Int(x1:Int, y1:Int, x2:Int, y2:Int, r:Int, g:Int, b:Int, id:Int, colmap:TVectorGfxCollisionMap) Abstract End Type @@ -55,6 +60,13 @@ Function VectorGfxSetThickAlpha(line_alpha:Double) End Function Rem +bbdoc: Set to use a custom drawing method. +EndRem +Function VectorGfxSetCustom(linedraw:TVectorGfxLineStyle) + Static.linedraw=linedraw +End Function + +Rem bbdoc: Defines a vector graphics collision map. about: Collisions in the library a defined using a bitmask (allowing 32 collision masks). EndRem @@ -129,8 +141,10 @@ Rem bbdoc: Defines a 2D vector graphics object EndRem Type TVectorGfxObject + Rem + bbdoc: The lines making up this object + EndRem Field lines:TList - Rem bbdoc: The X co-ordinate of the object EndRem @@ -160,6 +174,7 @@ Type TVectorGfxObject about: @line is the line to add. EndRem Method AddLine(line:TVectorGfxLine) + line.parent=Self lines.AddLast(line) End Method @@ -168,6 +183,7 @@ Type TVectorGfxObject about: @line is the line to remove. EndRem Method RemoveLine(line:TVectorGfxLine) + line.parent=Null lines.Remove(line) End Method @@ -232,10 +248,9 @@ Type TVectorGfxObject Method Draw:Int(colmap:TVectorGfxCollisionMap) Local col:Int=0 For Local l:TVectorGfxLine=EachIn lines - Local p1:TAlgoPoint=DoRotate(l.x1,l.y1,ang) - Local p2:TAlgoPoint=DoRotate(l.x2,l.y2,ang) + Local p:TAlgoPoint[]=l.AdjustedCoords() - col:|Static.linedraw.draw(x+p1.x,y+p1.y,x+p2.x,y+p2.y,l.r,l.g,l.b,l.id,colmap) + col:|Static.linedraw.draw(p[0].x,p[0].y,p[1].x,p[1].y,l.r,l.g,l.b,l.id,colmap) Next Return col @@ -246,6 +261,7 @@ Rem bbdoc: Defines a line EndRem Type TVectorGfxLine + Field parent:TVectorGfxObject Field x1:Int Field y1:Int Field x2:Int @@ -276,6 +292,41 @@ Type TVectorGfxLine End Function Rem + bbdoc: The line's normal. + returns: The normal of the line. + about: When this line is assigned to an object, this will return the normal due to the rotation of the object + EndRem + Method Normal:TVector() + Local p:TAlgoPoint[]=AdjustedCoords() + Local v:TVector=TVector.Create(p[0].y-p[1].y,p[1].x-p[0].x) + v.Normalise() + Return v + End Method + + Rem + bbdoc: The line's rotated and adjusted co-ords. + returns: The two points defining the screen co-ordinates used. + about: This won't really return anything useful unless the line is assigned to an object. + EndRem + Method AdjustedCoords:TAlgoPoint[]() + Local p:TAlgoPoint[]=New TAlgoPoint[2] + + If parent<>Null + p[0]=DoRotate(x1,y1,parent.ang) + p[1]=DoRotate(x2,y2,parent.ang) + p[0].x:+parent.x + p[0].y:+parent.y + p[1].x:+parent.x + p[1].y:+parent.y + Else + p[0]=TAlgoPoint.Create(x1,y1) + p[1]=TAlgoPoint.Create(x2,y2) + EndIf + + Return p + End Method + + Rem bbdoc: This is for internal library use. EndRem Function Load:TVectorGfxLine(s:TStream) |