atarionline.pl plus4 kanion - Forum Atarum

Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

  • :
  • :

Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.

    • 1: CommentAuthormono
    • CommentTime18 Apr 2024 zmieniony
     
    Znalazłem na forum Commodore Plus4 taki programik ->link<- który przełożyłem na Atari
    10 GRAPHICS 15+16
    20 SETCOLOR 1,6,4:SETCOLOR 2,6,6:SETCOLOR 3,6,1:SETCOLOR 4,1,0
    30 XM=105:YM=105:XC=1:YC=0:T=20:S=60
    35 XL=-0.15:XR=0.26:YO=0.47:YU=0.9
    40 DX=(XR-XL)/XM:DY=(YU-YO)/YM
    50 FOR N=0 TO YM:Y1=YO+N*DY:FOR M=0 TO XM:X=XL+M*DX:Y=Y1:K=0
    60 X2=X*X:Y2=Y*Y:Y=2*X*Y-YC:X=X2-Y2-XC:K=K+1
    65 IF (K<T) AND (X2+Y2<S) THEN 60
    70 U=M+53-N/2:U1=U+1:V=N+80:V1=V-3*(K-1)
    75 COLOR 3:PLOT U,V:DRAWTO U,V1:COLOR 2:PLOT U1,V:DRAWTO U1,V1:COLOR 1:PLOT U,V1:DRAWTO U1,V1
    80 NEXT M:NEXT N
    90 IF PEEK(764)=255 THEN 90

    Rysuje wolno, ale skutecznie :)
    • 2:
       
      CommentAuthorMq
    • CommentTime18 Apr 2024
     
    Fajne! Przysiedziałem z F1 wciśniętym w Altirze kilka minut. Sądząc po ilości wystąpień attract mode, myślę, że całość z normalną prędkością rysuje się jakieś 1,5h na oko. (Attract mode jeśli dobrze pamiętam włącza się po 10 minutach?).
    • 3: CommentAuthormono
    • CommentTime18 Apr 2024
     
    Atract się wyłącza SHIFT+CONTROL+A.

    Cała przekładka trwała raptem 5 minut, bo poza zmianą wielkości liter, COLOR trzeba było na SETCOLOR i DRAW..TO na COLOR:PLOT:DRAWTO. No i INKEY$ na PEEK. Przyjemnie.
    • 4:
       
      CommentAuthorjhusak
    • CommentTime18 Apr 2024 zmieniony
     
    6014 sekund (licząc 50 ramek na sekundę), atari800 w turbo liczy 58 sekund z 50hz odświeżaniem.
  1.  
    There was something similar in german Happy Computer magazine (or Atari Magazin) in the 80s, named Apple mountains or something like that.
    • 6:
       
      CommentAuthorcrrn
    • CommentTime19 Apr 2024
     
    @mono
    podaj, proszę link do tego programu na C+4. dzięki
    • 7: CommentAuthortebe
    • CommentTime19 Apr 2024
     
    w pierwszym poście jest ten link, na samym początku tej strony
    • 8: CommentAuthormono
    • CommentTime19 Apr 2024
     
    @CharlieChaplin: It's possible, this program paints a projection of the one of well known fractals. Do you remember what issue of magazine it was?
    • 9:
       
      CommentAuthorBca
    • CommentTime21 Apr 2024
     
    75 COLOR 3:PLOT U,V:DRAWTO U,V1:COLOR 2:PLOT U1,V:DRAWTO U1,V1:COLOR 1:DRAWTO U,V1
    • 10: CommentAuthorCuzz
    • CommentTime22 Apr 2024
     
    bca w ogólniaku coś takiego miałem tylko w ac logo, rysowaliśmy jakieś fraktale.
  2.  
    Found it!

    Atari Magazin 4-1987 (July/August-1987), pages 58-60: "Apple Mountains". The picture is the same as Apple Canyon, so someone either got inspired by this type-in listing or simply ripped it...

    EDIT: Aha, looks like a C64 listing came first (appeared in german 64er Sondermagazin 1986 by Markt & Technik, page 124) and the listing from Atari Magazin was "inspired" by it. But the A8 version is a bit enhanced, one can type in and calculate various values and save the pictures onto diskette. (Calculating will take quite some time, with emulators set to full speed, one can save time!)

    Usage:
    insert diskside A, run Apple.BAS (start program with GOTO 5); insert diskside B, choose 6 from the menu (load picture), type in D:Bild1; choose 2 to view the picture; if you choose 4 for Directory, press START to return to menu;
    • 12: CommentAuthormono
    • CommentTime24 Apr 2024
     
    @CharlieChaplin: Thank you, thank you, thank you!