Articles
NextBuild v7
v7 is now on github https://github.com/em00k/NextBuild
HDFMGooey 1.3
1.3 Fixed downloading issues. Files are now downloaded from github for hdfmonkey.Added right click context menu on right explorer It is still no possible to
PETSCII on Nexty
Sorry for that. A few days ago a post on by Carlo Santagostino Spectrum For Everyone explained how he wanted to simulate the C64 PETSCII display
Little update, nice balls.
Little example of Plotting to Layer 2 using an adaption of the Rosetta Code sphere, John Metcalf’s improve SQR and a nice palette.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
rem rotating cube - '#!v '!bin "h:\test.bin" -a pause 0 #INCLUDE <nextlib.bas> #INCLUDE <memcopy.bas> NextReg(8,$fe) ' no contention NextReg(7,2) ' 14mhz NextReg($14,$0) ' Global transparency bits 7-0 = Transparency color value (0xE3 after a reset) NextReg($40,0) ' 16 = paper 0 on L2 palette index NextReg($41,$0) ' Palette Value NextReg($15,%00001011) NextReg($4A,0) ' Trasnparent Fallback NextReg($12,9) ' layer2 rams 16kb banks NextReg($13,12) ' layer2 shadow NextReg($13,12) ' layer2 shadow NextReg($43,%00010001 ) ' layer2 shadow PalUpload(@rainbow, 0,0) paper 0 : ink 6: border 0 : cls CLS256(0) : ShowLayer2(1) Dim R, R2, X, Y, C, D2, XA, YA, YT as integer dim Color as ubyte R = 100 : R2 = R * R : YA = 180 / 2 : XA = 256 / 2 For Y = -R To R ' for all the coordinates near the circle YT = Y * Y For X = -R To R ' which is under the sphere D2 = X * X + YT If D2 <= R2 Then ' coordinate is inside circle under sphere ' height of point on surface of sphere above X,Y C =(R2 - D2) ' color is proportional; offset X and Y, and asm ; use John Metcalfs fast sqr ; http://www.retroprogramming.com/2017/07/a-fast-z80-integer-square-root.html ld a,h : ld de,0B0C0h : add a,e : jr c,sq7 ld a,h : ld d,0F0h sq7: add a,d : jr nc,sq6 : res 5,d : db 254 sq6: sub d : sra d : set 2,d : add a,d : jr nc,sq5 res 3,d : db 254 sq5: sub d : sra d : inc d : add a,d : jr nc,sq4 res 1,d : db 254 sq4: sub d : sra d : ld h,a : add hl,de jr nc,sq3 : ld e,040h : db 210 sq3: sbc hl,de : sra d : ld a,e : rra or 010h : ld e,a : add hl,de : jr nc,sq2 and 0DFh : db 218 sq2: sbc hl,de : sra d : rra : or 04h : ld e,a add hl,de : jr nc,sq1 : and 0F7h : db 218 sq1: sbc hl,de : sra d : rra : inc a : ld e,a : add hl,de jr nc,sq0 : and 0FDh sq0: sra d : rra : cpl : ld hl,0 : ADD_HL_A ld (._C),a END ASM C = C - (( X + Y) / 2) + 100 Color = cast(ubyte,(C ) ) '>>1 ' = color RGB(0, C, C) PlotL2(X+XA,Y+YA,Color) End If Next Next Print at 23,0;"hit any key to end program" pause 0 End rainbow: asm incbin "rainbow.pal" end asm |
Things are still moving!
Yes I have been working on and with NextBuild pretty much non stop since the last update. This weekend I am locking down the features/improvements
Quick update
Just a quick update to ensure I or the project inst dead already 🙂 http://zxbasic.uk/nextbuild/support-forum/topic/up-and-coming-updates/
Protected: Uploader
There is no excerpt because this is a protected post.
Displaying A TileMap
In this article we will take a closer look at one of the included sources examples and examine what it does. Open the source folders