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

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

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:
https://www.youtube.com/watch?v=-Aw_YiZVu38

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

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
  • Sikor
  • Naddyskownik
  • Nieaktywny
  • Skąd: Warszawa
  • Zarejestrowany: 2002-06-17
  • Posty: 11,122

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,528

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
  • JLS
  • Referent
  • Nieaktywny
  • Skąd: Gliwice
  • Zarejestrowany: 2013-02-25
  • Posty: 339
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 Ostatnio edytowany przez Pin (2023-11-08 11:32:42)

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

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.

Kontakt: pin@usdk.pl

Pin's Strona

6 Odpowiedź przez Cyprian Ostatnio edytowany przez Cyprian (2024-12-01 00:25:33)

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

a tu coś od Atari Fan:

10 DIM M(300):A=COS(3.141592/3)
11 GRAPHICS 8:COLOR %1
12 FOR Y=%1 TO 161 STEP 5 
13   E=A*Y:C=Y-70:C=C*C 
14   FOR X=%1 TO 161
15     D=X-80 
16     Z=80*EXP(-1.0E-03*(C+D*D)) 
17     X1=X+E:Y1=Z+E 
18     IF Y1>=M(X1) THEN M(X1)=Y1 
19     PLOT X1,Y1
20   NEXT X 
21 NEXT Y

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

Post's attachments

Clipboard-6.png 895.7 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

7 Odpowiedź przez perinoid

  • Skąd: W-wa
  • Zarejestrowany: 2015-11-20
  • Posty: 3,754

Pamiętam jak w którymś numerze X-a był listing w Basicu, który takie coś generował. Tylko był na Spectrum. Początkującemu wtedy mi udało się go jakoś dopasować do Atari i też się górka rysowała. Była radość.

Pamięć studenta ma charakter kwantowy - student wie wszystko, ale jednocześnie nic nie pamięta.
- Kilka(naście?) pudełek z klawiszami i światełkami. I jeden Vectrex, żeby nimi wszystkimi rządzić.

8 Odpowiedź przez Cyprian

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

jedno ze źródeł tych listingów: Magazyn Byte z 1978 roku:
https://vintageapple.org/byte/pdf/19780 … _Depth.pdf

Strona 52/53/54

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

9 Odpowiedź przez jer

  • jer
  • Starszy Atarowiec
  • Nieaktywny
  • Skąd: Twierdza Modlin
  • Zarejestrowany: 2004-07-27
  • Posty: 2,440

Kapelusz był przedstawiony w programie demonstracyjnym Atari. Był tam też idący robot oraz statek kosmiczny.

Moje www

jer's Strona