Articles - NextBuild

NextBuild v7

19th February 202029th January 2021 By: em00k

v7 is now on github https://github.com/em00k/NextBuild

NEXTSCII

28th August 201928th August 2019 By: em00k

A follow up from the PETSCII post here – this now uses the tilemap, palette changing, NextZXOS Browser to load PRG/PSC files and can run

HDFMGooey 1.2

18th August 201918th August 2019 By: em00k

A tool that simplifies downloading and setting up the ZX Spectrum Next distribution, which can then be used along with CSpect emulator so you can

PETSCII on Nexty

28th June 201928th June 2019 By: em00k

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.

25th May 201925th May 2019 By: em00k

Little example of Plotting to Layer 2 using an adaption of the Rosetta Code sphere, John Metcalf’s improve SQR and a nice palette.

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

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($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

Print at 23,0;"hit any key to end program"

pause 0

End

rainbow:

asm

incbin "rainbow.pal"

end asm

Things are still moving!

2nd February 2019 By: em00k

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

The NextLibs

30th September 201830th September 2018 By: em00k

At the heart of NextBuild is the library that is included called nextlib.bas. This is what makes Boriel’s ZXB so flexible, being able to extend

NextBuild v7

NEXTSCII

HDFMGooey 1.2

PETSCII on Nexty

Little update, nice balls.

Things are still moving!

Quick update

Protected: Uploader

Displaying A TileMap

The NextLibs