OldComp.cz

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


Právě je 28.03.2024, 16:18

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




Odeslat nové téma Odpovědět na téma  [ Příspěvků: 6 ] 
Autor Zpráva
 Předmět příspěvku: Obarvování textu v AMOSu
PříspěvekNapsal: 14.05.2014, 22:33 
Offline
Site Admin
Uživatelský avatar

Registrován: 11.05.2013, 23:48
Příspěvky: 10111
Bydliště: Praha
Has thanked: 1953 times
Been thanked: 1517 times
Dodnes obdivuju BASIC na Spectru, že jste mohli obarovat text bez problémů přes extended a rovnou viděli výsledek. Něco takového je v AMOSu zřejmě nemyslitelné. Je ale možné místo PEN x,y za každou změnou barvy nějak analyzovat písmo ve stringu a třeba donutit AMOS, aby vše za *-% vyprintil jako červený text na bílém pozadí, resp. za *-+ jako modrý text na šedém? Čili pro speciální znaky nadefinovat barvy?
Že bych měl příkaz:
OBARVENI ["*-%AH*-+OJ"]
Aby se to vyobrazilo takto:
AHOJ
Což by samožřejmě obhospodařovala nějaká podprocedura.

(barvy se tu na pozadí nedají měnit, takže si představte, že ta modrá je na šedém)

_________________
Amiga/Amstrad/Atari/Commodore/Mac/Nintendo/PS/PC/Sega/Tandy/ZX


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Obarvování textu v AMOSu
PříspěvekNapsal: 15.05.2014, 09:23 
Offline
Kecálek
Uživatelský avatar

Registrován: 12.05.2013, 19:30
Příspěvky: 210
Has thanked: 18 times
Been thanked: 48 times
Jo to neni problem ne? Barva na pozadi pod znakem menit jde.


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Obarvování textu v AMOSu
PříspěvekNapsal: 15.05.2014, 09:45 
Offline
Kecálek
Uživatelský avatar

Registrován: 12.05.2013, 19:30
Příspěvky: 210
Has thanked: 18 times
Been thanked: 48 times
Citace:
OBARVENI["^21obarvi ^50text podle m^41i^53s^64t^75i^86ca"]
OBARVENI["^20a takhle se dÁ psÁt tak pĹknĹ, co?"]
Procedure OBARVENI[TXT$]
Paper 0
Pen 1
For R=1 To Len(TXT$)
ZNAK$=Mid$(TXT$,R,1)
If ZNAK$="^"
Paper Val(Mid$(TXT$,R+2,1))
Pen Val(Mid$(TXT$,R+1,1))
Add R,2
Else
Print ZNAK$;
End If
Next R
Print
End Proc



Tady to máš :-)

hele znak striska je ridici znak prvni cislo za striskou je cislo barvy inkoustu druhe cislo je cislo barvy pozadi, tedy papíru.

Hele máš - tedy jen 10 barev k pouziti, ofcoz se to da vychytat na barev vic, ale si myslim ze ti to bude stacit takhle...


Přílohy:
igfarbenag.zip [454 bajtů]
537 krát
Nahoru
 Profil  
 
 Předmět příspěvku: Re: Obarvování textu v AMOSu
PříspěvekNapsal: 15.05.2014, 15:10 
Offline
Site Admin
Uživatelský avatar

Registrován: 11.05.2013, 23:48
Příspěvky: 10111
Bydliště: Praha
Has thanked: 1953 times
Been thanked: 1517 times
Super, něco s tím zkusím vyrobit a uvidím, jak rychlé to bude. Přecijen koukám, že to pak vypisuje přes PRINT. Hádám ale, že se to dá nahradit TEXTem, že jo?

_________________
Amiga/Amstrad/Atari/Commodore/Mac/Nintendo/PS/PC/Sega/Tandy/ZX


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Obarvování textu v AMOSu
PříspěvekNapsal: 15.05.2014, 18:02 
Offline
Kecálek
Uživatelský avatar

Registrován: 12.05.2013, 19:30
Příspěvky: 210
Has thanked: 18 times
Been thanked: 48 times
Jo da uplne v pohode. Jen musis zmenit paper a pen za ink.


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Obarvování textu v AMOSu
PříspěvekNapsal: 16.05.2014, 10:44 
Offline
Site Admin
Uživatelský avatar

Registrován: 11.05.2013, 23:48
Příspěvky: 10111
Bydliště: Praha
Has thanked: 1953 times
Been thanked: 1517 times
Jasný. Díky

_________________
Amiga/Amstrad/Atari/Commodore/Mac/Nintendo/PS/PC/Sega/Tandy/ZX


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ů: 6 ] 

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 1 návštěvní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