Welcome, Guest. Please login or register.


Author Topic: PJV Flag (Read 6119 times)

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
PJV Flag
« on: 2024.May.01. 11:12:44 »
Első próbálkozásom  karakteres módban. Ünnephez illően :D

Offline SlashNet

  • EP addict
  • *
  • Posts: 1247
  • Country: ua
  • Enterprise 128K | Cubietruck
    • My old site about Enterprise
Re: PJV Flag
« Reply #1 on: 2024.May.01. 12:40:51 »

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9996
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: PJV Flag
« Reply #2 on: 2024.May.01. 13:50:51 »
Ez igen! Először azt hittem, nem is EP-n fut ez.
Azt nem lehet megcsinálni valahogy, hogy a fehér színű sáv is ugyanakkora legyen, mint a többi? Bár gondolom, így lehet csak kihasználni az összes sort, plusz sor nem tehető be, főleg, hogy az az egy sor is minimum két sorból áll. De ha mondjuk a legfelső (piros) és a legalsó (zöld) sort elvesszük, úgy túl kicsi lesz?
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14760
  • Country: hu
    • http://enterprise.iko.hu/
Re: PJV Flag
« Reply #3 on: 2024.May.01. 14:12:50 »
Ügyes! :smt038

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #4 on: 2024.May.01. 15:06:49 »
Ez igen! Először azt hittem, nem is EP-n fut ez.
Azt nem lehet megcsinálni valahogy, hogy a fehér színű sáv is ugyanakkora legyen, mint a többi? Bár gondolom, így lehet csak kihasználni az összes sort, plusz sor nem tehető be, főleg, hogy az az egy sor is minimum két sorból áll. De ha mondjuk a legfelső (piros) és a legalsó (zöld) sort elvesszük, úgy túl kicsi lesz?
Sajnos így jött ki. Még annyit lehetne hogy fél fél kockát fehérre állítok a pirosból és a zöldből is.
Akkor így néz ki.

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #5 on: 2024.May.01. 15:07:20 »

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9996
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: PJV Flag
« Reply #6 on: 2024.May.01. 20:43:21 »
Akkor így néz ki.
Szerintem jobb így!
Ha a háttérszín ugyanaz lenne, mint a tintaszín, csak jóval halványabb, az vajon jó lenne? Pl. felül sötétpiros, alatta valami szürkés, legalul pedig talán pont maradhatna a sötétzöldes? Bár akkor a keret színe nem passzolna talán.
Még a háttérbe kéne betenni a Himnusznak valami technós verzióját. :D
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline MrPrise

  • Administrator
  • EP addict
  • *
  • Posts: 2762
  • Country: hu
    • Enterprise Forever
Re: PJV Flag
« Reply #7 on: 2024.May.02. 12:02:52 »
Első próbálkozásom  karakteres módban. Ünnephez illően :D
Nagyon jó!

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #8 on: 2024.May.02. 15:20:26 »
Szerintem jobb így!
Ha a háttérszín ugyanaz lenne, mint a tintaszín, csak jóval halványabb, az vajon jó lenne? Pl. felül sötétpiros, alatta valami szürkés, legalul pedig talán pont maradhatna a sötétzöldes? Bár akkor a keret színe nem passzolna talán.
Még a háttérbe kéne betenni a Himnusznak valami technós verzióját. :D
Így se rossz :). Igen valami zene kéne hozzá. A techno Himnuszt azt meghallgatnám :D

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #9 on: 2024.May.02. 15:21:06 »

Offline geco

  • EP addict
  • *
  • Posts: 7172
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #10 on: 2024.May.02. 16:41:30 »
Így se rossz :). Igen valami zene kéne hozzá. A techno Himnuszt azt meghallgatnám :D
Így szerintem sokkal jobb, de lehet még jobb, ha a sötéteket világosítod.
piros: 08h-->48h
szürke: 38h-->0f8h
zöld: 80h-->90h      (itt a 80h a legsötétebb zöld volt, piros 08h-hoz igazítva 10h lett volna az ide illő :) )

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9996
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: PJV Flag
« Reply #11 on: 2024.May.02. 17:48:10 »
Így se rossz :). Igen valami zene kéne hozzá. A techno Himnuszt azt meghallgatnám :D
Tényleg jó így is.
Kétféle Himnusz már van a midi gyűjteményben (a Hungary könyvtárban), talán azok közül is elmenne valamelyik, de majd készíthetek egy kifejezetten technósat. A zene eredeti jellegét, a technó stílust és a számítógépünk típusát figyelembe véve ez a zene meglehetősen stílusteremtő lenne. :D
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Tomato77

  • EP user
  • *
  • Posts: 398
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #12 on: 2024.May.02. 18:25:25 »
Bocs a trollkodásért. :)
Code: [Select]
100 PROGRAM "FLAG"
110 NUMERIC BMP(0 TO 7,0 TO 8)
120 CALL FONT
130 CALL INIT
140 CALL WAVE
150 CALL EXIT
1000 DEF INIT
1010   SET STATUS OFF
1020   TEXT 40
1030   SET 27,144
1040   SET #102:PALETTE 144,144,144,144
1050   SET VIDEO MODE 0
1060   SET VIDEO COLOUR 0
1070   SET VIDEO X 40
1080   SET VIDEO Y 6
1090   FOR I=1 TO 3
1100     OPEN #I:"VIDEO:"
1110     DISPLAY #I:AT I*6-2 FROM 1 TO 6
1120     SET #I:PALETTE 144,RGB(-(I<>3),-(I<>1),-(I=2)),144,144
1130     FOR J=1 TO 6
1140       PRINT #I,AT J,5:"ABCDEFGHABCDEFGHABCDEFGHABCDEFGHABCDEFGHABCDEFGH"(J+I*6-6:J+24+I*6);
1150     NEXT J
1160   NEXT I
1170 END DEF
1400 DEF EXIT
1410   FOR I=1 TO 3
1420     CLOSE #I
1430   NEXT I
1440   SET 27,0
1450   TEXT 40
1460   SET STATUS ON
1470   CLEAR FONT
1480 END DEF
1600 DEF FONT
1610   DATA 0,0,0,24,24,24,0,0,0
1620   DATA 0,0,60,60,60,60,60,0,0
1630   DATA 0,126,126,126,126,126,126,126,0
1640   DATA 255,255,255,255,255,255,255,255,255
1650   DATA 255,255,255,255,255,255,255,255,255
1660   DATA 0,126,126,126,126,126,126,126,0
1670   DATA 0,0,60,60,60,60,60,0,0
1680   DATA 0,0,0,24,24,24,0,0,0
1690   RESTORE
1700   FOR I=0 TO 7
1710     FOR J=0 TO 8
1720       READ BMP(I,J)
1730     NEXT J
1740     SET CHARACTER 65+I,BMP(I,0),BMP(I,1),BMP(I,2),BMP(I,3),BMP(I,4),BMP(I,5),BMP(I,6),BMP(I,7),BMP(I,8)
1750   NEXT I
1760 END DEF
2600 DEF WAVE
2610   X=0
2620   FOR I=0 TO 7
2630     J=MOD(X+I,8)
2640     SET CHARACTER 65+I,BMP(J,0),BMP(J,1),BMP(J,2),BMP(J,3),BMP(J,4),BMP(J,5),BMP(J,6),BMP(J,7),BMP(J,8)
2650   NEXT I
2660   X=MOD(X+1,8)
2670   IF INKEY$="" THEN 2620
2680 END DEF
Azt hittem, hogy gyorsabb lesz, de nem. Alt+W-vel egész jó. :)
Kotasoft

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #13 on: 2024.May.02. 18:38:47 »
Így szerintem sokkal jobb, de lehet még jobb, ha a sötéteket világosítod.
piros: 08h-->48h
szürke: 38h-->0f8h
zöld: 80h-->90h      (itt a 80h a legsötétebb zöld volt, piros 08h-hoz igazítva 10h lett volna az ide illő :) )
Ja, így is jó.

Offline petyo71

  • Beginner
  • *
  • Posts: 47
  • Country: hu
    • Támogató Támogató
Re: PJV Flag
« Reply #14 on: 2024.May.02. 18:43:30 »
Bocs a trollkodásért. :)
Azt hittem, hogy gyorsabb lesz, de nem. Alt+W-vel egész jó. :)
Ügyes :)