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:
      
     CommentAuthorMaW
   • CommentTime20 Jan 2026 23:07 zmieniony

    
   5 REM ODTWARZANIE MELODII W PETLI
10 REM MELODY0 (KANAL 0): 6 NUT
20 DATA 0,81,10,8,32
30 DATA 0,91,10,8,32
40 DATA 0,68,10,8,32
50 DATA 0,60,10,8,16
60 DATA 0,45,10,8,16
70 DATA 0,53,10,8,32
80 REM MELODY1 (KANAL 1): 6 NUT
90 DATA 1,81,10,8,32
100 DATA 1,91,10,8,32
110 DATA 1,68,10,8,32
120 DATA 1,60,10,8,16
130 DATA 1,45,10,8,16
140 DATA 1,53,10,8,32
150 REM MELODY2 (KANAL 2): 6 NUT
160 DATA 2,81,10,8,32
170 DATA 2,91,10,8,32
180 DATA 2,68,10,8,32
190 DATA 2,60,10,8,16
200 DATA 2,45,10,8,16
210 DATA 2,53,10,8,32
220 REM MELODY3 (KANAL 3): 6 NUT
230 DATA 3,81,10,8,32
240 DATA 3,91,10,8,32
250 DATA 3,68,10,8,32
260 DATA 3,60,10,8,16
270 DATA 3,45,10,8,16
280 DATA 3,53,10,8,32
290 REM RESET KANALOW
291 DATA 0,0,0,0,100
292 DATA 1,0,0,0,100
293 DATA 2,0,0,0,100
294 DATA 3,0,0,0,100
1000 TRAP 1100
1010 RESTORE 20:REM RESET DATA DO POCZATKU
1020 FOR K=1 TO 4:REM 4 KANALY
1030 FOR N=1 TO 7:REM 6 NUT NA KANAL
1040 READ VOICE,PITCH,DIST,VOL,DELAY
1050 SOUND VOICE,PITCH,DIST,VOL
1060 FOR I=1 TO DELAY*5:NEXT I:REM OPOZNIENIE W RAMKACH VBL (50HZ/10, DOSTOSUJ DLA NTSC 60HZ/10)
1070 NEXT N
1080 NEXT K
1090 RETURN
1100 GOTO 1000

   Hej, mam takie skromne pytanie... czy ktoś jeszcze pisze muzykę "w czystym POKEYu" ?
   *kod basicowy dla atencji ;)

   • SelfTest_player.bas
2. • 2:
      
     CommentAuthorjhusak
   • CommentTime21 Jan 2026 09:34

    
   Co masz na myśli?
3. • 3: CommentAuthordrakon
   • CommentTime21 Jan 2026 12:35

    
   No pewnie chodzi o to, że scalak przetarty izopropanolem ;)
4. • 4:
      
     CommentAuthorMaW
   • CommentTime21 Jan 2026 13:31

    
   Taaa, chciałbyś :P
   
   Chodzi mi o czyste chiptune'y, bez syntezy
   /sampli.
   
   //EDIT: Taki np. Axel F. B-)
5. • 5:
      
     CommentAuthormav
   • CommentTime21 Jan 2026 15:43

    
   Wow, ten kod nawet działa :D
6. • 6: CommentAuthorbruno_j
   • CommentTime21 Jan 2026 17:00

    
   @MaV wielu pisze "w czystym Pokeyu", inna sprawa co z tego Pokeya potrafią wycisnąć np. tacy osobnicy jak
   
   @Foster
   

   
   
   czy @makary
   
7. • 7:
      
     CommentAuthorMaW
   • CommentTime21 Jan 2026 23:15 zmieniony

    
   Wow, nie uwierzyłbym, że to czysty pokey.
   
   ...a ktoś przepisywał melodie z nut na pokeya?
   
   //@mav: a czemu miałby nie działać?
8. • 8:
      
     CommentAuthorKaz
   • CommentTime22 Jan 2026 11:36

    
   Świetne, nietypowe brzmienia.
9. • 9:
      
     CommentAuthorjhusak
   • CommentTime23 Jan 2026 10:31

    
   No i pogadali MaW z mav - em :D
10. • 10:
       
      CommentAuthorKaz
    • CommentTime23 Jan 2026 11:29

     
    Taka sytuacja :)

    • sup.jpg
      
      
      
      
11. • 11:
       
      CommentAuthormav
    • CommentTime23 Jan 2026 14:10

     
    MaW - napisałeś tak to zdanie "kod dla atencji" a więc mógł być AI slopem (tak wygląda). Ja jestem laikiem i nie czytam kodu jak ziomki z matriksa, stąd kod jednocześnie wyglądał na taki, co może zadziałać, jak i na taki, co nie :)
12. • 12:
       
      CommentAuthorMaW
    • CommentTime23 Jan 2026 14:43

     
    Ta, pierwsza wersja napisana przez AI była slopem - ale za to bardzo mi pomógł, bo wyciągnął z romu Self-Testu nutki i przeliczył przebiegu czasowe. Niestety(stety?), player już musiałem napisać sam.
    Przy czym - o ile szeregowe odtwarzanie w basicu poszło mi jak po maśle - tak do teraz siedzę z niedziałającą wersją w MadPascalu włączającą równolegle cztery kanały.
13. • 13:
       
      CommentAuthorMaW
    • CommentTime24 Jan 2026 17:45 zmieniony

     
    Wersja pascalowa w wątku "MadPascal - początki":
    https://atarionline.pl/forum/comments.php?DiscussionID=4825&page=13#Comment_199642