OldComp.cz

Komunitní diskuzní fórum pro fanoušky historických počítačů


Právě je 28.03.2024, 12:11

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]




Odeslat nové téma Odpovědět na téma  [ Příspěvků: 52 ]  Přejít na stránku Předchozí  1, 2, 3, 4  Další
Autor Zpráva
PříspěvekNapsal: 02.03.2021, 22:08 
Offline
Profík

Registrován: 28.07.2018, 14:37
Příspěvky: 917
Has thanked: 43 times
Been thanked: 411 times
To Pavel.Krivanek: Díky za odkaz. Velice zajímavé. Pro nás, co máme klapky na očích a vidíme jen úzkým úhlem dopředu to přináší cenné zkušenosti, které nemusíme objevovat znovu a znovu.


Nahoru
 Profil  
 
PříspěvekNapsal: 02.03.2021, 22:15 
Offline
Profík

Registrován: 15.01.2014, 20:08
Příspěvky: 782
Bydliště: Šlapanice
Has thanked: 129 times
Been thanked: 97 times
Pavel.Krivanek píše:
> ....
Je to např. v knize Můj přítel Didaktik Gama, strana 78
https://web.archive.org/web/20160909001 ... daktik.pdf

Jo to by mohlo být ono.

_________________
Ne všichni jsme měli z češtiny za jedna, aneb jsem dyslektik a dysgrafik.

http://www.sapi.cz/


Nahoru
 Profil  
 
PříspěvekNapsal: 02.03.2021, 22:20 
Offline
Radil

Registrován: 28.11.2020, 19:52
Příspěvky: 287
Bydliště: Košice
Has thanked: 30 times
Been thanked: 119 times
Chlapi, nejak ste sa tu o tom rozpísali. To aby som tu prepísal ďalší zaujímavý program, ktorý si pamätám ešte z mladosti (cca 1991 r.) :D


Nahoru
 Profil  
 
PříspěvekNapsal: 02.03.2021, 22:38 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Zatím jsem tam MOVE -20,-20 nechal kvůli shodnému času vykreslování - plotr se chová stejně jako s originálem programu. Nechávám to vykreslit znova jak se projeví urychlení čistě Basicovských výpočtů. Ta varianta s nulovým posunem v ose Y by ušetřila ještě část z těch cca 6 sekund na čáru když se vrací zpět. Je 81 čar, tak by to ještě trochu urychlilo, bratru 3-4 minuty.

Výsledek kreslení oproti původním cca 90 minutám je 63 minut, velice slušné :-).


Nahoru
 Profil  
 
PříspěvekNapsal: 02.03.2021, 23:23 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 09.10.2013, 19:04
Příspěvky: 1403
Has thanked: 130 times
Been thanked: 71 times
Ploter by bol rýchlejší hlavne v duplex režime.

_________________
Sharp MZ-821
Milsa MZ-841


Nahoru
 Profil  
 
PříspěvekNapsal: 02.03.2021, 23:56 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
A dá se takový režim v ovladači na PMD zapnout?


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 00:08 
Offline
Profík

Registrován: 15.01.2014, 20:08
Příspěvky: 782
Bydliště: Šlapanice
Has thanked: 129 times
Been thanked: 97 times
To chce nějakou chtrystiku co bude s tím plotrem cloumat aneb třeba něco ve stylu co vyšlo v AR/ME 90.

_________________
Ne všichni jsme měli z češtiny za jedna, aneb jsem dyslektik a dysgrafik.

http://www.sapi.cz/


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 00:29 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Podle mě by jediná chytristika by byla optimalizace pohybu pera programem, tedy že ten by počítal grafiku zleva doprava a následně zprava doleva. Ten ovladač není na nějaké urychlování práce dělaný, ostatně taky jak když vlastně pouze poslouchá co mu říká Basic a to následně transformuje o kolik bodů X,Y vlevo nebo vpravo, PEN down, PEN up a toť vše. Takže teoreticky udělat 2 smyčky, které by počítaly každá svým směrem a vyhodit to MOVE -20,20,-20,20 tak by se dalo udělat obousměrné kreslení :-). Ale nevím jak moc reálně rychlejší by to v tom Basicu bylo, mít v programu o 2 vnořené smyčky navíc. :P


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 10:53 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Upravil jsem program aby běžel možná ne tak rychle, protože je jedna smyčka navíc, ale tak aby se minimalizoval jalový pohyb plotru po ploše. :-)
Kód:
100 GCLEAR:SCALE-20,30,-20,30
110 FORY=20TO-20STEP-.5:FORX=30TO-40STEP-1:R=SQR(X*X+Y*Y)
120 IFR=0THENPLOT8.5,20:NEXTX
130 PLOTY/2+X+8.5,SIN(R)/R*20+Y:NEXTX
135 Y=Y-.5:FORI=-40TO30STEP1:R=SQR(I*I+Y*Y)
137 IFR=0THENPLOT8.5,20:NEXTI
140 PLOTY/2+I+8.5,SIN(R)/R*20+Y:NEXTI:NEXTY


Tak uvidíme jak se to (ne)zrychlí když plotr nebude PMD brzdit :-). A opravdu to funguje viz https://ulozto.cz/tamhle/cSv7TcBRDeV5

A výsledek se dostavil - 37 minut čistého času. A ještě mám jeden nápad v rukávu ;).


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 13:14 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Ještě mě napadla jedna drobnost - zbavit se opakovaného dělení byť 2 a jen sčítat. Plotr sice dosáhl na 34 minut jako s neupraveným programem ale když odpadne režie ovladačem plotru, obrázek se na obrazovku vykreslí za něco pod 15 minut, tedy 25% původního času :-). To znamená, že cca 50% z celé doby kreslení tak slupne ovladač plotru a fyzické kreslení na papír :-).

Kód:
100 GCLEAR:SCALE-20,30,-20,30
110 FORY=20TO-20STEP-.5:C=Y/2+8.5:FORX=30TO-40STEP-1:R=SQR(X*X+Y*Y)
120 IFR=0THENPLOT8.5,20:NEXTX
130 PLOTY/2+X+8.5,SIN(R)/R*20+Y:NEXTX
135 Y=Y-.5:D=Y/2+8.5:FORI=-40TO30STEP1:R=SQR(I*I+Y*Y)
137 IFR=0THENPLOT8.5,20:NEXTI
140 PLOTD+I,SIN(R)/R*20+Y:NEXTI:NEXTY
145 END


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 15:35 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 09.10.2013, 19:04
Příspěvky: 1403
Has thanked: 130 times
Been thanked: 71 times
Czech Human píše:
Podle mě by jediná chytristika by byla optimalizace pohybu pera programem, tedy že ten by počítal grafiku zleva doprava a následně zprava doleva. Ten ovladač není na nějaké urychlování práce dělaný, ostatně taky jak když vlastně pouze poslouchá co mu říká Basic a to následně transformuje o kolik bodů X,Y vlevo nebo vpravo, PEN down, PEN up a toť vše. Takže teoreticky udělat 2 smyčky, které by počítaly každá svým směrem a vyhodit to MOVE -20,20,-20,20 tak by se dalo udělat obousměrné kreslení :-). Ale nevím jak moc reálně rychlejší by to v tom Basicu bylo, mít v programu o 2 vnořené smyčky navíc. :P

To som myslel. Veď to je duplex, nie?

_________________
Sharp MZ-821
Milsa MZ-841


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 15:56 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Ano, pero se nikam daleko nehýbá a začíná skoro tam kde předtím skončilo. Však kresba za 34 minut je docela rozdíl oproti i hodině, nebo původní hodině a půl :-). A vzhledem k tomu jak je optimalizovaný Basic by ten ovladač určitě taky nějakou "optimalizaci" snesl :twisted: .


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 18:26 
Offline
Profík

Registrován: 15.01.2014, 20:08
Příspěvky: 782
Bydliště: Šlapanice
Has thanked: 129 times
Been thanked: 97 times
Ona ta chytristika pomůže hlavně při tisku textu. V grafice kde se tiskne hromada krátkých úseček to bude spíše kontraproduktivní. Ta zmiňovaná chytristika má vyrovnávací paměť na 256 bytu a test na další data se dělá, až se dokončí příkaz a po načtení dat se ještě chvíli počká, zda nedorazila další data. Při tisku textu není problém zaplnit paměť, aneb po každém znaku se testuje, zda jsou další data k dispozici. Jenže u grafiky než to stihne BASIC spočítat tak chytristika už kreslí, takže vyrovnávací paměť je furt prázdná.

Pokut jde o vlastní algoritmus, co kresli tak ten bude napsán asi dost efektivně, aneb jsem jich už několik disasembloval a všechny byli stejné teda pokut jde o kód psaný pro 8080A a i část co se stará o tis znaku je dosti podobná až stejná. Zásadní rozdíl je v podprogramech co skládají výstupní slovo motory. Pro MINIGRAF nebo ALFI je to velice jednoduché ale pro XY41xx je to složité jak mlátička ale v principu to vyjde rychlostně na stejno aneb mezi kroky je čekací smyčka. Spíše limitují faktor je jak rychle daný plotr umí kreslit a jak je programově nastavená rychlost.

Ta chytristyka má výhodu v tom že jde ten plotr připojit k čemukoliv, co umí tisk na paralelní tiskárnu …

_________________
Ne všichni jsme měli z češtiny za jedna, aneb jsem dyslektik a dysgrafik.

http://www.sapi.cz/


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 23:12 
Offline
Radil

Registrován: 28.11.2020, 19:52
Příspěvky: 287
Bydliště: Košice
Has thanked: 30 times
Been thanked: 119 times
Okrem iného, XY41xx plottre majú nevýhodu dlhého ovládača, cca 6kB, ktorý je ešte aj v oblasti VRAM. Tá je ale rezervovaná pre prípadný ovládač PMD32 (booter v PMD-2(A)). Minigrafu a ostatným stačí iba 2kB v klasickej oblasti 7000h v PMD-1/2(2). Zaujímalo by ma ale, jestli mali všetky tieto plottre, včetne tlačiarní, písané ovládače aj pre PMD-3, lebo zatiaľ som ich videl iba pre staršie verzie.


Nahoru
 Profil  
 
PříspěvekNapsal: 03.03.2021, 23:26 
Offline
Óm Nejvyšší
Uživatelský avatar

Registrován: 07.07.2019, 22:14
Příspěvky: 3766
Has thanked: 269 times
Been thanked: 452 times
Mimo BT-100, pro kterou ovladač až vloni upravil rombor je odpověď jednoduchá - není nic. Nicméně dá se to trochu kontrovat příkazem JUMP FFF0, který PMD 85-3 přepne do režimu PMD 85-2A. Poslední PMD přišlo už příliš pozdně a v malých počtech a přitom takhle na nich staré ovladače fungovaly, tak nikdo neměl potřebu je moc upravovat než všechno převálcovalo PC...


Nahoru
 Profil  
 
Zobrazit příspěvky za předchozí:  Seřadit podle  
Odeslat nové téma Odpovědět na téma  [ Příspěvků: 52 ]  Přejít na stránku Předchozí  1, 2, 3, 4  Další

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 2 návštevníků


Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Hledat:
Přejít na:  
Založeno na phpBB® Forum Software © phpBB Group
Český překlad – phpBB.cz