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

• Zapomniane hasło?
• Poproś o członkostwo

1. • 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 :)

   • CANYON.LST
   • atari0005.png
     
     
     
     
2. • 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. • 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. • 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.
5. • 5: CommentAuthorCharlieChaplin
   • CommentTime18 Apr 2024

    
   There was something similar in german Happy Computer magazine (or Atari Magazin) in the 80s, named Apple mountains or something like that.
6. • 6:
      
     CommentAuthorcrrn
   • CommentTime19 Apr 2024

    
   @mono
   podaj, proszę link do tego programu na C+4. dzięki
7. • 7: CommentAuthortebe
   • CommentTime19 Apr 2024

    
   w pierwszym poście jest ten link, na samym początku tej strony
8. • 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. • 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. • 10: CommentAuthorCuzz
    • CommentTime7 dni temu

     
    bca w ogólniaku coś takiego miałem tylko w ac logo, rysowaliśmy jakieś fraktale.
11. • 11: CommentAuthorCharlieChaplin
    • CommentTime6 dni temu zmieniony

     
    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;

    • Apple_Mountains.jpg
      
      
      
      
    • Apple_Mountains.zip
12. • 12: CommentAuthormono
    • CommentTime6 dni temu

     
    @CharlieChaplin: Thank you, thank you, thank you!