Rotating 3D Earth (Elk/Beeb)

new graphics/music demos - bitshifters, 0xc0de, The Master + others
Post Reply
User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 11:27 am

Demonstration of fake spherical image mapping.
Cross-platform demo. Runs on Acorn Electron and BBC Micro, Master 128. PAGE needs to be &E00 though!
SPACE toggles between raster version and solid version.
Real time calculation (using lookup tables obviously), not some animation frames read from disk :wink:

earth3d.ssd
(10.25 KiB) Downloaded 42 times

earth3d.png
Last edited by 0xC0DE on Wed May 20, 2020 11:42 am, edited 1 time in total.
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

User avatar
oss003
Posts: 3257
Joined: Tue Jul 14, 2009 12:57 pm
Location: Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by oss003 » Wed May 20, 2020 11:35 am

Nice demo .... looks great ...... =D>

Greetings
Kees

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 11:39 am

oss003 wrote:
Wed May 20, 2020 11:35 am
Nice demo .... looks great ...... =D>
Thanks Kees! :D
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

User avatar
tricky
Posts: 4249
Joined: Tue Jun 21, 2011 9:25 am
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by tricky » Wed May 20, 2020 12:08 pm

Nice, now for MODE 0 with dither ;)

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 12:09 pm

tricky wrote:
Wed May 20, 2020 12:08 pm
Nice, now for MODE 0 with dither ;)
Hold my beer! :lol:
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

pdjstone
Posts: 5
Joined: Sun Feb 23, 2020 10:02 am
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by pdjstone » Wed May 20, 2020 12:11 pm

Trying to run this in JSBeeb - I set PAGE to &E00 but I still get the message about setting PAGE. What am I doing wrong?

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 12:20 pm

pdjstone wrote:
Wed May 20, 2020 12:11 pm
Trying to run this in JSBeeb - I set PAGE to &E00 but I still get the message about setting PAGE. What am I doing wrong?
DFS is in the way on a regular BBC Micro. Altering PAGE manually won't change that.
Try BBC Master 128 mode of jsbeeb: https://bbc.godbolt.org/?&model=Master
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

User avatar
marcusjambler
Posts: 768
Joined: Mon May 22, 2017 12:20 pm
Location: Bradford
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by marcusjambler » Wed May 20, 2020 12:25 pm

Like it =D>

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 12:26 pm

marcusjambler wrote:
Wed May 20, 2020 12:25 pm
Like it =D>
:mrgreen:
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

pdjstone
Posts: 5
Joined: Sun Feb 23, 2020 10:02 am
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by pdjstone » Wed May 20, 2020 12:39 pm

0xC0DE wrote:
Wed May 20, 2020 12:20 pm
DFS is in the way on a regular BBC Micro. Altering PAGE manually won't change that.
Try BBC Master 128 mode of jsbeeb: https://bbc.godbolt.org/?&model=Master
Thanks that works! Out of interest how would you get it running on a Model B? I there a way to load it into memory, disable DFS and then run?

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 12:49 pm

pdjstone wrote:
Wed May 20, 2020 12:39 pm
0xC0DE wrote:
Wed May 20, 2020 12:20 pm
DFS is in the way on a regular BBC Micro. Altering PAGE manually won't change that.
Try BBC Master 128 mode of jsbeeb: https://bbc.godbolt.org/?&model=Master
Thanks that works! Out of interest how would you get it running on a Model B? I there a way to load it into memory, disable DFS and then run?
Yes, that is one possibility (but I was lazy for this version :mrgreen:). The other option is to use a DFS ROM that keeps PAGE at &E00.
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

User avatar
jgharston
Posts: 3949
Joined: Thu Sep 24, 2009 12:22 pm
Location: Whitby/Sheffield
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by jgharston » Wed May 20, 2020 12:57 pm

pdjstone wrote:
Wed May 20, 2020 12:39 pm
0xC0DE wrote:
Wed May 20, 2020 12:20 pm
DFS is in the way on a regular BBC Micro. Altering PAGE manually won't change that.
Try BBC Master 128 mode of jsbeeb: https://bbc.godbolt.org/?&model=Master
Thanks that works! Out of interest how would you get it running on a Model B? I there a way to load it into memory, disable DFS and then run?
!BOOT:

Code: Select all

*BASIC
MODE 7:*LOAD 0xC0DE 5000
OS."TAPE":OS."FX143,12,255":F.A%=0TO&25FFS.4:A%!&E00=A%!&5000:N.:MO.2:MO.5:V.23,1,0;0;0;0;19,1,4;0;19,3,7;0;12,21:CALL &E00

Code: Select all

$ bbcbasic
PDP11 BBC BASIC IV Version 0.32
(C) Copyright J.G.Harston 1989,2005-2020
>_

User avatar
0xC0DE
Posts: 549
Joined: Tue Mar 19, 2019 7:52 pm
Location: The Netherlands
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by 0xC0DE » Wed May 20, 2020 1:04 pm

jgharston wrote:
Wed May 20, 2020 12:57 pm
pdjstone wrote:
Wed May 20, 2020 12:39 pm
0xC0DE wrote:
Wed May 20, 2020 12:20 pm
DFS is in the way on a regular BBC Micro. Altering PAGE manually won't change that.
Try BBC Master 128 mode of jsbeeb: https://bbc.godbolt.org/?&model=Master
Thanks that works! Out of interest how would you get it running on a Model B? I there a way to load it into memory, disable DFS and then run?
!BOOT:

Code: Select all

*BASIC
MODE 7:*LOAD 0xC0DE 5000
OS."TAPE":OS."FX143,12,255":F.A%=0TO&25FFS.4:A%!&E00=A%!&5000:N.:MO.2:MO.5:V.23,1,0;0;0;0;19,1,4;0;19,3,7;0;12,21:CALL &E00
=D> Well, somebody wasn't lazy like I was, thanks! :lol:
0xC0DE
:idea: Follow me on Twitter :idea: Visit my YouTube channel featuring my demos for Acorn Electron and BBC Micro

User avatar
jgharston
Posts: 3949
Joined: Thu Sep 24, 2009 12:22 pm
Location: Whitby/Sheffield
Contact:

Re: Rotating 3D Earth (Elk/Beeb)

Post by jgharston » Sun May 24, 2020 5:29 pm

0xC0DE wrote:
Wed May 20, 2020 1:04 pm
jgharston wrote:
Wed May 20, 2020 12:57 pm
!BOOT:

Code: Select all

*BASIC
MODE 7:*LOAD 0xC0DE 5000
OS."TAPE":OS."FX143,12,255":F.A%=0TO&25FFS.4:A%!&E00=A%!&5000:N.:MO.2:MO.5:V.23,1,0;0;0;0;19,1,4;0;19,3,7;0;12,21:CALL &E00
=D> Well, somebody wasn't lazy like I was, thanks! :lol:
Could even put it in the code.
Set load address=FFFF5000
Set exec address=FFFF7628 (whatever L7628 turns out to be)
Append:
.L7600
.loop2
LDA vdu,Y:JSR OSWRCH
INY:CPY #L7628-vdu:BNE loop2
JMP &E00
.vdu
EQUS CHR$22+CHR$2+CHR$22+CHR$5
EQUS CHR$23+CHR$1+STRING$(8,CHR$0)
EQUS CHR$19+CHR$1+CHR$4+STRING$(3,CHR$0)
EQUS CHR$19+CHR$3+CHR$7+STRING$(3,CHR$0)
.L7628 :\ check this
LDA #140:JSR OSBYTE :\ Select tape
LDA #143:LDX #12:LDY #255:JSR OSBYTE :\ Turn off NMIs
LDY #0:STY &70:STY &72 :\ Copy from 5000 -> 0E00
LDA #&50:STA &71
LDA #&0E:STA &73
.loop1
LDA (&70),Y:STA (&72),Y:INY:BNE loop1
INC &71:INC &73
LDA &73:CMP #&76:BNE loop1
JMP &3400

...except my arithmetic tells me the code lives at &E00-&3400, and the MODE 2 will overwrite the code at &3000-&3400.

Code: Select all

$ bbcbasic
PDP11 BBC BASIC IV Version 0.32
(C) Copyright J.G.Harston 1989,2005-2020
>_

Post Reply

Return to “new projects and releases: demoscene”