ZX Spectrum graphics (Anemos)

Τα δικά μας προγράμματα!

Συντονιστής: Developers

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Τετ Νοέμ 24, 2010 6:30 pm

Η πρώτη μου πληκτρολόγηση μετά από τόσα χρόνια!
ένα ωραίο και μικρό προγραμματάκι που κάνει πολλές γραφικές παραστάσεις & ήχο στον Spectrum μας!
Τον κώδικα τον βρήκα από ένα παλιό ξένο περιοδικό!

Ενα βιντεακι..
δεν τέλειωσε το πρόγραμμα.. και δεν ξέρω μετά από πόση ώρα τελειώνει!
Πιθανά να μη σταματάει ποτέ και να βγάζει συνέχεια καινούριους συνδυασμούς γραφικών..



ο κώδικας

Κώδικας: Επιλογή όλων

10 BORDER 1: PAPER 7: INK 0: CLS
20 LET X = RND * 255: LET Y = RND * 175
30 LET L = RND * 255: LET M = RND * 175
40 LET U = 4 - RND * 8
50 LET V = 4 - RND * 8
60 LET P = 4 - RND * 8
70 LET Q = 4 - RND * 8
120 FOR K = 1 TO 150
130 BEEP .02, L/5: PLOT X, Y: DRAW L - X, M – Y
140 IF L + P > 250 OR L + P < 5 THEN LET P = -P
150 IF M + Q > 170 OR M + Q < 5 THEN LET Q = -Q
160 IF X + U > 250 OR X + U < 5 THEN LET U = -U
170 IF Y + V > 170 OR Y + V < 5 THEN LET V = -V
180 LET X = X + U
190 LET Y = Y + V
200 LET L = L + P
210 LET M = M + Q
230 NEXT K
240 IF INKEY$ = " " THEN GO TO 240
250 RUN


Το αρχείο έτοιμο σε .z80,για να το τρέξετε από τον δικό σας Spectrum!
Δεν έχετε τα απαραίτητα δικαιώματα για να δείτε τα συνημμένα αρχεία σε αυτήν τη δημοσίευση.
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Πέμ Νοέμ 25, 2010 12:58 am

Και ένα λελούδι που αλλάζει χρώματα..

Κώδικας: Επιλογή όλων

5 BORDER 0: PAPER 0: INK 1 + RND * 7: CLS: FOR t = 124 TO 136
STEP 4
10 FOR a = 0 TO 2 * PI STEP 2 * PI / 12
15 LET x = t + SIN a * 80: LET y = 85 + COS a * 80
20 PLOT x, y
30 LET a1 = a - 2 * PI / 3
35 LET x1 = t + SIN a1 * 80: LET y1 = 85 + COS a1 * 80
40 BEEP .03, y1 / 8: DRAW x1 - x, y1 - y, - 2 * PI / 3
50 NEXT a
55 NEXT t
60 RUN
Δεν έχετε τα απαραίτητα δικαιώματα για να δείτε τα συνημμένα αρχεία σε αυτήν τη δημοσίευση.
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
ZX_Jim +
Z80 power CPU
Z80 power CPU
Δημοσιεύσεις: 1407
Εγγραφή: Παρ Σεπ 04, 2009 1:06 am
Επικοινωνία:

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό ZX_Jim + » Πέμ Νοέμ 25, 2010 1:45 am

Ομορφα είναι! :D
Μπορείς με το Basin, να κάνεις απ' ευθείας αντιγραφή τον κώδικα και το τρέξεις στο PC... ;)
http://zxjim.blogspot.gr/

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Πέμ Νοέμ 25, 2010 1:52 am

σε τι το αποθηκεύει μετα? το τρέχει μετα ο emulator σαν Ζ80?
για δωσε αυτο το προγραμμα .. :D
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
ZX_Jim +
Z80 power CPU
Z80 power CPU
Δημοσιεύσεις: 1407
Εγγραφή: Παρ Σεπ 04, 2009 1:06 am
Επικοινωνία:

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό ZX_Jim + » Πέμ Νοέμ 25, 2010 1:57 am

http://zxjim.blogspot.gr/

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Πέμ Νοέμ 25, 2010 11:22 am

Το δοκίμασα για λίγο,περισσότερες από μια γραμμή κώδικα δε μπορεί να πάρει στην επικόλληση?
μια γραμμή μπορεί να πάρει και ο Spin emulator που κάνει το ίδιο..
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
ZX_Jim +
Z80 power CPU
Z80 power CPU
Δημοσιεύσεις: 1407
Εγγραφή: Παρ Σεπ 04, 2009 1:06 am
Επικοινωνία:

Re: ZX Spectrum graphics (Anemos)

Μη αναγνωσμένη δημοσίευσηαπό ZX_Jim + » Πέμ Νοέμ 25, 2010 3:08 pm

Πολλές μπορεί να πάρει, αλλά πρέπει πρώτα να τις επικολλήσεις στο "Σημειωματάριο" ή αλλιώς "notepad"
και από εκεί να τις κάνεις αντιγραφή... Πρέπει να φύγει η "μορφοποίηση" που έχει το κείμενο!
Βέβαια μπορεί να χρειαστεί κάποιες διορθώσεις, αλλά είναι πολύ λίγη δουλειά! :)
http://zxjim.blogspot.gr/


Επιστροφή σε “* Home Micros programming *”



Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: 1 και 0 επισκέπτες