Join our online forum to talk to Roku developers and fellow channel creators. Ask questions, share tips with the community, and find helpful resources.
----- Update 2019-10-24
New release:
- Audio playback now supported! Working with both roAudioResource and roAudioPlayer
- Desktop Apps (Windows, Linux, Mac) now support Display Modes (SD, HD, FHD)
- Desktop Apps (Windows, Linux, Mac) now can emulate TV overscan effect
Download latest release at:
https://github.com/lvcabral/brs-emu/releases/tag/v0.6.0-emu
The emulator code is available on the the repository: https://github.com/lvcabral/brs-emu
The demonstration site has the details about the project and several examples of games and channels running: https://lvcabral.com/brs
----- Original Post
I had this idea for a long time, but to start from scratch was always a big effort that I was not willing to put. Then recently I learned about this cool project: https://github.com/lvcabral/brs under the branch called "brsLib" and you can test it online at this link: https://lvcabral.com/brs/
I'm far from a TypeScript/Javascript expert, learning as I go, if you would be interested to help, let me know!
I will keep updating this thread with the progress.
The code below was extracted from Roku Draw 2D API example (Simple2D), you can save it to a brs file and load in the tool to see the animation above in your browser. You can change it or create your own animations with BrightScript.
sub main()
screen=CreateObject("roScreen", true, 854, 480)
screen.SetAlphaEnable(true)
screen.Clear(&HFF)
port = CreateObject("roMessagePort")
screen.SetMessagePort(port)
compositor=CreateObject("roCompositor")
compositor.SetDrawTo(screen, 0)
scaleblit(screen, port, 0, 0, 854, 480, 1)
end sub
sub scaleblit(screenFull as object, msgport as object, topx, topy, w, h, par)
print "Scale Boing"
screen = screenFull
red = 255*256*256*256+255
green = 255*256*256+255
blue = 255*256+255
clr = int(255*.55)
background = &h8c8c8cff
sidebarcolor = green
screen.Clear(background)
screenFull.SwapBuffers()
' create a red sprite '
ballsize = h/4
ballsizey = int(ballsize)
ballsizex = int(ballsize*par)
tmpballbitmap = createobject("robitmap","pkg:/img/AmigaBoingBall.png")
scaley = ballsizey/tmpballbitmap.getheight()
scalex = scaley*par
ballbitmap = createobject("robitmap",{width:ballsizex,height:ballsizey,alphaenable:true})
ballbitmap.drawscaledobject(0,0,scalex*1.0,scaley*1.0,tmpballbitmap)
ballregion = createobject("roregion",ballbitmap,0,0,ballsizex,ballsizey)
ballcenterX = int(ballsizex/2)
ballcenterY = int(ballsizey/2)
ballregion.setpretranslation(-ballcenterX, -ballcenterY)
ballregion.setscalemode(0)
' construct ball shadow '
tmpballbitmap = createobject("robitmap","pkg:/img/BallShadow.png")
ballshadow = createobject("robitmap",{width:ballsizex,height:ballsizey,alphaenable:true})
ballshadow.drawscaledobject(0,0,ballsizex/tmpballbitmap.getwidth(),ballsizey/tmpballbitmap.getheight(),tmpballbitmap)
shadowregion = createobject("roregion",ballshadow,0,0,ballsizex,ballsizey)
shadowregion.setpretranslation(-ballcenterX, -ballcenterY)
shadowregion.setscalemode(0)
' calculate starting position and motion dynamics '
x = w/10 + ballcenterX
y = h/10 + ballcenterY
dx = 2
dy = 1
ay = 1
framecount = 0
timestamp = createobject("rotimespan")
swapbuff_timestamp = createobject("rotimespan")
start = timestamp.totalmilliseconds()
swapbuff_time = 0
shadow_dx = int(ballsizex/4)
shadow_dy = int(ballsizey/10)
w_over_10 = w/10
rightedge = int(ballcenterx + (w*9)/10)
bottomedge = int(ballcentery + (h*9)/10)
running = true
' codes = bslUniversalControlEventCodes() '
grid = createobject("robitmap", {width:screen.getWidth(),height:screen.getheight(),alphaenable:false})
regiondrawgrid(grid, background)
grid.finish()
while true
screen.drawobject(0, 0, grid)
screen.SetAlphaEnable(true)
scalex = x/rightedge
scaley = y/bottomedge
screen.drawscaledobject(toInt(x+shadow_dx),toInt(y+shadow_dy),scalex*1.0,scaley*1.0,shadowregion)
screen.drawscaledobject(toInt(x),toInt(y),scalex*1.0,scaley*1.0,ballregion)
screen.SetAlphaEnable(false)
screen.drawrect(toInt(x-2),toInt(y-2),5,5,green)
swapbuff_timestamp.mark()
screenFull.SwapBuffers()
swapbuff_time = swapbuff_time + swapbuff_timestamp.totalmilliseconds()
pullingmsgs = true
while pullingmsgs
deltatime = timestamp.totalmilliseconds() - start
msg = msgport.getmessage()
if msg = invalid and deltatime > 16 'aprox 60fps '
timestamp.mark()
start = timestamp.totalmilliseconds()
pullingmsgs = false
else
if type(msg) = "roUniversalControlEvent"
button = msg.getint()
print "button=";button
'if button=codes.BUTTON_BACK_PRESSED '
return
'endif '
endif
endif
end while
x = x + dx
y = y + dy
dy = dy + ay
if x<w_over_10
x = w_over_10+(w_over_10-x)
dx = -dx
endif
if y<0
y = -y
dy = -dy
endif
if x+ballsizex > rightedge
x = 2*rightedge - x - 2*ballsizex
dx = -dx
endif
if y+ballsizey > bottomedge
y = 2*y - y
dy = -dy + ay
endif
end while
print "Exiting APP"
End Sub
sub drawline(screen, x0,y0,x1,y1,width,color)
if (width = 1) and (y0 <> y1) and (x0 <> x1)
screen.drawline(x0, y0, toInt(x1), y1, color)
return
end if
if (x0=x1)
' vertical line '
h = y1-y0
if h<0 ' upside down? '
y0=y1
h = -h
endif
screen.drawrect(toInt(x0),y0,toInt(width),h+1,color)
else if (y0=y1)
w = x1-x0
if w<0
x0=x1
w = -w
endif
screen.drawrect(toInt(x0),y0,toInt(w+1),width,color)
end if
end sub
function toInt(value) as integer
if type(value) = "Integer" then return value
return int(value)
end function
sub regiondrawgrid(screen, background)
' only draw into primary surface area now - do not touch sidebars '
screen.clear(background)
w = screen.getWidth()
h = screen.getHeight()
left = int(w/10)
right = w-left
top= int(h/10)
bottom = h-top
color = &hff00ffff
' draw vertical lines '
i = 0
x = left
deltax = int(left/2)
deltay = deltax
lineheight = bottom - top
bottom = top + deltay*int(lineheight/deltay)
bottomXdelta = (deltax/3)
bottomXdeltainit = bottomXdelta
deltax_over_20 = int(deltax/20)
deltay_over_2 = int(deltay/2)
while x<=right
drawline(screen,x,top,x,bottom,1,color)
drawline(screen,x,bottom,x-bottomXdelta,bottom+deltay_over_2,1,color)
x = x + deltax
bottomXdelta =bottomXdelta - deltax_over_20
end while
' correct for actual right edge '
right = x - deltax
y = top
'draw horizontal lines '
while y<=bottom
drawline(screen,left,y,right,y,1,color)
y = y + deltay
end while
' draw floor '
drawline(screen, left-bottomXdeltainit, bottom+deltay_over_2,right-bottomXdelta-deltax_over_20 , bottom+deltay_over_2, 1, color)
end sub
