ULAplus support

[nitrofurano]

Another update

The first one is related to a more simple use of 'ink' and 'paper' - since it's a bit hard to locate a colour between 0 and 63 using 'ink:paper:bright:flash:inverse', i added a sub that gives priority to 'ink' (between 0 and 63), and uses the less significative 3 bits from paper, due on ULAplus limitation (which is limited to use the same 16 colour group from ink, and not the same 8 colour group) - i think the code example explains a bit how it works.

The other function i added is related to use more easily hexcolours on ULAplus - for example, besides the hexcolour format used on webpages, for red colour, is '#FF0000', it would be 12bit instead of 24bit, like '#F00', which on the code will be used as '0F00h'

on the example, i used the colour 15 for the border because it were the 'border 7' (and 'paper 7:flash 0: bright 0'), colour 0 for the default ink (ink 0:flash 0:bright 0), and all other between colour 48 and colour 63, for illustrating how is it used on the last of all 4 16c cluts (equivalent of 'flash 1: bright 1')

library/ulaplus.bas

Code:

'- ULAplus library for Boriel's zxbasic-compiler '- 20111205164150 - (ↄ) Paulo Silva - http://nitrofurano.altervista.org '- This file is released under the GPL v3 License dim tmpv as uinteger dim fdbkv as ubyte function ulapluscheck(): tmpv=in(65339):pause 1:fdbkv=0 out 48955,0:out 65339,0:pause 1 if in(65339)<>tmpv then:fdbkv=1:out 48955,0:out 65339,tmpv:pause 1:end if return fdbkv end function sub ulapluspalette(clv as ubyte, vlv as ubyte): out 48955,(clv band 63):out 65339,vlv:pause 1 end sub function ulaplusgetpalette(clv as ubyte) out 48955,(clv band 63) return in(65339) pause 1 end function sub ulaplusswitch(flgv as ubyte): out 48955,64:out 65339,(flgv band 1):pause 1 end sub sub ulaplusattr(ikv as ubyte,pav as ubyte): '- usage: ink priority (from 0 to 63), and only using 3 bits lsb from paper inverse 0:ink(ikv band 7):paper(pav band 7) bright((ikv band 16)/16):flash((ikv band 32)/32) if (ikv band 8)<>0 then: inverse 1:ink(pav band 7):paper(ikv band 7) end if end sub function ulaplushexcolour(hxcv as uinteger): tmpv=(hxcv band 12)/4 tmpv=tmpv bor(hxcv band 224) hxcv=int(hxcv/256) tmpv=tmpv bor((hxcv band 14)*2) return tmpv end function

example01.bas

Code:

#include "library/ulaplus.bas" ulaplusswitch(1):cls bold 1 ulaplusattr(0,15) cls ulapluspalette(0,ulaplushexcolour(0398h)) ulapluspalette(15,ulaplushexcolour(0275h)) ulapluspalette(57,ulaplushexcolour(0874h)) ulapluspalette(49,ulaplushexcolour(0543h)) ulapluspalette(58,ulaplushexcolour(0783h)) print at 0,0;""; print "test - using palette from http://www.colourlovers.com/palette/1779157/Reflect_Hope_F?widths=0":print print "hexcolours (12bit):" print "#275,#874,#398,#543,#783":print ulaplusattr(49,57):print "hello world!" ulaplusattr(57,49):print "hello world!":print ulaplusattr(49,58):print "hello world!" ulaplusattr(58,49):print "hello world!":print ulaplusattr(15,15):print "\::"; ulaplusattr(57,57):print "\::"; ulaplusattr(0,0):print "\::"; ulaplusattr(49,49):print "\::"; ulaplusattr(58,58):print "\::"; pause 0

screenshot: