• Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,488

Temat: BASIC i 3D

Kojarzycie jakieś inne listingi 3D?

5 GRAPHICS 8: COLOR 1
10 DIM m(2655)
15 LET a=COS(PI/4)
20 FOR y=1 TO 141 STEP 5
25 LET e=a*y
27 LET c=y-70
29 LET c=c*c
30 FOR x=1 to 141
34 LET d=x-70
40 LET z=80*EXP(-0.001*(c+d*d))
50 LET x1=x+e
60 LET y1=z+e
70 IF y1>=m(x1) THEN LET m(x1)=y1: PLOT 20+x1,160-y1
80 NEXT x
90 NEXT y

http://www.atari.org.pl/forum/misc.php?action=pun_attachment&item=10959

Spectrum:

C64:
https://retro64.altervista.org/blog/plo … c-2-0-c64/

Ostatnio edytowany przez Cyprian (2023-11-06 23:47:57)

Post's attachments

ATARI_BASIC_3D.png 3.33 kb, nikt jeszcze nie pobierał tego pliku. 

Tylko zalogowani mogą pobierać załączniki.
Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

2 Odpowiedź przez Sikor

  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 10,940

Odp: BASIC i 3D

Tak, ale nie namierzę teraz. Był listing rysujący kapelusz w 3 D (FEDORA - dzięki nazwie kojarzyłem z kapeluszem), chyba w X-sie, ale tu mogę się mylić.

Sikor umarł...

Sikor's Strona

3 Odpowiedź przez Cyprian

  • Skąd: Warszawa
  • Zarejestrowany: 2002-03-09
  • Posty: 4,488

Odp: BASIC i 3D

no właśnie, w jakimś piśmie był ten i inne wykresy z listingami.

Lynx I / Mega ST 1 / 7800 / Portfolio / Lynx II / Jaguar / TT030 / Mega STe / 800 XL / 1040 STe / Falcon030 / 65 XE / 520 STm / SM124 / SC1435
DDD HDD / AT Speed C16 / TF536 / SDrive / PAK68/3 / Lynx Multi Card / LDW Super 2000 / XCA12 / SkunkBoard / CosmosEx / SatanDisk / UltraSatan / USB Floppy Drive Emulator / Eiffel / SIO2PC / Crazy Dots / PAM Net
http://260ste.atari.org

4 Odpowiedź przez JLS

  • JLS
  • Referent
  • Nieaktywny
  • Skąd: Gliwice
  • Zarejestrowany: 2013-02-25
  • Posty: 322

Odp: BASIC i 3D

Cyprian napisał/a:

no właśnie, w jakimś piśmie był ten i inne wykresy z listingami.

Np. tutaj podobne:
Czasopismo IKS - 1986 strona 23
Czasopismo IKS - 1987 strona 11
a grafiki z Bajtka z tych pierwszych gazetowych wydań z numeru 2 i 3 z 1985 na stronach 32, kiedyś uruchomiłem na Atari.

5 Odpowiedź przez Pin

  • Pin
  • Dziad Borowy
  • Nieaktywny
  • Skąd: Kraków
  • Zarejestrowany: 2002-03-09
  • Posty: 11,620

Odp: BASIC i 3D

Fedorę miałem gdzieś na dysku, poszukam dziś i jak się znajdzie to wrzucę tu.

edit:
Zdaje się, że to było w pakiecie FAST BASIC o ile dobrze pamiętam.

Ostatnio edytowany przez Pin (2023-11-08 11:32:42)

ADRES: pin@atari.pl - konto zlikwidowane. Aktualny adres: pin(at)atari8.info

Pin's Strona