QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-05-12 08:00:12 +00:00
Code Issues Releases Wiki Activity

Added support for InvertRect, LineDash and LineDashOff (#99)

Browse source
This commit is contained in:
boxgaming 2024-01-11 08:12:35 -06:00
parent 579481861e
commit fbc034da1a
1 changed files with 48 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
lib/graphics/2d.bas
View file

@ -4,8 +4,8 @@ Const SQUARE = "square"
Export DEFAULT, ROUND, SQUARE
Export RotoZoom, SaveImage
Export Triangle, FillTriangle, RoundRect, FillRoundRect
Export Shadow, ShadowOff, LineWidth, LineCap
Export Triangle, FillTriangle, RoundRect, FillRoundRect, InvertRect
Export Shadow, ShadowOff, LineWidth, LineCap, LineDash, LineDashOff
Export FillCircle, Ellipse, FillEllipse, Curve, Bezier
Sub RotoZoom (centerX As Long, centerY As Long, img As Long, xScale As Single, yScale As Single, rotation As Single)
@ -188,6 +188,28 @@ Sub _RoundRect (x As Long, y As Long, w As Long, h As Long, radius As Integer, c
$End If
End Sub
Sub InvertRect (x As Long, y As Long, width As Long, height As Long, fill As Integer)
Dim destImg As Long
destImg = _Dest
$If Javascript Then
var ctx = QB.getImage(destImg).getContext("2d");
ctx.beginPath();
ctx.globalCompositeOperation="difference";
if (fill) {
ctx.fillStyle = "white";
ctx.rect(x, y, width, height);
ctx.fill();
}
else {
ctx.strokeStyle = "white";
ctx.rect(x, y, width, height);
ctx.stroke();
}
ctx.globalCompositeOperation = "source-over";
$End If
End Sub
Sub Shadow (clr As Long, offsetX As Long, offsetY As Long, blur As Long)
Dim destImg As Long
destImg = _Dest
@ -254,6 +276,30 @@ Function LineCap
$End If
End Function
Sub LineDash (dashLen As Integer, dashSpace As Integer)
$If Javascript Then
var ctx = QB.getImage(QB.func__Dest()).getContext("2d");
if (dashLen > 0) {
var dl = dashLen;
var ds = dashLen;
if (dashSpace > 0) {
ds = dashSpace;
}
ctx.setLineDash([dl, ds])
}
else {
ctx.setLineDash([])
}
$End If
End Sub
Sub LineDashOff
$If Javascript Then
var ctx = QB.getImage(QB.func__Dest()).getContext("2d");
ctx.setLineDash([])
$End If
End Sub
Sub Curve (sx As Long, sy As Long, cx As Long, cy As Long, ex As Long, ey as Long, clr As _Unsigned Long)
If clr = undefined Then
clr = _DefaultColor