How to draw a triangle?
I'd like to draw a solid triangle either to screen or a bitmap that i can later use - how is this simple task to be accomplished? Triangle will be a simple color (no pattern), partially transparent (...
Forum Discussion
Endless beat me to it but it seems the only way is to hack it with squares and rectangles. Pretty glaring omission from a 2D API. IMO.
Library "v30/bslDefender.brs"
Sub Main()
font_registry = CreateObject("roFontRegistry")
font = font_registry.GetDefaultFont()
codes = bslUniversalControlEventCodes()
m.screen=CreateObject("roScreen", true)
m.msgport=CreateObject("roMessagePort")
m.screen.SetPort(m.msgport)
m.screen.Clear(&h394837FF)
m.screen.SetAlphaEnable(true)
m.screen.DrawText("background", 530, 250, &hebebebFF, font)
square = CreateObject("roBitmap", {width: 400, height: 400, AlphaEnable: true})
square.Clear(&h25344399)
rect = CreateObject("roBitmap", {width: 565, height: 280, AlphaEnable: false})
rect.drawRotatedobject( 0, 285, 45, square)
m.screen.drawobject(357, 220, rect)
m.screen.Swapbuffers()
rowrow = 0
while true
m.screen.Clear(&h394837FF)
m.screen.DrawText("background", 530, 250, &hebebebFF, font)
msg = m.msgport.getmessage()
if type(msg) = "roUniversalControlEvent"
button = msg.getint()
if button=codes.BUTTON_RIGHT_PRESSED
rowrow = rowrow + 45
m.screen.drawRotatedobject(357, 220, rowrow, rect)
m.screen.Swapbuffers()
end if
end if
end while
End Sub
