Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 179098 times)

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1365 on: 2019.July.05. 21:39:01 »
Szerkesztek egy DEF CHAR rutint

Amit később már csak be kell illeszteni
Variációk hirtelen:
1.
        RESTORE  XXXX
        CALL CHAR

XXX  DATA 31,1,2,3,4,5,6,7,8,9

2. Ami a példában van
       CALL CHAR(31,1,2,3,4,5,6,7,8,9)

Melyik tűnik kezelhetőbnek.

Ez biztosan jól működik? Az első (set characteres) módszer változtatja csak meg a 32-es karakter alakját, a következő két módszer szerintem nem jól működik. (Az A változót nem használod fel sehol, és az a 0+0 is fura nekem, mihez kell.)

Azok azért kellenek mert per pillanat nem tudom az eltolásokat meg a start cimet.
A szimulációhoz  kellenek azok a számolások is.
Így pontosabb az értékelés.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8092
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1366 on: 2019.July.05. 21:50:46 »
Szerkesztek egy DEF CHAR rutint
Ha tényleg gyorsabb SPOKE-kal definiálni át a karaktereket zzzippelt programban, mint SET CHARACTER-rel, akkor ez jó ötlet! Játék közbeni karakteres animhoz praktikus lehet! Tudsz majd írni olyat, ahol meg kell adni a SET CHARACTER utáni számokat, és azt átadja a SPOKE-os eljárásnak?
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1367 on: 2019.July.05. 22:03:07 »
Ha tényleg gyorsabb SPOKE-kal definiálni át a karaktereket zzzippelt programban, mint SET CHARACTER-rel, akkor ez jó ötlet! Játék közbeni karakteres animhoz praktikus lehet! Tudsz majd írni olyat, ahol meg kell adni a SET CHARACTER utáni számokat, és azt átadja a SPOKE-os eljárásnak?

A 2. variációra gondolsz?
   rem SET CHARACTER 33,1,2,3,4,5,6,7,8,9
   CALL               CHAR(33,1,2,3,4,5,6,7,8,9)

Vagy milyen formátum írd meg.


Offline Zozosoft

  • EP addict
  • *
  • Posts: 13531
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1368 on: 2019.July.05. 22:17:31 »
Karakter pókoláshoz nem árt tudni az EXOS verziót, 2.0-ban máshol van.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8092
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1369 on: 2019.July.05. 22:30:29 »
A 2. variációra gondolsz?
   rem SET CHARACTER 33,1,2,3,4,5,6,7,8,9
   CALL               CHAR(33,1,2,3,4,5,6,7,8,9)
Igen, erre gondoltam, hogy CALL után kell megadni a számokat, utána valahogy el-spoke-olja a program.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1370 on: 2019.July.06. 14:51:06 »
Karakter pókoláshoz nem árt tudni az EXOS verziót, 2.0-ban máshol van.
Ki használ EXOS 2.0 ?

Ha valami probléma lesz majd javítunk.
Tudjátok mint a windows-nál.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8092
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1371 on: 2019.July.06. 15:48:39 »
Ha valami probléma lesz majd javítunk.
Ha jól sejtem, Zozo erre gondol:

Ez egy basic programból kiragadott két külön rész.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1372 on: 2019.July.06. 16:04:29 »
Igen valami ilyesmi.

Csak felesleges kikérni hacsak nem EXOS ROM-ban változtatták meg a címet.
BASIC-ban még nem találkoztam ennek változásával.

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1373 on: 2019.July.06. 16:34:20 »
Már megint nem tudom hol, milyen néven keressem a  ~ CHARACTER generátor basic progit.

Segítség.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13531
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1374 on: 2019.July.06. 17:30:24 »
Ki használ EXOS 2.0 ?
Minden EP64.

Offline Lacika

  • EP addict
  • *
  • Posts: 2930
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1375 on: 2019.July.06. 17:51:51 »
Szerkesztek egy DEF CHAR rutint

Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...

Code: [Select]
...
130 CALL HFONT
...
2410 DEF HFONT
2420   WHEN EXCEPTION USE NINCSHFONT
2430     EXT "HFONT"
2440   END WHEN
2450   HANDLER NINCSHFONT
2460     CLEAR FONT
2470     SET CHARACTER 145,24,24,60,102,126,102,102
2480     SET CHARACTER 151,24,24,126,96,120,96,126
2490     SET CHARACTER 133,28,24,60,24,24,24,60
2500     SET CHARACTER 146,6,60,102,102,102,102,60
2510     SET CHARACTER 148,66,60,102,102,102,102,60
2520     SET CHARACTER 153,102,92,102,102,102,102,60
2530     SET CHARACTER 149,24,102,102,102,102,102,60
2540     SET CHARACTER 137,102,66,102,102,102,102,60
2550     SET CHARACTER 143,51,102,102,102,102,102,60
2560     SET CHARACTER 129,24,24,60,6,62,102,62
2570     SET CHARACTER 147,24,24,60,102,126,96,60
2580     SET CHARACTER 132,28,16,56,24,24,24,60
2590     SET CHARACTER 134,24,24,60,102,102,102,60
2600     SET CHARACTER 135,102,0,60,102,102,102,60
2610     SET CHARACTER 136,102,102,60,102,102,102,60
2620     SET CHARACTER 138,24,24,102,102,102,102,60
2630     SET CHARACTER 139,102,0,102,102,102,102,60
2640     SET CHARACTER 140,54,36,102,102,102,102,60
2650   END HANDLER
2660 END DEF

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 73.0.3683.103 Chrome 73.0.3683.103
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1376 on: 2019.July.06. 17:58:26 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...

itt most a sebesség a lényeg, ami poke-olással SOKKAL nagyobb
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8092
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1377 on: 2019.July.06. 18:42:30 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb
Karakteres animációnál jó lehet a SPOKE.

Már megint nem tudom hol, milyen néven keressem a  ~ CHARACTER generátor basic progit.
A demokazettán van ilyen. Ennek továbbfejlesztett változata szerény művem az Util programcsokorban, Itt a letöltési link, ezen belül a CHR2012-t kell keresni. Grafikus karakterek tervezéséhez Endi nagyszabású programja áll rendelkezésre valahol, és István is készített ilyet, ami PC-n is futtatható, de az szerintem nem tölthető le sehonnan már.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1378 on: 2019.July.06. 18:44:56 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...


Ha simán BASIC lenne akkor a SET CHARACTER  a jobb sebesség, kevesebb memória.

viszont ha ZZZIP eled akkor már csiga lassú lesz.

Sebesség: SET CHARACTER X,......   v. SPOKE

A példa program 10x írná újra a 128 karaktert.
1. normál SET CHARACTER  .....
2. SPOKE .....
3. CALL >  DEF CHAR ... SPOKE ....

TIME:
BASIC módban
1.  00:03:48
2.  00:05:05
3.  00:09:07

ZZZIP
1.  00:00:27
2.  00:00:06
3.  00:00:06

Ezért nem mindegy mire optimalizáljuk.

Offline Ferro73

  • EP lover
  • *
  • Posts: 765
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 67.0 Firefox 67.0
    • View Profile
Re: BASIC
« Reply #1379 on: 2019.July.09. 22:59:51 »
Nem értek a hang képzéshez.
De látom van sok SOUND egymás után ami a zenét adja pl: Főcimzene de ha hosszú a zene vissza tartja a programot.
Esetleg lehet úgy programozni, hogy két SOUND közé betenni pl a karakter változókat helyezni?
Gondolok :
Code: [Select]
FOR ZENE=1 TO 100
   READ  A,B,C,D
   SOUND ...A, ...B,
   SOUND ...C, ...D,
NEXT ZENE
SET CHARACTER ...
SET CHARACTER ...
SET CHARACTER ...
SET CHARACTER ...

Helyett:
Code: [Select]
FOR ZENE=1 TO 100
   READ  A,B,C,D
   SOUND ...A, ...B,
   SET CHARACTER ...
   SOUND ...C, ...D,
   SET CHARACTER ...
NEXT ZENE

Írom nem értek hozzá.
Még.