|
|
2015/11/2(Mon) 21:20:39|NO.72709
前世紀の遺物と化した処理を発掘したので手直しして載せます。
基本的に可逆処理なので暗号化などに使えるかも?
|
|
2015/11/2(Mon) 21:21:42|NO.72710
;========================================================
;今更ながら、懐かしのFLマスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも8の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_FLM.bmp" ;変換
DFILE="SAMPLE_FLR.bmp" ;再変換
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10 : cvxors 255,255,255,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\8)or(Y\8))!0 {
mes "サイズが8の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
cvbuffer 11,8,8 : cvbuffer 12,X,Y
X=X/8 : Y=Y/8 : MASU=X*Y : dim FLM,MASU,2
;-------------------------------
;配列作成
;-------------------------------
D=X*Y-1 : E=MASU-1 : F=X-1 : G=Y+1 : H=X+1
if X>=Y : I=Y/2+Y\2
if X<=Y : I=X/2+X\2
repeat I
J=cnt : K=J+1 : L=J+K : M=G+H-2*K : N=M-1 : O=M-2
repeat X-L
A=L*N-1+cnt : B=E-A : C=F*K-cnt : FLM(A,0)=C : FLM(B,1)=C
A=2*J*M+cnt : B=E-A : C=D-C : FLM(A,0)=C : FLM(B,1)=C
loop
repeat Y-L
A=L*O+F+cnt : B=E-A : C=J*H+X*cnt : FLM(A,0)=C : FLM(B,1)=C
A=L*M-G+cnt : B=E-A : C=D-C : FLM(A,0)=C : FLM(B,1)=C
loop
loop
;-------------------------------
;マスク処理
;-------------------------------
repeat MASU
B=(FLM(cnt,0)\X)*8 : C=(FLM(cnt,0)/X)*8
D=(FLM(cnt,1)\X)*8 : E=(FLM(cnt,1)/X)*8
if FLM(cnt,0)=FLM(cnt,1) {
cvarea B,C,8,8 : cvcopy 10,0,0,11
cvxors 255,255,255,11
cvarea 0,0,8,8 : cvcopy 11,D,E,12
}else{
cvarea B,C,8,8 : cvcopy 10,D,E,12
}
loop
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,12 : cvgetimg 12,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end

| |
|
2015/11/3(Tue) 06:56:11|NO.72718
;========================================================
;今更ながら、懐かしのガラス処理を移植しました。
;標準的な24ビットフルカラーで、縦横とも8の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_GLM.bmp" ;変換
DFILE="SAMPLE_GLR.bmp" ;再変換
HV=1 ;縦1 横0
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\8)or(Y\8))!0 {
mes "サイズが8の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
cvbuffer 11,8,8 : cvbuffer 12,X,Y
X=X/8 : Y=Y/8 : MASU=X*Y
;-------------------------------
;ガラス処理
;-------------------------------
repeat MASU
A=(cnt\X)*8 : B=(cnt/X)*8
cvarea A,B,8,8 : cvcopy 10,0,0,11
cvflip HV,11
cvarea 0,0,8,8 : cvcopy 11,A,B,12
loop
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,12 : cvgetimg 12,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end

| |
|
2015/11/4(Wed) 06:51:53|NO.72773
;========================================================
;今更ながら、懐かしの虹色マスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも32の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_NJM.bmp" ;変換
DFILE="SAMPLE_NJR.bmp" ;再変換
MS=1 ;益サイズ 1 2 4 8 16 32 の何れか
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\32)or(Y\32))!0 {
mes "サイズが32の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
cvbuffer 11,MS,MS : X=X/MS : Y=Y/MS : MASU=X*Y
if MS>8 : E=8 : else : E=MS
D=48/E : dim NIJI,D,3
;-------------------------------
;虹色選択
;-------------------------------
repeat D
A=cnt
repeat 3
B=(abs((A*E+16*(3-cnt))\48-24)-8)*32
NIJI(A,cnt)=limit(B,0,255)
loop
loop
;-------------------------------
;マスク処理
;-------------------------------
repeat MASU
A=cnt/X : B=cnt\X : C=(A+B)\D
cvarea B*MS,A*MS,MS,MS : cvcopy 10,0,0,11
cvxors NIJI(C,0),NIJI(C,1),NIJI(C,2),11
cvarea 0,0,MS,MS : cvcopy 11,B*MS,A*MS,10
loop
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end

| |
|
2015/11/8(Sun) 16:57:29|NO.72849
;========================================================
;今更ながら、懐かしのMEKOマスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも16の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_MKM.bmp" ;変換
DFILE="SAMPLE_MKR.bmp" ;再変換
EDIT=0 ;0または1、復元は残りの値を使う
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
dim MAP,9216 : sdim ME,9216*2+1 : gosub *AS
D=0
repeat 9216
repeat 2
A=peek(ME,D) : D+=
if A>=$40 : B=A-$40
if A>=$60 : B=A-$50
if A>=$A0 : B=A-$80
if cnt=0 : C=B*$60
if cnt=1 : C=C+B
loop
MAP(cnt)=C
loop
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10 : cvxors 255,255,255,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\16)or(Y\16))!0 {
mes "サイズが16の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
cvbuffer 12,X,Y
X=X/16 : Y=Y/16 : MASU=X*Y : dim MEKO,masu
dim ME,9216
;-------------------------------
;配列作成
;-------------------------------
repeat MASU
ME(MAP(cnt))=cnt+1
loop
A=0
repeat 9216
if ME(cnt)=0 : continue
B=ME(cnt)-1
if EDIT=0 : MEKO(A)=B
if EDIT=1 : MEKO(B)=A
A+=
if A>MASU : break
loop
;-------------------------------
;マスク処理
;-------------------------------
repeat MASU
B=(cnt\X)*16 : C=(cnt/X)*16
D=(MEKO(cnt)\X)*16 : E=(MEKO(cnt)/X)*16
cvarea B,C,16,16 : cvcopy 10,D,E,12
loop
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,12 : cvgetimg 12,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE
if EDIT=0 {
EDIT=1
} else {
EDIT=0
}
goto *RR
}
end
;-------------------------------
;MEKO配列
;-------------------------------
*AS
ME+="ヨ、スblメ・ソkaソョ・Hヒ。fクウゥタヒネムfAト」eタ?bュキリgハAメモナMEミJヘテキョュェfミマ?ィヘネcレヨnMンaヲエャナョジコヌクD「ュfマケスァヤ?ソュタロスnCネュタフKmー。jメロシM`エiアゥチケネKナヒエCfJマホョブユBオシヘllヲウユiFネ@dァIソcエッIヌ「ァラLヲモメ゙ヨスAヤタウマエjスeケMハシノチウリエ、OケキケcワオネユLホoaGン"
ME+="a・lュツjkフヲメコEaオkミホァッー「IムェアファムレヘMkォdBエヲュヤ`サゥャLlェョ?゙マNャ・ャラG`リM「テモゥメイh、dーAIレザ゙ソ」hB?ル」ユサョメg。ータラォcoャ゙ウルサjヘホjユトロGュDシHャ゚iヤメムmクhリネヲイ゙nマミMリハKhヲハラCdセjチbァッbォ@ナェヘbッメセcラALIヲマDウアdォレェユbェラタォKロクアドィコチLMホナオ゚ナツチ"
ME+="nDKクラネラOdc゚スモkソエチiロツェンロェ「メE`ノmハョロッLヌホマウOムエィヲルウサェネJンbIウBjh、マュソBIュF」ャェ゙DfロA・。?テハスGjEhCgウルホFeLmモヌヨシ「JNlヲマヤモケノノセサ?i」gャ「ヲヲnコOロィoサヤエハfgbhォャキタイクリリマ@レムスコlマKKeトonB゚コハMウihワニノgレ゙ケゥd`JオィァcクルAフ「ヘキエdアヌャスァJD"
ME+="ゥ゙。fルネjヒ」タムキサEョコJユAッヤlAニトナMGレイ・ィソjャケ`ヨワトヨHbホコKEcLHョァキBgッlツア゙ラAM。Dイ@ヒュBjIEjOg・タ」オ@サオウモ゙ナ」bKレDヤ・ミe?dlcウkLhムラoロセエメヤレ`テ`MoFEネL゙ィトLカヌg「ラ@ヂBヒショヒナgパネj`ケォ゙スモメヨaチョLァヨエムアクラdワリカィミ゙LコツNイラサAリテIソEヲツ、FIンネB"
ME+="ンテK・ヌfGd「レク、Jセーアチコツnコカソヒnノキェh`iルエ@Niシmワ?B`ゥjゥラユoトfbソゥナフC。AメN`oテnンホLNnjJdヘimッロヤツッフオフッチムェウbメトヘムNkEウユMナトレ@ツoヤユlJ`テヤヒc、ウD@ヲフンKュチAチGワネシホィコスワソヒスケヒノラBカレルjサツoトユエfKェエAルュヌマ`CンA゙サoウュォスコユソ。イNワネ`キKレ。cォフMe゙"
ME+="シDョシ」モセ@ィナCフクセコセg・ヨタサホOBチキツォ@クモォムレee、エンIigcDFヌ、ヒァンッG。FエcdNユキタノIヨセoミEヤキmfIフG゚ュNeFクゥメA@ンキkcッiョリヒァbnヨテ?ッロcAタO゙Fョ」ハゥハDノnJgトタ゚ヨ?Lモタ「dチ「ンkレォhネーォKヤーkjBソットcリbロケワbオハBbーロヲ」ゥ。・ホEL「ムセム゙co・゙ロノキモネスワマMcリサシj「"
ME+="」スヲワヤサンoキソゥカヘィメMリdュOレエィDJヒdヨEAフeK。サmソホHォェヲロモツオレコァウツl@ACャョDHェbラヘエMaEナキテFッカスcフウサテニケ゚イcdEimIOノィヘBウタlKヤシェ゚@ロkIイテフユbニaNLラ、lネ・Cッョツユ`カba」iLゥi?l゙ヤイニヤュeソニスタo」・ルコサレタcHゥチfアMilァfタ?ウヤリ。ットlエb゙IヒゥチミJミルフEDgフハ"
ME+="ョHニチ「トテオス・ァケDルォNL@Kユサ。Bチチチiモネ゚ヘmNNbeニユHAOヨクLAヲLワOm@ホKlォ@ウヒnュAモェJヘlシヤミイj」ケィネリljIJ。ォッマタ」mcカHマェテaOカ「ケーG`ソゥィ」ヲヤホサOgュエヲタkリGルキDッiチdェDソテbョマムミk゚fス・マユ@イッハッホMハルタヨヘケアエホgセャGシェワワキCeソeH`クネヘハサFmムムlハァオャノ。Dnメム"
ME+="ッヲhケル「OkbHB、MノネヲオlーBナメeciュヲhDキマ`Cイチシヨウ」カホk」fjLチネヲmオワォテシハエハミグiノシlJlDKフェオ、gkGヲォャツコル・NマシNカDネォノ」ッラMトKjemツHソラJフフ@゚」ネトヒャAホラmBヒシィEーシmダア「ォBKメニAロツロBラ゙カソlトホルMメヌカeキhヒハノ?ヲkタムCメ゚JkB」゚c@CfaFェルオnヌョna?、Mョチc"
ME+="gNシォニミkヨクメトトゥヒlシbAMェヲIヤヒッAエG?ヌルdNーノツュ、AヘカD゙テgァュヌNュ」゙フケGレェハ?ムゥレニヤアォタルルーネ?モカチODリEbャ」テLMネリkフbEルHエキ?ホjマノイイk、ソェゥBコhaソヘァッレeカクシフAGム゙B゚ラCタョソノルォiヨ」ミサ?ラオAエjメメコェホHトテナムMャエナAアエァセ・EhノeァBノMjャHbュンCMツCg@Kイ、Gサン"
ME+="マIェガ@トュAk。ワヘコヌトiヤッbネャキョヒセEツサM。CNト@タヘソヌラ。カウLfォウマナA、レワ・ンgロゥラ・jルェlタエ?リヒカDワホトkニンヨhユh@メfIA」クホKャタタメJホィKテリイィロチO゙oイエネィシd、ツLjタ`ツ」ナマH「ユルHOe・h゙bJネdルココヲネ。・ヤォスeセリアンヤウiヨイBソレハヲオヤマカ・クgユdァlゥAケミロjエハツcggiM、?Eeウ"
ME+="スカa゙メJトe」テc・チ`レン。Nライ゚?ック」CテD」dャッンルモglフワNラaアnFモFヤツbゥgフIH゚カAC」ルシKOhョヌ?hイホモヌニミCゥァシエケムaOd。ルニラmユシュbシイエク。ーCnツワヌェュ@イj@ヌケリミムaウGッシjケaルGEマリミッ@ウンオレGケdャmクスミ・サo」ルhサカォ。ヤ゙Kャレャヘ`L?ソメホヒスヒeニmリヤカdコサbo゚アリAcホヤKキOh"
ME+="。ニgフサテdマ・、リf゚カモマfトソアmエー「cヤシネシィマッミ。ニB「エタマヌウマEMiィケルchk`ネルヌカチコサ。I`ヒA゙gオリmeEンfャァdaヤHゥヨユ、CョチnソギE。」・FアヨIEホJヒ」アFeンニo@ゥロkタINノ@lゥーノgャフイKbテKムヲョOニヲユhbツmメェGェLツoシァニケェチサソM「hーニカghクホヌセllEモ@ソフgヌahihカnBO@o、`jカ"
ME+="ラトルmオGヘ@オ?ケMfLチ。C?ヨヒレ・JレG@ィ」ワハMタfコヤャェ「コMOッヒdoCHスキサームAaコソCiレサ@シ`ゥAェJュァGDKカュトヤサ゚モDレシMINソ。ユゥfネjトーフロリncユソケLd?o、カル、ス「ョ・ヒェォ」kコェトI゙mモクjIォイュアァレナメナヌィナCクFfムOコハトメcjム`l、ナDユカiHョニサイ」ニヒソウエalレkDオIOサヨ`イIルJjノカン"
ME+="オヒェcワmナjNGトD・ヲタァKラトムOソーネイソD「ュHhロロGアBBlHヤeHJoElヌ。FイヌヘhKヨ゙フヒヌEルォホワカァアメ」Lネスァ。オcウ`サIケfロユa、?チ「iタカア?ォュシMマネヲヲlLユヌKィ、ィkーニOナコ「アル?JEフェnトツョFォミトヤbキヨリNK、HJオョゥKィトfヤオァfjhnGgnテロhミ・kbナeaノ゙゙ャルユケルツgGソソニツエOgJイヲcュ"
ME+="フンユAaアヤIeーOIAヒlヤ`」Gエjcーイユ「ヤテノcbトCーテンサヲNユノヘリニlユcャJスェリメネiゥーDLiソト@nkCエショ`ョワNォoキnハlラOAlヲネァツa」「キノcルFコヒヨDァヤーア`シニC「ユfョイッヒリャbンクテスャィッヤmゥオフヌKkイェィ`ホョcBBfタゥートミKツOハヨヷhサEmコッヨヌミ、GロメレAス??keツケICスMィフワウラF゚ゥ。スャマ"
ME+="ェBlアクdホネサgfDaマaヌJタヤfコcケFjニナリAJJェミヒョ゚ノォォゥャ@ネ。エセィラツカンDムソハ。ウウサ、k・ヌCDノbキュK@イehヘMユフhラソbAKカfJj`kニ?フjウロムツホ。@@ソロハ「KハフソルイメホテネmIクHDBントリcエフjオn「ア」ェシクKddjベォケーeィOイォコフ@ヨソOォイサワセCJ、テDマEワ`ス`OKァロキDツMォIチd@セツイァミメ"
ME+="ウシクlキヒネホローシLョヘHma?ヨネイgリウキタハ・ユセ?サ゚Lネ「DミmキツトエoマJオクHァクァh?bユJCMフヲハeイCン?mGJニソマトNマテョ゙Cィaメリm・ロムgチフニヘリラヌイnB・タLlヌ?ァフgン、ュFb゚?CFIヤェIdムケヤユロエネフlbルbmヨBロフイN?ツエKタmトツミNヨヒ`oナノiミタレJiキゥゥCモリワ」ョミdニEロ゙ツキイヤ。aホeGh?ナロb"
ME+="ャワクレケ。キFシCャKFGロァモノメGィmkJュjサタシホ「リ、ンoヲFゥツムチkスgチェヤ?ムニッeLノリホ`゚CレOョヒbテュヒ、G。ハO゙kワMナフIテCロイ`ナHgマモEムEoI、ルヘhォjミ「コmJcメnヘgJAMcロ?ユnIロ」ンム゚ノナツヲフマホフユホoBニオAEォョaAノ・ニコ、ユKーヘNFョハフャイラメlァイエgピKdウイヒhヘムテツイ。シウテユヨエィシアオネ"
ME+="メツEHIセハュホリgツキカミヨ゙ネ?nナNLェァhj・ン゙ホヲdナリjャHhヤ・ハハHd」ミnヘヨノァクトCgッサDタfEルKハシgヨkスメoェncaュェゥルヲニオオキヌソCGl。@リanA゙KヒタョハェoソュウCfソ@・サスコニeテウネebc」Gト゚ーe」キNカ・ェ」Gklマウ゚レメアbDカ?GgKッチFエスソュニjbハチ゚・ヌ`ィセ、ャBeキ「ソ。Fマ・IbC・Bニーヌフサh"
ME+="スヌコュクイオmーソヨセeナAFキフメ、ユIキcシbNgd?ッカレmOレユエjフクォKEBgBイHfァェネdfヨケモnタヘタmejHoヨウッ・?ノケhモ゙AレGタaォbチクアヲトhaミナkd`ケニスkシトmネ。kェュトャュ゚メCkイウJLMネGッアモユeリL・LヒKホkクcホイkmHタ゚コ」チナツNEヨkヲチヲnゥJMソニkAbaiD`ーンササ「ナoチ?ノKォシェL@テニNクヤdA"
ME+="@エヘカク「ヌoィCネヌナチムョAjミセァ`、ラMヤFAMス。ッneケゥFfテォヘムeネiヘcソGOoOヒゥラヘヘチヲェステナfョNオケテイィタmュレチヘノトノkOクeモGブ、モセィヲfニワアトッnnF、ョmlサォgキ@コoスミホoッォセユ?ノチナdリ@ラギリヒNLセDiレ゙MメdキクロAMシチヒヤ」チソツmoヌ、Bゥj、ッkadワスョニNクユハーサコィヲヒJテijBナキヘキォ"
ME+="ェmJソソOミケGモエモ。ゥラlラbケワフャ゙イネネgイKヲョキ「゚ソヲトIMカ、ワFMシェjョォツn`モラIodメhジハNデオ。テツェタェ`。ォfGeEBワロiC゙ル`LョbゥアLJニセムァノミコDュイォAッツ?ヨdンホFEーMeハホnホォ?ニャヌリgクイモフJラhndgDAエイ゙lFkH「ミkヤヌイ`モスフレAカミMloレウァmママ、゚サゥリ゚k。bJ・チJゥスアオタHLニ"
ME+="テタヤァ・@゙゚ホoァヘモルヨィaリ、iコオォHE「oMAク`MヲトツサクノムCァカAコnイnサaムHチgヤュハツehiスムト・スjDeゥシースiH・キァo」Gナモソンレロヨフaエスウシfaイ@FヒnコラFァュスリ「Fnユョ」BサGウI@ネアE」レオ「カワGAEフゥedCーハュヤ・セヒャフーソムKマFタaォヒヲヤレ、BフムNミNョCコーomスDmムユlBスHョスiックcーェ?hゥタ"
ME+="ムム、ミヲJ゚リツヒヨcシタチテCGmAィメアマ・ト?イgFペBJワkッヨニFハウメFFオエエー`kゥNシ・゚ヨォOシレeチヌキウモキユhロ@iBハソン。gOメャラッソノン「ゥンハINナdDソnネォュコlウメ゚M・@i゙oniIコJキテlトdバ。ロ」メスヲヒg@BiォヨFNェj゙jトッ「fテaモnHd゚ュツMNリンッキアノゥコBトコリセnナネヘウマゥBムュャセケカョテHケミcL"
ME+="cモフ「?シoメケァロノャーkマリヘァフメカキホラ、ニ・ナォ゚レHカコテhニ」ヒNEノコ`E。オル・ァテヤhムモkiOフニlーコfH゙NEレタセシスCュォハァユリシ@ニIオンヂヘヌホョーJmヒミホ・「ーロュヤGヘェiトキッjツAウーjGマワフnヘミ@nhェケホ「ムK゙ヌエKMヘeシャ?Ddンiミ゚ミスbIサワAカケ`トァnリチレアハッャワヌADK?nセ゚oDヲjュ@KeヤAョk゙"
ME+="」bc、ヨコIマ`ォレkネキヤアサウタGオソチマウ」」HレレォトノヒトmナI゚゚ンO。ムァ「hリjgラホヌOアGEォミリィェネッkロァメンヤCaサュ゙ホHメヒムノサモエgスaシ。EユKレB?クセC゚チャチュョオN゙レーンレlNサネo」FCAG・DIfァツマlN`ホ?アリノkシネFkヘロラ・lネェゥワMコcヌA゚チBオエフレカトャh`ラヒIフo、ソネィヌMヨLcロfネlハケeセタヌ・"
ME+="fnキュフウHシムBサーゥnヘDN゙ラカcMウムンメョoヨNFツッogョハミッMュoケンMAワルサdLKHニタレeロbケリ、cNヌjMュチワ@セhJモLスヤァヌイレoeKNアヘホnラマ。oーナヌオfユBュンエトケNmラEュフKfシレ・イFカセヒァmmポオhチハヤヤ「l`ニルチアGoイナネh・ッo。「gOKメeホcLミ、h`ッoャnネユムFユモIメK、ケBH゙ヨjラセウヌゥKケヌカ"
ME+="ワママ「ノリナテマ゙`DリコウキムチラウュラーウトMネDJ゙ユュンレGE。ヌ・オゾルNdタo`nワlOmオoコキ`コJチセトワメiAflghhoヘnチ・ェッシサコImノdオリュノワ「Ic」」ラミ、゙lイcムンeOユaBネケシーメウmbヲDEチkホ」ァマLツアュfヨヤワdmチDbナセJIセキカ「ヨノkッナイニォスラヘク。クレヌヤンルfBノMラAンツヨヒJウラャdホイBョ@ラカ」スサ"
ME+="BォヌミケルIHLフOLdハニ「mm?@NHクサAホgムソゥKHe`゚ク、ヤユス?ヘMJCチ?BCヘカmフィGラソモユLテc・テ`ケフリラgFトェヨ、ヌOEヲーニCマォjィエゥbオカdHコム「fヘcfキ・キロツホn?オJア@ゥュオォメlムウャeロクfホン`gメ゙、ヤgォD`マ?゚ヨbハ、メゥユCケネ、ア「ンソララクefヨキコ?ヒOスゥOnネkルBナルヒLオgナLラエ`ユLlソJラニ"
ME+="MdD゙Iッレソアロキ」ヘテc`ヲjヌスン?ュクレgェELgIーッハツ・メエムホFハォKウナOaツュ@f@bfヌムHhウョヲィンアキaルツEゥ?ン・アタlィセヲミャEスネー」lケ・タeノュBAGスoカblaヘFkkケホォコ「エHヌテミヲルマフュG`iリ「コマヘロヌlコレケlクアhヒクハJォ「モュモサネImィEキヨラOlーiヒヒチ・ニゥDムFFcワエトッノDンヨッk。シンgノケhfF"
ME+="nル?ホIニソユエォヘヘネCモ゚lfスニヌケョタmャdfスク「ェ、KノhヒニハコdテョユbBJワッフカホヲbトGglnシGィcm゚セニホホシレホE@キァチララタcifヒ「オカリLGシiHンJヨJニ。GョネナミBキ`シiラHOiン」ソEヘヘ?ヒ・ヌレ「ヨH・セヤレ?チヘjシィネモゥKテッタハエルIcン`トカラニaェ@キセヨIBミkm`ュgnシウ@。ラ」oEルヤOJmカトチリィKネ・ァ"
ME+="モjMヒョ。nレオoソクコロユノゥテ・ノnーコナナ゚ムhメDオノツニトソeLマレユユkヌワィチCレ、MBョオJムネヨIlF「f・@JワGアiヤルサヌマ。ヌモCィ?ルトjhテ「ヌンワcjキMイOiaナKメケコケlワュ。ヌエN@cGiヲ」ノk@ルナャハレFァJbシヲGコエロLG「NタO?ッコャヤ、マKアEコワLリDムjクOKoネヒnカエDEィィウ@kナ、ルンANチゥAハイEJシッリ」O"
ME+="「oヤLMニサケソハoェョンアラエblカウaョリコャDチワォイフキミロロeIミフCヒjモ・ラュヨフNュマヘHツhIbBレオアdムcヒflA、bヤ・ワレキゥL゚ノI・ネgセワケコMヲウコfツヒfヌFミaナソメオヲンHオサクLクaツ`nソfマfア゚K」レハトCdーチーセコIェカヨー?チモョIゥトュJ`?ッaDアgjA。ェャュシ?kエBKGケ「ホdァツEハlォ゚ハテBIケリァbJイejハ"
ME+="セEヤOAサルヨハBァホAヨabシラオDlソィゥJbラテタロg゙ゥミフシユトjヨ?ャmテウェl゙J「jマリB。ハトミレマb「゙ムエマメmケヤェメメユ゚ソceロoカKイシフFヘG、ァeマスタコGEインmウoaャシn?マヒaエk、ヲニムホルカモコハAgモ・カウネnFホゥフウヷミャヲCInァモウnラルフdbcクヌb?トカツオヨ@カネコフノヌヤクェ゙eMケセGアeャウヨニキアラノイMァD"
ME+="モィ、スF・kオカoレヨ「マォk゙チiエウg「キbィロウhカメLレネャテ・DkMjmシ`゙MHneトL「ィニソiヤAGツLユエ「jミDウク」ユウmヲュィFDbカJロIナレッMマg゚feヤトミm゙ナnキノヲリ」DLレテタjEKeAウdヘイlmEMメjナホチハNリニテサJニトcK゙ラCニB@hl゙`Bハケnオフモッノウウオgルルョヒキ`ァaホルヲンュ。OーゥGゥibゥHルkュミ「kaユ"
ME+="ォ・ウAl?「Nーn?JeOGク`mェテcチラ゙クiFサュ・セJFヒH@メススアIワヤフマ゚レセヌタイ@ロニマフコ、IKI「DオヨァラヲmフゥoハォiィカムaキィbャfヲクォmGCルロケCッイクMンィルモHウーcAソgEュLヲ?AセクーェFュッノテFセロCAシネヘモツヘfムヲゥムHイノマ?j・フI@テレDモュcノfGヒツJ`ロョ、ォn?ケゥャcndホタシMLヲレoセchャcィMcハ"
ME+="Hノ、ゥナiョdマーァーヘツワモCサ@メkサ「「ホノケEセbFdFフツスアルフ、モモNァネAJヤク`メhOンヌッナJCテnウフセdカャムMッサeJモソヘヒ?ウfァ゚ョルーカdスンイLアルCヌアcトレaキス「ィスネHネ゙ュノニリiオ・`・Hフj゚j?ンシ」ャeルLッリモアヒ、LカマJNヨチOFィBホAhO、MヘEoユHリomトAニnイメォoHヌ゚`ゥヘgアBhgタリェ、トム゙シodヲ"
ME+="ハオヤ」ァネソaキHァィヨgNニトッハレヘーコgbMhAサlナタュァfケクウメkヲヤヤノラユAノラnェムヌ゙レoホセ」Eエムiシkトスノュロソ、レn、JnKB「?`゙hサNカーマセ@ミカィリサォホL`jイD`モレJサリ゙GフDヘゥ」クCAタソネlセDoMレロリニヲアテm、゚キカOイロヨルCケベユDキクBタイマ゚ミサCモ?ィcャBレ゚イセnンeォメヲキi゙aOキ`゙iロEゥェjJe"
ME+="ノ「ヨKォモイワウクンォハ@ムルサハッJホナgkノkOラネタ・アGサエ」?eキハlケンGCjedaカーィェOケAjァロAIソFヘョアiャネロゥウセノアIklキDチDシゥLcnnoア`ニニbッワhエ。チシナKサァLァチサムツリ?フホレヨ「コヘクユagィリサAソK、キゥChヒツツ゚n?オィムカレgロEソテミiオナBマmミネnミGャコkユツ「ョルAkキッNnッOェカ`トクィマモコミョワj"
ME+="コォcョンキァォnャMーhoゥ・ェロハcヲシッ゚ィャヤj゙ツンマ゚シ・gDヒ、ハレcタラ。MェョMゥNCンムオトgンEIフゥ゚マェフFレォナォリゥサキコ「ノiクfフDlャトラKラナシ、a「KDハユ?ckfffd・ヌキOーEャシフホヘdレレトポセラヒヌj@EラノヨャゥJラhノミノC゙iiセcl「IBnヒMヨムヌァナLハワE・KO@fcアレLaKCッ?・ヨサヤユーマ・bノー゚?ヴI"
ME+="LAャJJトhマjK」oツDァC`N`ヤタdjJフ」?エナキオヲキ゚ィNE、?OッォテEシケカネヘ。ヲヨN「?Dダ」M゚エンネHLトゥEOラ゚gラーョヌ「?メFヨニiHヲャIマウヒテaロカッーキテーユロソHD・jaNムネeCァィ?ソdナヨヤナモソ?キノホaワイAャメjヤfオーJタュ」ヘィkゥツフツニ、ッ、ヘcヤス@ァ?ノレKKツォワ「スエh`ウaナAミoンサナォJツユクN゚@ウ、"
ME+="ゥIikE゚チ゚オテアーワ゚ォタCネMjノbJ@nIユヘロ゚」aーlcツト@OホラコLサbサスEョサdoハアGFkソンMクgHホサHニイGメセ。ミュコワO。cキエLKhョモニィHタュソカ@プ`エ゚ル`ハ。ェォケエ・ネ」エヤレミイ、・」。タHユ・ュヘトリユnモMムmシヘnワサノDヘ「ヤC?ェDヤ@LレモリムモlユッKノnケfッエnヌコBDe@ェナClチIOfhト`メムロK゙」jOミ"
ME+="ヨナHツCナ゙ェJkムIーKァサケJBMモOdgaLmG`コヒンチトdオヲヌhッリセャヨメハマキネマヲィテクケュキf。リ゚ツコ`ーノケBJfMウナ゙スセメノ・ijヌアホaーOヲーMラアソ@ルゥヘヤセルミ゙ラァネナウケセK「LDGレiケヌミoエアO゚ャユツナDィFキユdァeカカミlエ`DNLDェKカォクkマヲニカシkn、@、チjーーリイァョカ゚ャjタケNィヤDoミhュ。gオOキルエM"
ME+="eメ。HkgFHスOCEfサiノソィGソaタェC」ユナーァK、f「BマBエェセ?CヲサfA「ーユーFト゚ホア」ヌマdィe`ワラ?イケセヨトgエオfセナlスロサobLOムトアヘセスAナロ?スdチニシAナタlケウFiサロC@fノkア、。アスモヨKスカアJLdイeNシッNIォヲレラooイFl・ヒアフd・dワク、コア、ヘオオモヘキケホIァォイfタォロjゥユイョa`チァャケNセアテメjケイC"
ME+="?ツn゙GDイォシキNMセB`@oムッ・ロnmユタテニmeサマb@?oァク゚Cセウ。ヤミウヘ`ェムLマCBCイャJBャラコウカノナmamイfタヌゥソァキボヌサャ、bミチFィイメ@ンゥBィFoウソ?ヤェソoルhルキモソAァノラモャセ・fホIュア」KEニヌdンラEサDjワタハニgナヨGeiコメeツ・ムBウウャツルチス゚ロァ゙dリュeョCワムKヨュiシヒ@モシモIFノJAdマヨササHH"
ME+="ョョeラナュコク」キチeニファ?゙ワonゥヤ@Iシhmnトb゚jァタヨヨBセハキーケ゚ンヤNュワfOiムhアミッifdッnElスィキ。nbc゙ヒcケソLh」ヘ・キレセeチl・「m」GNスユFテHサヒラ゚。タワ@`ケオフfj。ォオナgーヲセミDゥニハaラニHニヨーmキnシAインAワ」イオ。``ニッウエ、ヨCオdヤC゚リヤフmセォヒォヒネモceヘ`f゚D。ヲネ@AギgュDカロnマヲア"
ME+="`カ`ョキLdヌランアワEネォヘlーオッレヤ?ーオロホキーチヤロセgソテ。ヤヤcヒユGc゙コhィ「nアヤッエヌシリEネワマユンlfogo・コケDa゚ホinコワラmMュh」ィネウラ「ヨmタAワOエスィワ`ャモKヌgi゙hd。キテ。クnafDコEァjウモョノjdツ@ルノヤノトォEュ「`gcェmiheヘワmサ・・」ニbFヒュbネレIgニマゲmホミAオeエヲMレEマ」K`ミM゙jコnノゥ"
ME+="cIaK゚CユネIクワnタナリッc?F゙ヘッヘアクmE゙ネEチッDEケ、Kッ@ウCcセヘ。コャシeオレニヌ」。レョnセイhIコレCシム」ムカjレホオゼルeオ゙ソ・イゥィIfナ」ムツクHルコユ。Leゥメミハリトlクモ「ロ?KヌソヲKネオnヲアDワヒDAクマ」ヤウュツAヲCオLミキDセcオNケクヒfモトヨヨイヨホワツbルMFBcG?テェLF、チbスニニoフョムf@テフテケアナgリソ`"
ME+="シマ`B、EモAエ、テヲb。キjラルタャ・ゥエリケシfチNBティeノサネヨ?ュリスヘソ」@cgネHマホタDMヲミNaフョ`テァュ@ワEテmノュanm?ロウKGアンカカソウeaibDL」ャMG」cコEJ゚NワカリクンパフGLロワ・ルシOィオbjdBNfKMッKロャィnN。ソDネツlニノアLCョヒメュc。セシレィヌワヨンェ?ヌーエイ`キラDハンァOJィコキシFルメレユャaDホウセツH"
ME+="ミニンツ`h゚ェセユメテナン?ンワhDョGチ」。jdルスヨトゥクIeエノlトjセホチェーッァヤゥイチoマォamァヤソウミヌAテカコ@タリエサhキタDャmJh`オミチiケォルコLコシiツマGオホJャテエーeコゥO・eムエレキマンnニdbセ゚ムソFフメaェヲLJHAlGナ?・?ネkFニ゚iメラヨキOノOン゚ッラAメォヨム`cFモケロMセmトFlリヨユEエンソャニテ、タfhコムナnOセN"
ME+="ャG?NマスヘbケハロaンHnbJフヘCnステワEヤOマハkーホムオIヤロハCゥウレヌユラオホO「jカkFェKモェアシJシ・゚トエニァg」ロ」ヨセポgOツスKMユbロワcbヲツテクヲヒCァァ「Kモナ、Iカシ゚ユカFワKACトンュnユテoLiJワ、セーセュDヌヲテミHリゾ・ムンナカeクッン・ミFNロカHdGキアサHCハGDフケヲcイテャシNャiャ・ェノCハoF、フCDケテリメォメ"
ME+="ァlユクメョュル「Oヤ。HロトルォIォィエgツ`cサ?ユDHトハロIラケウMCルキIニンモフス゚ツソアミBクキケ「、cbCノルハメヒメマシュfゥマgoHニeゥMDスマコミkiKjソンヌォンMミッテNhシ。。ミビコマタタチmァヒキadn?「LnmCケロgトィハテ@メOイmナ。?ォMァmgLケ・ユヨ゚タEムFョゥヨAメシマサムゥメイオミマワムク、j「テoソjlコegサーミ、ニiサeM"
ME+="ユNcウヒ@ムリソイ゚bミエワ」noァアi@FロテラkンアチBILモアaニエghォeンコイタKンレツHクョlD」レノヘkテooテミjカEaネヤkイヌhf・ヤタF゚ャカLリハヘIワエトJアNゥ「、@CヌlノL。タヘヲホツハFィエeラjスッスF`Aム。サツトイサセ・レ「ヒァシーオ゚ホ・ネ。ィ。ョルカャオoヒンッ゙ァIイオ、mJニロKiJコマiュ?ッ。ロKdGAnヲカF。bdチユネハ`ヌ"
ME+="、ロテヨONィエDFAHォユクo?コ@ャンロkカ・jfgヴアムェヒ?。l、gdッヘァハオK`dハbHヨシコオ」lョィ@ユmNJDサル。レMCkヤM゙ゥg」サノテサチ、Gハャ`MワッメKメHハKJロlャョト「カセ」マエョフミヤオhストメャヌFhBニホDヌlmンヤFケクイ・Cmーエゥェ。JンクiウロNフチォマニ。OoトエァHIムヒフユミcEヲ「`ヘカゥレム@Dク・n゚。ルァワ「ツナサ"
ME+="ソ?ヒーキ、?MヘaGーニメmニェkャnhEヲヘホ?フa゚メュセbイニネンclオホテェェOヒミユNッggツ。フモld・゙ヲoア「「GlキマoEウハaKュラフナ@bレ・adユイム@GゥイBEKcKナckfaクツOノ」ijロソヨョMloAトニリlヘタオホハ`ノェツォhムkェイヘdルリニhェ、IョカhクククミFjnツス`DaススeセoエコjfIレ「nソナッチヨヤラGiLチFノモオエンェ。"
ME+="ネmツンソkヲNCユヌヲ@ト゚Mヘ」リOソァOネ「@BakタmレワiンアオHoィlネミGI?」ーnfNeリテKルクナア・オFテFヨBヨオホゲ「ヨェチoキgエNヌ@ヒMfルワヘョkBdェヤス。Gォ@ィナマユjレョシテョhコNタアサiLキBNKaB゚ヘユ゚ヘhソnムァイァコIIハCmコレCJハヨャソルヤケ。ヘテhサチ・ケパkネdkケ?@Eホf。ンHFモnfイヘフkjbゥネテ。ュBモ"
ME+="@」サユEクFュサBワ。JーセソラヤァモホヨワAM゙「b。`ケセシabモモセヨkコFハノス@Lマハワ。dコ・イキシリロ・eBNヲHナユBヨモョKトリHcリHミIリ`ヤィJカ、coクaobnロ「ワBーOMEヲラOセホロjAトネFント、チロイオエユヌcッッ」ケhハケdスf?Hワテラkツ」kモタツhセュエーaスモjjヌnハ`ユマヲAロOヤd」ANcgミャレbムッ゙ネメdシoモcマlム「゙"
ME+="@マスュォレュ」a。Gイゥヌャンイdヨテ、oマヒKBセカセァF゚。jュAハムgカaコモァキJタ`「カiテEユタJスィkメハャォFセdmォKjヨ@ュケ`b`ィョヌキdケoマcCカEieフオkーh@Cトフセ、キシモ`@al。iOギ゚」。ホLロィhモェIサコ。gォl゚ヤ゚ネミgヘスチワfJマナノアョ。、ルェDハホクOク「ルnヤエタGネKFロメュMョケミヘセチEケルノAィヨムナDョjュカ"
ME+="ソーニIキb、ュ`Hモホユ。ハ?ソミfラ@フッ」ンCOィb・サリオュノノOワgテiMIノhャソリLソhBシロメ「コァイ「OO。Dウ・JイアェeアbヨNツHoエ゚ミヌネlヲキメ」ワイヤコ・ヘヨツニヘケカッdアシヤeスーニgスヨ、Dネエヘミ、enョモJヲ、`Kla「ゥキGラcカBタCテシaメッルャ゚セトncャコイラオタョOチaソ「c「シ「bャトキIG?ョアセbO「チェァIネg、ーヘエl"
ME+="LォフナNエeヒヒルアLルOEロソオaJィAmFbーエカーァkリンョ゙HロJェエムサヤリウハンユャャウォテiFウo、ECヘラヌHCC`IaセIユチdチカワレgcLエHDヤヘゥOLカkラGBリI゙モ゚eルユンミフラコflヒゥエラセeヨヒレェセサ・ケヘチォタハネチケョKヘズn@IhFチィスッLホーハケェ゙カlA」NホコフヤヲウトユaヲHiイfャシヨgコ?タFcJケヨ・ユメIミア。リh"
ME+="モCスツンjHィDェカェイDンノJッ・c?モjェDトヤハセメjiクタモハFケC・ヌGCoミiケヨ@MkウチNルo「」タモナアテfタィgmgソムネイョヘャサトラソL゙eレ」D゙。ィォ゙dアOャkマリセOiタ」ウBBaレfシ「CルルアャD。aィョ「。lヒGラーkヒネト@ュョロタユォOトサラロッィOロNハヒソヘFjGテO・スJKラハフテDロOゥノ@aサ@mワeヒョk?ォソC。Dャ`タHュ"
ME+="ケユワoミgナ`テッBツaenkユレェミオイGヌクワセェfヲルチツゥN・イJモ、アdネイF?テマタクエテ@ソトニDニコタァソェakノABメ`ィヨIgンモァEHミマムトヲロォァ@ュヘヨMLメコモセモeキホNハイツモEモmヤkムャlセオ「mGセムヤヒHEシヘシフcョノトiシャサミスリミェヨクキmBェfリェユァレトラュ゙サ`マkァゥケ@ヤネスLュC「イdネョエ?レ@ョマaDヨeGツMトィ"
ME+="「E」シクチイLoノjワレOCムakマテメィEヒソIトォ」@ハテミナヲタmケォ゚ーマチホツヌコヤチンlkNロ」ミイウャナリタod゙トEgcィェサエウDュcヘャCュナ@hヒih・ナOヲOリLケソInkツルセリlヒエoタミBiレフサカサエInィォC゚ォヲオャFョEoトハスヨiユァ@「OオハカGミヘスアコb、ィヌaclンfアヒイカIンフムGfkラNnエシァnナスキェG・kio`、フヨケマ"
ME+="ァロヲBIルウノhァKワ」コi「ヲソルlGオbmムi、mテトョcモミLヘュテンaモMムトトカヒkウカ・。シヌッゥツレiフマニヤワNチメトョクaヒヘヲkィィロミハコbェクDテナエ「ラfュ「ッホ`JOm゙@スaフAォョナスメッmイクIリォネチツノタュ`fィJヲマィヌBネcフB@ユiソロBHヒセンムOアAェHサヘモ「アo。サAルヘニタmウ@iホDレナユOテLヨョAノメaIノ`モBノストセ"
ME+="」JォキkkッウケkネノキラhンlHCFHkJnオツoリォ`モdリKネbIieヲーメチタセクメァ゚ヲコムンLoネhミェネhFホaャ「マNワリカルクッ「ネBkf?Cツlモロcチニ、メカキッcフスヨCタコォラコヲユJェィIカmェアカ@ノン」タhIツJクー・OヘコdHMfンォ゙k」キ@゙lオニcc「ワノカjNクンゥN゙フfカマター」ェッdKメBi゚ホbヤ、ユヒキチf、モリゥノタ。・リaニ"
ME+="EアヤnEェヌメi。フタcニォァムノ?fハィKトワネタサmメリF」ルキユkcツdLBCクオBサアJFセ`ニjヒlタ・マロホカレリメヨgホリJcァ・e「cャモノレモスニクトヌセセオ`ンオヤBh「ワニソャニ`ユEテmーュJ」dノラ`ルj゚ヤ・mアHeョテMaクムマスェム@テァヘAャサクECホヨサッヌヤEゥbヅユオLュlチホウユ」GルヒFモト。mmヘ@ヘミォオメFャミDルャ「。@Ojチ"
ME+="シミラィ・ナ?Iルケhj・ロィ゚」セロmFmaケBmラヒウイノイルトミ`OナアイcーNbAA@リdヒGfイーゥGbヘタキテヒjキクソoホセゥm?ョBヌノノクノェッHマイシメヒワィクィサコチCアH?ャEn。、ッイネ・チIaモワLンィノョFシlミアーリミミヤKヨoカjfM゚hゥマヨeコホエラhHkワォBlナGコテツヤoKヌムシMCィホマル゚EュGッIリ゚ョセロjガEFツfIラォォゥロ"
ME+="アcツIkェリレFLウリメbリュィ「ヤiリョヨDャミワメララトオオカセAラfョi゚FチMMオLィルaヺンナュサメHサ@シGワシN゚bァッスフHリ・ゥハャロタヤオーオシ゚OレfnフlルnォNラ?F`iトOHケe「fiBヌJミヨハワa・ーマFトェH、ュkLj。フロイFルェ`マヌfョェコjコ゚ィツGLIルオタBナbテヌゥ゚GホmDn」クIセマfCOヌ`cスル`レE。bgレjッヤM」hM"
ME+="・メiネネレメサラoッムホ@マメムeDーoョウヲホlNFネNdエッネDJナFCラウョツ「クニf。NLBルニキヘOューテウフルn・「`ミレミOeKエツテゥスCJノAoヘoLEキー「aヲFNnヒィCマヒロュゥチメァオエー・oヨ。deヨカニJFワエソョレタiロレIィヒDINホツィヒfN゚ヒエ。`イエワクJBメODclコンLャワC「ハスホリツHiサモソカゥc・ニキニモヲオ@タチイボ」ャホ"
ME+="i?ケツヤヌLルッB。ネBッdソハメjnm@Bo」ゥb@ヨョメ。khンhマァkルタ@セロエFナツDメhホーワロ、セFァセ@ェファiコeDF、ヒマ゙ノiァモmムィGタ」、ヲャムッィユヨヲフトhgマhf゚`eッEイHk「dl「モnェイ゚ウフLョイヘスhD?エヌnLロルDfカ、ゥ@Eムト?ムコIキスォウlロナCワヒリLLgーaトbワoj・Gm゚EノムヘオェIkァヲ・カK「チエケLゥッ゚A"
ME+="、ホエヘヌDヲiサKヌIハサiヌス」lAヨfルワdOdュナトィアナcjヲッュ゚f゙OェbテヘbfHレmj@゙HワヌiケトイリCbgケMイシc、ーシヲelm「ヘュjーレオdiオCcネァルョカCェコAoAヲルュヒヌNハヒCリヒノハマC`ヤツヲEシdメヘニケhaェゥiマツBノGマモm。キeマン、ヘゴト。ナEク@キゥmバヲネニキヤnl`セJ。。ナMgオゥァ」ホmCLアgイミーdュホヤ@"
ME+="lヨヤヨォサロフモ。トマユモ」IJJニGcカーレbエネモMヌホムラョテユAbオムメッoーoチ?AB。kレ゚ニH」ルソウヌd「フカルア。メ゙JアィソスHKコイGH、CLズGMツMサロコワJノソオiノlホソk`EタヒoンJシ@ェIョミメアレLグラスィァオfeoゥaムJOiィJロHGノlホヨlEEユォ@ッミァBヨネクツフンァeJクャLネEnトkェチクオhーメIfェA?オセォニシ゚。i"
ME+="ミツkャaGノoサルナワナナBヲ`aMクnヌスiワーヒjキンLシeッル゚テ」Fヲュト@ォa`DォメEgfhmゥニNAラシヲ・CHgゥッナサァ」mDクヒチンケユャォウォGOリナヌュモリMッニhオNKcエGヲcCfbォヒコ゚ャアヲチヨdケKュウワナルラlタKKソサDケ。ツNkニヌ」ツkァc゚ヘナゥユモoM@シツBンケャヨワ」ホツセOスハナーセハFfメンヒミソッfャカカJユ゚GMロgノモ"
ME+="JォolHaォエB゙スイO「リゥFメワミヲッメラロdシカAユクBmョアケル`g?ハdカオオサ「タユニHhケGkョJゥフワ゚Hホホ、リKミFニヒBイユセナLOセニメ?mラhメGnfウL゚リAェMLーNンヤマOタピ。゙KチFJFシOヤhェ、ノEGョGIメヌhEリセLGbヒホLリ、シヌaソ゚カCNOュネI`キャモeョウjテヘメイaGKjkクスオナーッaンソhケifミネOォー、゚゚テチ@"
ME+="ーCッオァkl@Aラテアケラユc「ヤオンサャヲァ。アEdロ」カエIトリヌFーャノョッアmmセュlナェタニモテォヌocツ゚ァFァマミゥチルヨケhLスmァdoゥヨリeェDCハセサacノマクオマゥFイヨGIンNヒッFナェモ`ン?ュKニHセBァツタロマアfIホァA゚ヌセMルLフ。ナヲaEカ。ロタモンョfキネウGFgfレコoスdァiIモァMェifmールノネムーョLロfGァミモリeヘモユeヌン"
ME+="タンbョ、タdLmdコa@ーリアムヨb?aヨIャOHeャヲリシBマ?ウ?エキハロKdヌeフォナシdミヌkワチィHFスークケアeg」`オhツノリォタヲcゥ「ニ」NォッモijォァヨンFスamNョォソセmイH「oハ`フJi゙エ。トアウヲlLウIタエュ・モHモeコob、」ミAウBァn「ホ、サッCネラスoFリニマjッgMチgワャカコネカhレネHKオャュHテネf「クeホカMナラネンbツjDミf"
ME+="ケjテナkテヒヘ、nァクミラOャセhAュo゙ョィMMツラロアォヤ゙fスケヘロヤセワェキィリoシムーヒロ。ハネlャィFアユEkヒメAゥ゚cGjケナナ?カテオbユカヌヒルァoラejユ・クfエヨCBK@IスDcテk゙?KウkユoケョラテCマeロEョヤヨhヲ゚ュヲaチGユノCBソモャワI「?メンーヌトョヤタタョOc、イワl・ンンヘテチノオ。ノニ゙タソE」ムfシサAムko゙セgHノNmヒリロ"
ME+="ョ゙hナゥヲkォイGコヨKヒラCKエJナ?iナィミウャスチAリオ?」ィカ?ワLkHッナケJlム、BワムAiNモニdhォャヒツムcJ、`クツヘヌヨソマュmネMアCクbiナオルァラJンLコgエスエノBサッセヌョJObタb」cセョカタイコヲ。fKe。djユヤクパlラIトEワFカフ、ツbhホLタスニAワンレアォlキleヌf`ケmGmI゚Bn。セフキハクe・ラHマAモーマ@、?aョテル`ミ"
ME+="モイロiNヤクエヒhHム・Cサメレ」ャォッlセネクヌヨアd゙COワッ゙キセレアモ「ウnメogbマッェユル、ェク。Fクィヘ。ァhヨiGang`ッOMソiセ。h・ヌトスマャコアEeカcKnムャDOネヤルFノワユHNレ。KBGムイエ゙mロOトコョワゥヨミロヨ`アォスユリテコソナヌ゚ャィI、fニKカケケnNホGターMセヒmラチチオヨメュIdニ゚mユコヨレLトHeDk゙シKレ゚ワッFテソユヲ"
ME+="ウHフホマハi`AGNヘテdリ?DナロテMmヌチー゙フ?トシロホcdohkエナnヲナヤニEトスシユkュオMトウnァスワ@ヘマE?。モ゚゙ィiケIクキトツgシモヘaュュdNjミーレーヘe」eLヲエm゚ウlMヘンcテNオクaサヨイト・ウャヘヲeトn゙ョーラワHオE@キヘ、MOェホゥホムセajンタMルレhdトKソヘォョヨEョノHLオHlBスョトゥlサプイ。ゾタnクィdツーOMFbエJ"
ME+="オjニモメチアJホェッケタッカメタ「」エスBOアョe?ハモクAテソタ「fホCF`スc「サ?ゥnニッDメgキワャリィルンリヒコィツオヘイズウッョe?゚タユナェスliロトユgLゥニァメdoツレウマヤテGL、フDmゥッiルタホサメキAOツFカクi・ミ」@ケムワエメIアIシBリォチレHニ@ムハセkILヨOトコヤaテjテロィ、セッケイfde、ェdkKスn」トNヌメタクケユワミヤDエGニネa"
ME+="lhケlチHdFコHeワゥ、ーInGィl」ラチャbGMチユ゙テAiカユタミンイNhタHIトaアヌムgeミノエヒモG、ホニィOテKoワカaテノjアBフチEjFヌネソgレクキAレカdラ?カフエチ」サオマソf」BーiAaァォミェ・cOo「gィヌJ`ナjOゥネリー゚ッロヲト`セD」ォAーオ゚サママナHアjMカGヘK」k「MリルゥhFaaッdサfキナハbタ゚「gBフhオヌヲケケフゥォクコmL"
ME+="・LJョヌツモヒオdメコスマフGネソテJヒウノムFラcメエEスンbヌソmAmナァgヲホッjhタミフKタMフアカハLbfG」リ・OヲセヘレヲムチィヒケヌヌヤチクフNフAhワコロサィ゙ニL」nテスboGGキナ「シスNゥmH。セハャg・ォカケdmヒサーHmソ」ワテテeユフiロFオキKセツ?@ムーテタn`ルスハウモヌmメフセIュレbュiニFソCスャDEホニkシEヘサ@ヤゥモラャ゚IレヒKコ"
ME+="ネ、リナカヒツャシシnローLチミGテナスoヌウm・AレdHラスオラBjリ゙ンワヨ「eテ「スIヲdェヌaスフクイlI。。ウメソMDヒEユGラ。JメEオケエハEルnレワスレメルョテcナラリOメイハIMCNbェmワヒ「モ」leノャモf`「Lレヨーf゙Lヤタホク?フネアkイツエミ`ヲKI@ハツ@リトkdヌハーbアツbbcアヘヒォェウjム?イカフnカ?エコシルサィミコネゥNメッjヘョCウlロ"
ME+="コCクGソワーャキキルヘニcキメシワラムョホヌKMK`F「ナスョOケlCュgbヒMhmヌロDゥキcセタNルエBホngニタコミネiノフmミIfシgaHBャーヨモヤュュeァJaウFNキalミワホュbアcシIエDDムnイアEカiーヨヘウbォ、ァリゥ`cスKLHNソォl」Lイニ」MninリスッソサヒkNaD。eルテォMモbホBkナキomアワケgLエdッgヤョフヘナ・セス、Aム・、HkセHー"
ME+="ァ、エルケ」フヲリヲゥケケッBケCヨクィヒKホゥLoJリチヤヌォ゙ッLナbナ@アラiケメヤヤツシニョルム・JKbメロ。ラユアdフレスーfモアルヒideモbクテeャエCトオチニMタ、dロクムヲcクュ゚ョ・n」アニェミシラdノハ。BicED@オDラLfニウオユワ`ンdムaゥkaMfエ、オィjィュルッソNCミハェツネヨJcHcヲチリFBィgヤJmーiFマオCヤdョカナカャieクヨセテユチ"
ME+="レァbkロンナGワワワgヤムナニdヘンンノ、ミhレNァトロオf「チァNコラゥソヤハmワDタghゥAiツウ・エュムシクカNーNシソNヒフkOエヲサdモヘヌォアミbリラlIJ?、ネルサLeLタhNツヤナウO、ハヘN、セフヨゥFムgeChー、キヲキ。ヌァaゥムbセaミLロミeュハタIヘメクコIィィヲ@ゥセHトホhッユムフソGチュOjカイクホ@gOァヌュ゙ーョ@ロ`ィョムメフ・ネ゙サciユ"
ME+="gaネセ「セGヘヘLEッリCオM。ケeCBiウ「ルiIハオeーフムヒケレィチGヨサイNセCキoニiヒカヘcJォムiミM?ノEkハエ?ゥEル゙EoトウフコャoメーMキHGチフェeユOィfデアアdJサキエチヲコカヲdセサョJルリリェDヲスツihツmOサnレタロヘIjノF。マek「ャ」ェ。ヨ@NヌセハeチイケチマアマlENイ?aalサミNチソホン・b@HエヒッhNアAレlテケHbハルミ"
ME+="スJェタャソ。ャmEチKウニイoリヨ。「OュmナgェシeェNNo」gセHエロミテJァ、Nh゙maBテGヤGリEfemh゚ウヨサ」ウーウメb」キオfーコiラュアュチhェAhGアlkL@チJエョャGaヘJナクBサgセa@aパアAインャ、aキCKリェキヌム@jヲゥモシサLナhオコユFェマK゚マOンゼャスナャNFミェニヲエハハミオノーOGヒAィoMエテgワヲnJナレーgヲ`dMルクネサ"
ME+="ニDoKロネシユJウb`MテホEツkoGマjcヨヘjミcFアユェ、k?ヒNネNモツ、eハMモトHHgタネ、ォルgテ・アKfBdケマチbウロョm`@ヲF@BマツァヲahヌヒeモHシHdゥセiコネオラmルユゥIゥfhゲgIワヤァNCソHキHペケeスホエ?ヲハi`ムモロユィシオ゚BOチウEミ?ロソ・MェレーヤAネメワモFフLN」イbeチル@ョmッホEメテNハoOモヲgッモKョラeハn"
ME+="ィ・、セウチテムソヌ?ニスlネョツK゚、ツメリフoD゙メォgサニokタKJ゚ラレケgツgBユhDウホチGィモ・ヒナ「ヤイニレホャァjoオjクe゚EヌヲノカユォcィG」ュnMゥJenヌロO`ーEbNGカjoナャ?セワノンEェォjホレヲfハヒトャクI」キリァエOdルィロヒFlEュ「フKゥ。。iEュユ「AgワスDメaノンハ」biAツLテ。゚ウDロeョェdIDhO」ョチォフフOi、ニアOル"
ME+="モチアクンーAe`サnアャネムMgCKショgマョjナヌLJオ、ムリキー@「DソコマラbEハヌネルヌク?テケタァミFCハjウh?ッウNホ」iI゚モc゙iアマn゚ァOCーモヤクハNMロノッB」ラツノAワホMHソチaテLムGウ゚aHjヨEイルムoラェレゥ?ミムュヨロンヲjンKォgAKgォLッミケサhcjネミカアッbコ・`コヒモNhフdHイノフヤNルセ゚ィヤウツセ」ノLHBh。ンスオajC"
ME+="ウィイ。BコシIシセチヒコトナaルレ」ハラワレbレュaCKA、b`jサソホメクョbフアネフ`hム「・ヘルnオシKkチ゚dケbミFヌルィレBLリケBヤツコサエチノmウmhキトMシiェフlNdノ゙・EトNノロoュMア・ツホユ?aキツBネニfJチッ`BFルEゥDソoCエnユキE「HノョホコFOセ「モムクAタトコBBヘャbA@Aマクヘ、・、クテホメ・H゙OウBシoォID。ヒシ」゚GCォクカ"
ME+="N`Jヌアjlnホ、ェhキイbチソシo?ノヌリチ「ソネアE・ワァ?゙ナゥッセエホgモヨマ@eユラlッNスAァmkニナニラェgイiユMマツテ゚ワアヨjNDlミD゚ムDmKアニィーeaハーンェNウゥA゙ニーツヒオ、、ィテワョ「Fノユ「lシ?G゙M゚AャツィGョ?gノaカヤコー」サfワィ。lGャヒメォナヘモhMィハモjfノ」JGセサo@cタAヌdクィソA`サkbリコノンウォクャ。、「ハh"
ME+="トモユンiハィLkュワュヲロdィキムォカムdJツ」?」フEセセf@ヨァa・シEヲ。エンニモa゚ュノ゚of`G・ョエケストJアハLEaサDアソニュン@ュメヌナノIBアロセミィOハゥョFKャOknウス。cツcハlムォoJヘゥHEンBホスCKルDケOAIウcヨュMbトBオスEンC、ムダクカニァ・サラcミaヤMfiワス、ママヤッワユナヤレ@iスハgヒァニKテセNゥュEoND、レフoiス?"
return

| |
|
2015/11/8(Sun) 18:48:30|NO.72854
;========================================================
;今更ながら、懐かしの色替えマスク?を移植しました。
;標準的な24ビットフルカラーを用意して下さい。
;画像全体が対象です。時間がかかります。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_CLM.bmp" ;変換
DFILE="SAMPLE_CLR.bmp" ;再変換
EDIT="GBR" ;RGB,RBG,BGR,BGR,GBR,BRG
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
cvbuffer 12,X,Y : buffer 20 : cvgetimg 10,1
;-------------------------------
;マスク処理
;-------------------------------
repeat Y
I=cnt
repeat X
J=cnt
pget J,I
R=ginfo(16) : G=ginfo(17) : B=ginfo(18)
if EDIT="RGB" : color R,G,B ;そのまま
if EDIT="RBG" : color R,B,G ;GB入れ替え
if EDIT="BGR" : color B,G,R ;RB入れ替え
if EDIT="GRB" : color G,R,B ;RG入れ替え
if EDIT="GBR" : color G,B,R ;左シフト
if EDIT="BRG" : color B,R,G ;右シフト
pset J,I
loop
loop
;-------------------------------
;書き出し
;-------------------------------
cvputimg 12 : gsel 0
cvsave OFILE,12 : cvgetimg 12,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE
if EDIT="GBR" : EDIT="BRG" : goto *RR
if EDIT="BRG" : EDIT="GBR" : goto *RR
}
end

| |
|
2015/11/8(Sun) 19:01:53|NO.72855
;========================================================
;今更ながら、懐かしのXORマスク?を移植しました。
;標準的な24ビットフルカラーを用意して下さい。
;画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_XRM.bmp" ;変換
DFILE="SAMPLE_XRR.bmp" ;再変換
EDIT=$80 ;$FFでネガポジ反転
;-------------------------------
;処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10 : cvxors EDIT,EDIT,EDIT,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end
|
|
2015/11/8(Sun) 19:29:05|NO.72860
;========================================================
;単なるネガポジ反転です。
;標準的な24ビットフルカラーを用意して下さい。
;画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_NPM.bmp" ;変換
DFILE="SAMPLE_NPR.bmp" ;再変換
EDIT=$FF
;-------------------------------
;処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10 : cvxors EDIT,EDIT,EDIT,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end
|
|
2015/11/8(Sun) 19:39:54|NO.72861
;========================================================
;単なる反転処理です。
;標準的な24ビットフルカラー画像を用意して下さい。
;画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_RVM.bmp" ;変換
DFILE="SAMPLE_RVR.bmp" ;再変換
HV=1 ;縦1 横0
;-------------------------------
;処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10 : cvflip HV,10
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end
|
|
2015/11/8(Sun) 20:04:23|NO.72863
;========================================================
;今更ながら、懐かしのQ0マスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも8の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
mes {"
任意の画像に対して
ネガポジ反転
XOR処理
縦ガラス処理
横ガラス処理
左右入替
上下入替
RGB入替(RBG、BGR、GRBのみ)
の中から、好きな処理を複数選んで処理します。
"}
|
|
2015/11/9(Mon) 19:10:56|NO.72890
;========================================================
;今更ながら、懐かしのCPマスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも8の倍数に成る
;画像を用意して下さい、画像全体が対象です。
;時間がかかります。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_CPM.bmp" ;変換
DFILE="SAMPLE_CPR.bmp" ;再変換
EDIT="SAMPLE" ;半角アルファベット大文字 1〜16文字
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\8)or(Y\8))!0 {
mes "サイズが8の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
A=strlen(EDIT)
if (A<1)or(16<A) : mes "文字数が仕様外です。" : stop
repeat A
B=peek(EDIT,cnt)
if (B<'A')or('Z'<B) : mes "文字種が仕様外です。" : stop
loop
X=X/8 : Y=Y/8 : MASU=X*Y : dim CPA,masu : dim CPM,masu
sdim CPC,27 : CPC="PWSUIHJTFEVBMCADYLONRGKXQZ"
buffer 21,X*8,Y*8 : buffer 20,X*8,Y*8 : cvgetimg 10,1
;-------------------------------
;配列作成
;-------------------------------
A=-1 : B=1 : D=strlen(edit)
repeat masu
C=peek(edit,cnt\D)-'A'
C=peek(CPC,C)-'A'+1
C=C+D+(masu\D)+cnt
A=(A+C)\masu
repeat
if CPA(A)=0 : break
A=(A+masu+B)\masu
loop
CPA(A)=cnt+1 : B=B*-1
loop
repeat (masu/2)+(MASU\2)
A=CPA(cnt)-1
B=CPA(masu-1-cnt)-1
CPM(A)=B : CPM(B)=A
loop
;-------------------------------
;マスク処理
;-------------------------------
gsel 21
C=0
repeat y
Y2=cnt*8
repeat x
X2=cnt*8
X1=(CPM(C)\x)*8 : Y1=(CPM(C)/x)*8
if (CPM(C)^C)\2=1 {
repeat 8
A=cnt
repeat 8
B=cnt
pos X2+B,Y2+A : gcopy 20,X1+A,Y1+B,1,1
loop
loop
}
if (CPM(C)^C)\2=0 {
pos X2,Y2 : gcopy 20,X1,Y1,8,8
}
C+=
loop
loop
A=X*8
repeat masu*8*8
X1=cnt\A : Y1=cnt/A
pget X1,Y1
color ginfo(17)^$ff,ginfo(16)^$ff,ginfo(18)^$ff
pset X1,Y1
loop
cvputimg 10
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : gsel 0 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end

| |
|
2015/11/9(Mon) 19:30:05|NO.72891
;========================================================
;今更ながら、懐かしのWINマスクを移植しました。
;標準的な24ビットフルカラーで、縦横とも16の倍数に成る
;画像を用意して下さい、画像全体が対象です。(手抜き)
;=======================================================
;-------------------------------
;条件設定
;-------------------------------
IFILE="SAMPLE.bmp" ;元
CFILE="SAMPLE_WNM.bmp" ;変換
DFILE="SAMPLE_WNR.bmp" ;再変換
;-------------------------------
;初期処理
;-------------------------------
#include "hspcv.as"
FILE=IFILE : OFILE=CFILE
*RR
cvload FILE,10
cvgetinfo X,10,0 : cvgetinfo Y,10,1
cvgetinfo A,10,2 : cvgetinfo B,10,3
if ((X\16)or(Y\16))!0 {
mes "サイズが16の倍数では無い" : stop
}
if ((A!3)or(B!8))!0 {
mes "フルカラー(24Bit)に変換出来ません" : stop
}
X=X/16 : Y=Y/16 : MASU=X*Y : dim MSK,16
MSK=$C,$8,$6,$F,$9,$D,$2,$B,$1,$4,$E,$7,$0,$5,$A,$3
buffer 21,X*16,Y*16 : buffer 20,X*16,Y*16 : cvgetimg 10,1
;-------------------------------
;マスク処理
;-------------------------------
gsel 21
repeat X
A=cnt*16
repeat 16
pos A+cnt,0
gcopy 20,A+MSK(cnt),0,1,Y*16
loop
loop
cvputimg 10
;-------------------------------
;書き出し
;-------------------------------
cvsave OFILE,10 : gsel 0 : cvgetimg 10,1
wait 300
if OFILE!DFILE {
FILE=CFILE : OFILE=DFILE : goto *RR
}
end

| |
|