forum speccy.pl

ZX Spectrum => PROGRAMOWANIE => Wątek zaczęty przez: ZbyniuR w 2018.04.09, 17:54:06

Tytuł: Mini duperelki w Basicu
Wiadomość wysłana przez: ZbyniuR w 2018.04.09, 17:54:06
Cuś a'la wygaszacz ekranu z rameczek.   Na mnie działa hipnotyzująco.  :)

10 MODE 1:INK 0,0:BORDER 0:DEFINT a-z:a$=CHR$(150):b$=CHR$(156):c$=CHR$(147):d$=CHR$(153):e$=CHR$(154):f$=CHR$(149):g$=CHR$(9)
20 INK RND*15 MOD 3+1,RND*26:k=RND*2+1:PEN k:x=RND*29+1:y=RND*22+1:s=RND*10+2:w=RND*6+2:LOCATE x,y:PRINT a$STRING$(s,e$)b$:y=y+1:FOR a=1 TO w:LOCATE x,y:PRINT f$STRING$(s,g$)f$:y=y+1:NEXT:LOCATE x,y:PRINT c$STRING$(s,e$)d$;:GOTO 20

Jak komuś nie chce się wklepywać, to WinApe ma opcję Ctrl+F5 do wklejania tekstów. ;)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: KWF w 2018.04.09, 18:08:35
Ładne. A coś takiego na ZXa?
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 10:08:04
Prosz :)
edit:
BTW, można to rysować trochę szybciej... ale tak jest bardziej zen ;)
TAP podmieniłem na identyczny z tym załączonym później w wątku.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: KWF w 2018.04.10, 10:16:46
steev: dzieki
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 10:45:21
No i nie dało mi spokoju...
(scroll included ;) )
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: KWF w 2018.04.10, 10:55:13
ramki2 dzialaja pod emulatorem (EightyOne), ale pierwszego programiku nie moge odpalic. Prosze. wrzuci jego listing.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 11:01:49
Dziwne.
Zobacz tę wersję...
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: KWF w 2018.04.10, 11:10:39
Dzieki.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 13:24:50
Wersja najszybsza, z pewną dozą preprocessingu.
I zabierzcie mi emulator... :/
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: Tygrys w 2018.04.10, 13:52:03
to jak masz wenę, coś na intro compo napiszesz?;)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 14:00:42
W basicu?  :o
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: KWF w 2018.04.10, 14:04:13
Aby bylo "zen", tylko w BASICu ;)

Pozwolisz, ze splagiatuje Twoja wersje rameczek  w wersji na Zeddiego. ;)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 14:28:50
Pozwolisz, ze splagiatuje Twoja wersje rameczek  w wersji na Zeddiego. ;)
Feel free.
Tylko nie szalej z kolorami ;)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: ZbyniuR w 2018.04.10, 14:58:16
Jeeejku co tu się dzieje?  Tyle wpisów a żaden o CPC. ;)

Uruchomiłem te ZXowe ramki, jakoś nie mam teraz natchnienia by to dokładnie analizować, ale co robią POKE w 10 i RANDOMIZE POKE ?

Rozumiem że tu trzeba zdefiniować znaki ramek, a STRING$ zastąpić FOR-NEXTami, ale po co to ma aż tyle zmiennych i linijek?

W mojej wersji nie losuje zbyt wąskich ani zbyt dużych ramek aby był mniejszy rozgardiasz na ekranie. Tu widzę że ekran przesuwa regularnie, a w mojej wersji przesuw jest chaotyczny i wynika z tego że niektóre wyższe ramki zaczyna rysować na tyle nisko że przesuw jest pożądanym skutkiem ubocznym, bo przy okazji ekran jest mniej zawalony co wydaje mi się bardziej estetyczne. :)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.10, 16:36:48
Uruchomiłem te ZXowe ramki, jakoś nie mam teraz natchnienia by to dokładnie analizować, ale co robią POKE w 10 i RANDOMIZE POKE ?
POKE w 10 wskazują na obszar gdzie są zdefiniowane ramki.
Tak, można je załadować pod adres domyślny i wtedy linia 10 jest niepotrzebna.
RANDOMIZE PEEK inicjalizuje generator liczb pseudolosowych licznikiem ramek ekranu.

Cytuj
Rozumiem że tu trzeba zdefiniować znaki ramek, a STRING$ zastąpić FOR-NEXTami, ale po co to ma aż tyle zmiennych i linijek?
Żeby nie trzeba było używać fornextów :>
Procedura rysująca ramki w wersji 3 nie ma ani jednej pętli (poza nieaktywnymi w zasadzie liniami tworzącymi grafikę i zmienną V$)
Analizuj wersję pierwszą, będziesz miał minimum treści :)

Cytuj
W mojej wersji nie losuje zbyt wąskich ani zbyt dużych ramek aby był mniejszy rozgardiasz na ekranie. Tu widzę że ekran przesuwa regularnie, a w mojej wersji przesuw jest chaotyczny i wynika z tego że niektóre wyższe ramki zaczyna rysować na tyle nisko że przesuw jest pożądanym skutkiem ubocznym, bo przy okazji ekran jest mniej zawalony co wydaje mi się bardziej estetyczne. :)
W mojej ramki są losowane dokładnie w przestrzeni ekranu.
Przesuw dodałem sztucznie, żeby ekran nie był cały czas zawalony :)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: smok.wawelski w 2018.04.10, 21:06:30
steev, możesz wysłać źródło w .txt - skompiluję sobie Borielem i zobaczę jak szybko chodzi :)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.11, 00:57:27
Nie mam, pisałem prosto w emulatorze... :)
Musisz sobie w printach odpowiednie UDG powstawiać, bo LLIST zamienił je wszystkie na pytajniki...
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: ZbyniuR w 2018.04.11, 01:17:07
A czy da się jakoś odwrotnie, tzn listing w txt wrzucić do emulatora? Jeśli tak to jak i do którego?

Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.11, 01:47:45
zesarux, podpinając plik jako keyboard spool file.
Mocno upierdliwe, jeśli plik z programem nie jest wstępnie 'stokenizowany' (sugerowałbym wtedy odpalić z ROMem typu gosh wonderfull, plus4 czy opense)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: matofesi w 2018.04.11, 10:11:11
Albo zmakebas, który tłumaczy tekst na kod BASICowy i zapisuje do tapa.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: smok.wawelski w 2018.04.11, 15:41:37
Miałem wenę na przerobienie na Boriela. Co 200 iteracji czyszczę ekran.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.12, 09:41:35
U mnie przycina mniej więcej raz na cykl kasowania (na dwóch różnych emulatorach)
Hm, to co, teraz pora na asembler?  ;)
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: smok.wawelski w 2018.04.12, 10:14:33
Co masz na myśli mówiąc o przycinaniu?
Dałem zwykły borielowy CLS :) I sprawdzałem na Fuse.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: ZbyniuR w 2018.04.12, 13:13:17
Chwilunia co tu się dzieje?

Założyłem ten wątek w dziale Amstrada a ktoś go przeniósł do Programowania ZX. wrrr

A ja się dziwiłem skąd tu taka nadzwyczajna aktywność jak na Amstradowy dział, w dodatku już od 2go posta nic o CPC.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: steev w 2018.04.12, 14:28:14
Co masz na myśli mówiąc o przycinaniu?
Dałem zwykły borielowy CLS :) I sprawdzałem na Fuse.
Nic, przepraszam.
To tylko mój domowy komputer zdycha.
Sprawdziłem na innym i jest OK.
Tytuł: Odp: Mini duperelki w Basicu
Wiadomość wysłana przez: Tygrys w 2018.04.12, 15:11:27
Ja przeniosłem wątek, bo jest o programowaniu, do tego na wiele platform.