Genji Tale Viewer（桐壺）
pretty bad code .... sorry
/**
* Copyright yuuganisakase ( http://wonderfl.net/user/yuuganisakase )
* MIT License ( http://www.opensource.org/licenses/mit-license.php )
* Downloaded from: http://wonderfl.net/c/clA4
*/
//pretty bad code .... sorry
package
{
import com.flashdynamix.motion.layers.BitmapLayer;
import com.flashdynamix.motion.TweensyGroup;
import flash.display.Bitmap;
import flash.display.BitmapData;
import flash.display.DisplayObject;
import flash.display.Loader;
import flash.display.Sprite;
import flash.display.BlendMode;
import flash.events.Event;
import flash.events.MouseEvent;
import flash.events.ProgressEvent;
import flash.events.TimerEvent;
import flash.geom.Point;
import flash.geom.Rectangle;
import flash.net.URLLoader;
import flash.net.URLRequest;
import flash.system.ApplicationDomain;
import flash.system.LoaderContext;
import flash.system.Security;
import flash.system.SecurityDomain;
import flash.system.System;
import flash.text.engine.EastAsianJustifier;
import flash.text.engine.ElementFormat;
import flash.text.engine.FontDescription;
import flash.text.engine.FontLookup;
import flash.text.engine.LineJustification;
import flash.text.engine.TextBaseline;
import flash.text.engine.TextBlock;
import flash.text.engine.TextElement;
import flash.text.engine.TextLine;
import flash.text.engine.TextRotation;
import flash.text.Font;
import flash.text.TextField;
import flash.text.TextFieldAutoSize;
import flash.text.TextFormat;
import flash.utils.Timer;
[SWF(width=465, height=465, frameRate=30, backgroundColor=0x2D2822)]
public class PathFinding extends Sprite
{
private const picNumber:int = 60;
private const scaleFac:Number = 0.5;
private const LineSpace:int = 22;
private const NextPageSpace:int = 58;
private var tween:TweensyGroup = new TweensyGroup();
private var layer:BitmapLayer = new BitmapLayer(465, 465);
private var holder:Sprite = new Sprite();
private var genjiUrl:Vector.<String> = new Vector.<String>();
private var genjiLoader:Vector.<Loader> = new Vector.<Loader>();
private var picArray:Vector.<Page> = new Vector.<Page>();
private var count:int = 0;
private var sp:Sprite = new Sprite();
private var textLayer:Sprite = new Sprite();
private var textUrl:String = "http://lucasclaus.sakura.ne.jp/pic/text01.html";
private var textLoader:URLLoader = new URLLoader();
private var genjiText:String = "";
private var progressText:TextField = new TextField();
private var context:LoaderContext = new LoaderContext();
public function PathFinding()
{
super();
context.checkPolicyFile = true;
context.applicationDomain = ApplicationDomain.currentDomain;
context.securityDomain = SecurityDomain.currentDomain;
Security.loadPolicyFile("http://lucasclaus.sakura.ne.jp/crossdomain.xml");
System.useCodePage = true;
textLoader.load(new URLRequest(textUrl));
textLoader.addEventListener(Event.COMPLETE, onXmlComplete);
var ar:Array = [progressText];
for each(var text:TextField in ar)
{
addChild(text);
text.autoSize = TextFieldAutoSize.LEFT;
text.selectable = false;
text.text = "loading : ";
text.textColor = 0xffffff;
text.scaleX = text.scaleY = 1.5;
text.x = text.y = 20;
}
layer.clearOnRender = true;
this.addChild(layer);
layer.draw(holder);
holder.addChild(sp);
for (var i:int = 1; i < picNumber+1; i++)
{
var str:String;
if (i < 10) {
str = "http://lucasclaus.sakura.ne.jp/pic/000" + i + "q.jpg";
}else {
str = "http://lucasclaus.sakura.ne.jp/pic/00"+ i + "q.jpg";
}
genjiUrl.push(str);
}
for (var j:int = 0; j < picNumber; j++)
{
genjiLoader.push(new Loader());
genjiLoader[j].load(new URLRequest(genjiUrl[j]), context);
genjiLoader[j].contentLoaderInfo.addEventListener(Event.COMPLETE, onComplete);
}
}
private function onXmlComplete(e:Event):void
{
trace("text loaded");
}
private function onComplete(e:Event):void
{
count += 1;
var p:Number = Math.floor((count / 60) *100);
progressText.text = "loading : " + p + " %";
if (count == picNumber) {
trace("load complete");
removeChild(progressText);
stage.addEventListener(Event.ENTER_FRAME, onEnter);
positionPictures();
createModernText();
}
}
private function onEnter(e:Event):void
{
if (mouseX < 170) {
if(sp.x < 17700) sp.x += 40;
trace("sp.x : " + sp.x);
}else if (mouseX > 300) {
trace(sp.x);
if(sp.x > 160) sp.x -= 40;
}
}
private function positionPictures():void
{
stage.addEventListener(MouseEvent.CLICK, onClick);
sp.x = 400;
for (var i:int = 0; i < picNumber; i++)
{
var pic:Bitmap = genjiLoader[i].content as Bitmap;
var bd:BitmapData = pic.bitmapData.clone();
if (i > 1 && i < 58) {
if (i % 2 == 0) {
bd.threshold(bd, new Rectangle(20,20,bd.width-40, bd.height-40), new Point(20,20), "<=", 0x00A400, 0xFFBCAE93, 0x00FF00, true);
}else {
bd.threshold(bd, new Rectangle(20,20,bd.width-80, bd.height-40), new Point(20,20), "<=", 0x00A400, 0xFFBCAE93, 0x00FF00, true);
}
}
var page:Page = new Page(pic.bitmapData.clone(), bd);
pic.bitmapData.dispose();
picArray.push(page);
sp.addChild(page);
page.scaleX = page.scaleY = scaleFac;
page.x = -i * page.width;
if (i % 2 == 0) page.x += 13;
if (page.height < 465)
{
page.scaleY = 0.5*(465 / page.height);
}else {
page.scaleY = 0.485;// * (page.height / 465);
page.y = 3;
}
pic.y = 0;
}
for each(var loader:Loader in genjiLoader)
{
loader.unload();
loader = null;
}
genjiLoader = null;
}
private function onClick(e:MouseEvent):void
{
if (sp.contains(textLayer)) {
for each(var pic:Page in picArray)
{
pic.appear();
}
sp.removeChild(textLayer);
}else {
sp.addChild(textLayer);
for each(var pic2:Page in picArray)
{
pic2.erase();
}
}
}
private function createModernText():void
{
var fd:FontDescription = new FontDescription();
//fd.fontLookup = FontLookup.EMBEDDED_CFF;
fd.fontName = "HG行書体";
trace("enumerate font = " +Font.enumerateFonts());
var ef:ElementFormat = new ElementFormat();
ef.fontDescription = fd;
ef.color = 0x000000;
ef.alpha = 0.5;
ef.fontSize = 18;
ef.locale = "ja";
var track:Number = -0.8;
ef.trackingLeft = track;
ef.trackingRight = track;
var te:TextElement;
var str:String;
str = "いづれの御時にか、女御、更衣あまたさぶらひたまひけるなかに、いとやむごとなき際にはあらぬが、すぐれて時めきたまふありけり。\n\n はじめより我はと思ひ上がりたまへる御方がた、めざましきものにおとしめ嫉みたまふ。同じほど、それより下臈の更衣たちは、ましてやすからず。朝夕の宮仕へにつけても、人の心をのみ動かし、恨みを負ふ積もりにやありけむ、いと篤しくなりゆき、もの心細げに里がちなるを、いよいよあかずあはれなるものに思ほして、人のそしりをもえ憚らせたまはず、世のためしにもなりぬべき御もてなしなり。\n\n 上達部、上人なども、あいなく目を側めつつ、「いとまばゆき人の御おぼえなり。唐土にも、かかる事の起こりにこそ、世も乱れ、悪しかりけれ」と、やうやう天の下にもあぢきなう、人のもてなやみぐさになりて、楊貴妃の例も引き出でつべくなりゆくに、いとはしたなきこと多かれど、かたじけなき御心ばへのたぐひなきを頼みにてまじらひたまふ。\n\n 父の大納言は亡くなりて、母北の方なむいにしへの人のよしあるにて、親うち具し、さしあたりて世のおぼえはなやかなる御方がたにもいたう劣らず、なにごとの儀式をももてなしたまひけれど、とりたててはかばかしき後見しなければ、事ある時は、なほ拠り所なく心細げなり。\n\n\n [第二段 御子誕生（一歳）]\n\n 先の世にも御契りや深かりけむ、世になく清らなる玉の男御子さへ生まれたまひぬ。いつしかと心もとながらせたまひて、急ぎ参らせて御覧ずるに、めづらかなる稚児の御容貌なり。\n\n 一の皇子は、右大臣の女御の御腹にて、寄せ重く、疑ひなき儲の君と、世にもてかしづききこゆれど、この御にほひには並びたまふべくもあらざりければ、おほかたのやむごとなき御思ひにて、この君をば、私物に思ほしかしづきたまふこと限りなし。\n\n 初めよりおしなべての上宮仕へしたまふべき際にはあらざりき。おぼえいとやむごとなく、上衆めかしけれど、わりなくまつはさせたまふあまりに、さるべき御遊びの折々、何事にもゆゑある事のふしぶしには、まづ参う上らせたまふ。ある時には大殿籠もり過ぐして、やがてさぶらはせたまひなど、あながちに御前去らずもてなさせたまひしほどに、おのづから軽き方にも見えしを、この御子生まれたまひて後は、いと心ことに思ほしおきてたれば、「坊にも、ようせずは、この御子の居たまふべきなめり」と、一の皇子の女御は思し疑へり。人より先に参りたまひて、やむごとなき御思ひなべてならず、皇女たちなどもおはしませば、この御方の御諌めをのみぞ、なほわづらはしう心苦しう思ひきこえさせたまひける。\n\n かしこき御蔭をば頼みきこえながら、落としめ疵を求めたまふ人は多く、わが身はか弱くものはかなきありさまにて、なかなかなるもの思ひをぞしたまふ。御局は桐壺なり。あまたの御方がたを過ぎさせたまひて、ひまなき御前渡りに、人の御心を尽くしたまふも、げにことわりと見えたり。参う上りたまふにも、あまりうちしきる折々は、打橋、渡殿のここかしこの道に、あやしきわざをしつつ、御送り迎への人の衣の裾、堪へがたく、まさなきこともあり。またある時には、え避らぬ馬道の戸を鎖しこめ、こなたかなた心を合はせて、はしたなめわづらはせたまふ時も多かり。事にふれて数知らず苦しきことのみまされば、いといたう思ひわびたるを、いとどあはれと御覧じて、後涼殿にもとよりさぶらひたまふ更衣の曹司を他に移させたまひて、上局に賜はす。その恨みましてやらむ方なし。\n\n\n [第三段 若宮の御袴着（三歳）]\n\n この御子三つになりたまふ年、御袴着のこと一の宮のたてまつりしに劣らず、内蔵寮、納殿の物を尽くして、いみじうせさせたまふ。それにつけても、世の誹りのみ多かれど、この御子のおよすげもておはする御容貌心ばへありがたくめづらしきまで見えたまふを、え嫉みあへたまはず。ものの心知りたまふ人は、「かかる人も世に出でおはするものなりけり」と、あさましきまで目をおどろかしたまふ。\n\n [第四段 母御息所の死去]\n\n その年の夏、御息所、はかなき心地にわづらひて、まかでなむとしたまふを、暇さらに許させたまはず。年ごろ、常の篤しさになりたまへれば、御目馴れて、「なほしばしこころみよ」とのみのたまはするに、日々に重りたまひて、ただ五六日のほどにいと弱うなれば、母君泣く泣く奏して、まかでさせたてまつりたまふ。かかる折にも、あるまじき恥もこそと心づかひして、御子をば留めたてまつりて、忍びてぞ出でたまふ。\n\n 限りあれば、さのみもえ留めさせたまはず、御覧じだに送らぬおぼつかなさを、言ふ方なく思ほさる。いとにほひやかにうつくしげなる人の、いたう面痩せて、いとあはれとものを思ひしみながら、言に出でても聞こえやらず、あるかなきかに消え入りつつものしたまふを御覧ずるに、来し方行く末思し召されず、よろづのことを泣く泣く契りのたまはすれど、御いらへもえ聞こえたまはず、まみなどもいとたゆげにて、いとどなよなよと、我かの気色にて臥したれば、いかさまにと思し召しまどはる。輦車の宣旨などのたまはせても、また入らせたまひて、さらにえ許させたまはず。\n\n\n 「限りあらむ道にも、後れ先立たじと、契らせたまひけるを。さりとも、うち捨てては、え行きやらじ」\n\n とのたまはするを、女もいといみじと、見たてまつりて、\n\n 「限りとて別るる道の悲しきに\n いかまほしきは命なりけり\n いとかく思ひたまへましかば」\n\n と、息も絶えつつ、聞こえまほしげなることはありげなれど、いと苦しげにたゆげなれば、かくながら、ともかくもならむを御覧じはてむと思し召すに、「今日始むべき祈りども、さるべき人びとうけたまはれる、今宵より」と、聞こえ急がせば、わりなく思ほしながらまかでさせたまふ。\n\n 御胸つとふたがりて、つゆまどろまれず、明かしかねさせたまふ。御使の行き交ふほどもなきに、なほいぶせさを限りなくのたまはせつるを、「夜半うち過ぐるほどになむ、絶えはてたまひぬる」とて泣き騒げば、御使もいとあへなくて帰り参りぬ。聞こし召す御心まどひ、何ごとも思し召しわかれず、籠もりおはします。\n\n\n 御子は、かくてもいと御覧ぜまほしけれど、かかるほどにさぶらひたまふ、例なきことなれば、まかでたまひなむとす。何事かあらむとも思したらず、さぶらふ人びとの泣きまどひ、主上も御涙のひまなく流れおはしますを、あやしと見たてまつりたまへるを、よろしきことにだに、かかる別れの悲しからぬはなきわざなるを、ましてあはれに言ふかひなし。\n\n [第五段 故御息所の葬送]\n\n 限りあれば、例の作法にをさめたてまつるを、母北の方、同じ煙にのぼりなむと、泣きこがれたまひて、御送りの女房の車に慕ひ乗りたまひて、愛宕といふ所にいといかめしうその作法したるに、おはし着きたる心地、いかばかりかはありけむ。「むなしき御骸を見る見る、なほおはするものと思ふが、いとかひなければ、灰になりたまはむを見たてまつりて、今は亡き人と、ひたぶるに思ひなりなむ」と、さかしうのたまひつれど、車よりも落ちぬべうまろびたまへば、さは思ひつかしと、人びともてわづらひきこゆ。\n\n 内裏より御使あり。三位の位贈りたまふよし、勅使来てその宣命読むなむ、悲しきことなりける。女御とだに言はせずなりぬるが、あかず口惜しう思さるれば、いま一階の位をだにと、贈らせたまふなりけり。これにつけても憎みたまふ人びと多かり。もの思ひ知りたまふは、様、容貌などのめでたかりしこと、心ばせのなだらかにめやすく、憎みがたかりしことなど、今ぞ思し出づる。さま悪しき御もてなしゆゑこそ、すげなう嫉みたまひしか、人柄のあはれに情けありし御心を、主上の女房なども恋ひしのびあへり。なくてぞとは、かかる折にやと見えたり。\n \n 第二章 父帝悲秋の物語\n\n [第一段 父帝悲しみの日々]\n\n はかなく日ごろ過ぎて、後のわざなどにもこまかにとぶらはせたまふ。ほど経るままに、せむ方なう悲しう思さるるに、御方がたの御宿直なども絶えてしたまはず、ただ涙にひちて明かし暮らさせたまへば、見たてまつる人さへ露けき秋なり。「亡きあとまで、人の胸あくまじかりける人の御おぼえかな」とぞ、弘徽殿などにはなほ許しなうのたまひける。一の宮を見たてまつらせたまふにも、若宮の御恋しさのみ思ほし出でつつ、親しき女房、御乳母などを遣はしつつ、ありさまを聞こし召す。\n\n [第二段 靫負命婦の弔問]\n\n 野分立ちて、にはかに肌寒き夕暮のほど、常よりも思し出づること多くて、靫負命婦といふを遣はす。夕月夜のをかしきほどに出だし立てさせたまひて、やがて眺めおはします。かうやうの折は、御遊びなどせさせたまひしに、心ことなる物の音を掻き鳴らし、はかなく聞こえ出づる言の葉も、人よりはことなりしけはひ容貌の、面影につと添ひて思さるるにも、闇の現に\n\n\n 命婦、かしこに参で着きて、門引き入るるより、けはひあはれなり。やもめ住みなれど、人一人の御かしづきに、とかくつくろひ立てて、めやすきほどにて過ぐしたまひつる、闇に暮れて臥し沈みたまへるほどに、草も高くなり、野分にいとど荒れたる心地して、月影ばかりぞ八重葎にも障はらず差し入りたる。南面に下ろして、母君も、とみにえものものたまはず。\n\n 「今までとまりはべるがいと憂きを、かかる御使の蓬生の露分け入りたまふにつけても、いと恥づかしうなむ」\n\n とて、げにえ堪ふまじく泣いたまふ。\n\n 「『参りては、いとど心苦しう、心肝も尽くるやうになむ』と、典侍の奏したまひしを、もの思うたまへ知らぬ心地にも、げにこそいと忍びがたうはべりけれ」\n\n とて、ややためらひて、仰せ言伝へきこゆ。\n\n\n 「『しばしは夢かとのみたどられしを、やうやう思ひ静まるにしも、覚むべき方なく堪へがたきは、いかにすべきわざにかとも、問ひあはすべき人だになきを、忍びては参りたまひなむや。若宮のいとおぼつかなく、露けき中に過ぐしたまふも、心苦しう思さるるを、とく参りたまへ』など、はかばかしうものたまはせやらず、むせかへらせたまひつつ、かつは人も心弱く見たてまつるらむと、思しつつまぬにしもあらぬ御気色の心苦しさに、承り果てぬやうにてなむ、まかではべりぬる」\n\n とて、御文奉る。\n\n 「目も見えはべらぬに、かくかしこき仰せ言を光にてなむ」とて、見たまふ。\n\n 「ほど経ばすこしうち紛るることもやと、待ち過ぐす月日に添へて、いと忍びがたきはわりなきわざになむ。いはけなき人をいかにと思ひやりつつ、もろともに育まぬおぼつかなさを。今は、なほ昔のかたみになずらへて、ものしたまへ」\n\n など、こまやかに書かせたまへり。\n\n 「宮城野の露吹きむすぶ風の音に\n\n 小萩がもとを思ひこそやれ」\n\n とあれど、え見たまひ果てず。\n\n 「命長さの、いとつらう思うたまへ知らるるに、松の思はむことだに、恥づかしう思うたまへはべれば、百敷に行きかひはべらむことは、ましていと憚り多くなむ。かしこき仰せ言をたびたび承りながら、みづからはえなむ思ひたまへたつまじき。若宮は、いかに思ほし知るにか、参りたまはむことをのみなむ思し急ぐめれば、ことわりに悲しう見たてまつりはべるなど、うちうちに思うたまふるさまを奏したまへ。ゆゆしき身にはべれば、かくておはしますも、忌ま忌ましうかたじけなくなむ」\n\n とのたまふ。宮は大殿籠もりにけり。\n\n 「見たてまつりて、くはしう御ありさまも奏しはべらまほしきを、待ちおはしますらむに、夜更けはべりぬべし」とて急ぐ。\n\n\n 「暮れまどふ心の闇も堪へがたき片端をだに、はるくばかりに聞こえまほしうはべるを、私にも心のどかにまかでたまへ。年ごろ、うれしく面だたしきついでにて立ち寄りたまひしものを、かかる御消息にて見たてまつる、返す返すつれなき命にもはべるかな。\n\n 生まれし時より、思ふ心ありし人にて、故大納言、いまはとなるまで、『ただ、この人の宮仕への本意、かならず遂げさせたてまつれ。我れ亡くなりぬとて、口惜しう思ひくづほるな』と、返す返す諌めおかれはべりしかば、はかばかしう後見思ふ人もなき交じらひは、なかなかなるべきことと思ひたまへながら、ただかの遺言を違へじとばかりに、出だし立てはべりしを、身に余るまでの御心ざしの、よろづにかたじけなきに、人げなき恥を隠しつつ、交じらひたまふめりつるを、人の嫉み深く積もり、安からぬこと多くなり添ひはべりつるに、横様なるやうにて、つひにかくなりはべりぬれば、かへりてはつらくなむ、かしこき御心ざしを思ひたまへられはべる。これもわりなき心の闇になむ」\n\n と、言ひもやらずむせかへりたまふほどに、夜も更けぬ。\n\n 「主上もしかなむ。『我が御心ながら、あながちに人目おどろくばかり思されしも、長かるまじきなりけりと、今はつらかりける人の契りになむ。世にいささかも人の心を曲げたることはあらじと思ふを、ただこの人のゆゑにて、あまたさるまじき人の恨みを負ひし果て果ては、かううち捨てられて、心をさめむ方なきに、いとど人悪ろうかたくなになり果つるも、前の世ゆかしうなむ』とうち返しつつ、御しほたれがちにのみおはします」と語りて尽きせず。泣く泣く、「夜いたう更けぬれば、今宵過ぐさず、御返り奏せむ」と急ぎ参る。\n\n\n 月は入り方の、空清う澄みわたれるに、風いと涼しくなりて、草むらの虫の声ごゑもよほし顔なるも、いと立ち離れにくき草のもとなり。\n\n 「鈴虫の声の限りを尽くしても\n 長き夜あかずふる涙かな」\n\n えも乗りやらず。\n\n 「いとどしく虫の音しげき浅茅生に\n 露置き添ふる雲の上人\n かごとも聞こえつべくなむ」\n\n\n と言はせたまふ。をかしき御贈り物などあるべき折にもあらねば、ただかの御形見にとて、かかる用もやと残したまへりける御装束一領、御髪上げの調度めく物添へたまふ。\n\n 若き人びと、悲しきことはさらにも言はず、内裏わたりを朝夕にならひて、いとさうざうしく、主上の御ありさまなど思ひ出できこゆれば、とく参りたまはむことをそそのかしきこゆれど、「かく忌ま忌ましき身の添ひたてまつらむも、いと人聞き憂かるべし、また、見たてまつらでしばしもあらむは、いとうしろめたう」思ひきこえたまひて、すがすがともえ参らせたてまつりたまはぬなりけり。 \n\n [第三段 命婦帰参]\n\n 命婦は、「まだ大殿籠もらせたまはざりける」と、あはれに見たてまつる。御前の壺前栽のいとおもしろき盛りなるを御覧ずるやうにて、忍びやかに心にくき限りの女房四五人さぶらはせたまひて、御物語せさせたまふなりけり。このごろ、明け暮れ御覧ずる長恨歌の御絵、亭子院の描かせたまひて、伊勢、貫之に詠ませたまへる、大和言の葉をも、唐土の詩をも、ただその筋をぞ、枕言にせさせたまふ。いとこまやかにありさま問はせたまふ。あはれなりつること忍びやかに奏す。御返り御覧ずれば、\n\n 「いともかしこきは置き所もはべらず。かかる仰せ言につけても、かきくらす乱り心地になむ。\n\n\n 荒き風ふせぎし蔭の枯れしより\n 小萩がうへぞ静心なき」\n\n などやうに乱りがはしきを、心をさめざりけるほどと御覧じ許すべし。いとかうしも見えじと、思し静むれど、さらにえ忍びあへさせたまはず、御覧じ初めし年月のことさへかき集め、よろづに思し続けられて、「時の間もおぼつかなかりしを、かくても月日は経にけり」と、あさましう思し召さる。\n\n 「故大納言の遺言あやまたず、宮仕への本意深くものしたりしよろこびは、かひあるさまにとこそ思ひわたりつれ。言ふかひなしや」とうちのたまはせて、いとあはれに思しやる。「かくても、おのづから若宮など生ひ出でたまはば、さるべきついでもありなむ。命長くとこそ思ひ念ぜめ」\n\n などのたまはす。かの贈り物御覧ぜさす。「亡き人の住処尋ね出でたりけむしるしの釵ならましかば」と思ほすもいとかひなし。\n\n\n 「尋ねゆく幻もがなつてにても\n 魂のありかをそこと知るべく」\n\n 絵に描ける楊貴妃の容貌は、いみじき絵師といへども、筆限りありければいとにほひ少なし。大液芙蓉未央柳も、げに通ひたりし容貌を、唐めいたる装ひはうるはしうこそありけめ、なつかしうらうたげなりしを思し出づるに、花鳥の色にも音にもよそふべき方ぞなき。朝夕の言種に、「翼をならべ、枝を交はさむ」と契らせたまひしに、かなはざりける命のほどぞ、尽きせず恨めしき。\n\n\n 風の音、虫の音につけて、もののみ悲しう思さるるに、弘徽殿には、久しく上の御局にも参う上りたまはず、月のおもしろきに、夜更くるまで遊びをぞしたまふなる。いとすさまじう、ものしと聞こし召す。このごろの御気色を見たてまつる上人、女房などは、かたはらいたしと聞きけり。いとおし立ちかどかどしきところものしたまふ御方にて、ことにもあらず思し消ちてもてなしたまふなるべし。月も入りぬ。\n\n 「雲の上も涙にくるる秋の月\n いかですむらむ浅茅生の宿」\n\n 思し召しやりつつ、灯火をかかげ尽くして起きおはします。右近の司の宿直奏の声聞こゆるは、丑になりぬるなるべし。人目を思して、夜の御殿に入らせたまひても、まどろませたまふことかたし。朝に起きさせたまふとても、「明くるも知らで」と思し出づるにも、なほ朝政は怠らせたまひぬべかめり。\n\n\n ものなども聞こし召さず、朝餉のけしきばかり触れさせたまひて、大床子の御膳などは、いと遥かに思し召したれば、陪膳にさぶらふ限りは、心苦しき御気色を見たてまつり嘆く。すべて、近うさぶらふ限りは、男女、「いとわりなきわざかな」と言ひ合はせつつ嘆く。「さるべき契りこそはおはしましけめ。そこらの人の誹り、恨みをも憚らせたまはず、この御ことに触れたることをば、道理をも失はせたまひ、今はた、かく世の中のことをも、思ほし捨てたるやうになりゆくは、いとたいだいしきわざなり」と、人の朝廷の例まで引き出で、ささめき嘆きけり。\n\n 第三章 光る源氏の物語\n [第一段 若宮参内（四歳）]\n\n 月日経て、若宮参りたまひぬ。いとどこの世のものならず清らにおよすげたまへれば、いとゆゆしう思したり。\n\n 明くる年の春、坊定まりたまふにも、いと引き越さまほしう思せど、御後見すべき人もなく、また世のうけひくまじきことなりければ、なかなか危く思し憚りて、色にも出ださせたまはずなりぬるを、「さばかり思したれど、限りこそありけれ」と、世人も聞こえ、女御も御心落ちゐたまひぬ。\n\n かの御祖母北の方、慰む方なく思し沈みて、おはすらむ所にだに尋ね行かむと願ひたまひししるしにや、つひに亡せたまひぬれば、またこれを悲しび思すこと限りなし。御子六つになりたまふ年なれば、このたびは思し知りて恋ひ泣きたふ。年ごろ馴れ睦びきこえたまひつるを、見たてまつり置く悲しびをなむ、返す返すのたまひける。\n\n\n [第二段 読書始め（七歳）]\n\n 今は内裏にのみさぶらひたまふ。七つになりたまへば、読書始めなどせさせたまひて、世に知らず聡う賢くおはすれば、あまり恐ろしきまで御覧ず。\n\n 「今は誰れも誰れもえ憎みたまはじ。母君なくてだにらうたうしたまへ」とて、弘徽殿などにも渡らせたまふ御供には、やがて御簾の内に入れたてまつりたまふ。いみじき武士、仇敵なりとも、見てはうち笑まれぬべきさまのしたまへれば、えさし放ちたまはず。女皇女たち二ところ、この御腹におはしませど、なずらひたまふべきだにぞなかりける。御方々も隠れたまはず、今よりなまめかしう恥づかしげにおはすれば、いとをかしううちとけぬ遊び種に、誰れも誰れも思ひきこえたまへり。\n\n わざとの御学問はさるものにて、琴笛の音にも雲居を響かし、すべて言ひ続けば、ことごとしう、うたてぞなりぬべき人の御さまなりける。\n\n [第三段 高麗人の観相、源姓賜わる]\n\n\n そのころ、高麗人の参れる中に、かしこき相人ありけるを聞こし召して、宮の内に召さむことは、宇多の帝の御誡めあれば、いみじう忍びて、この御子を鴻臚館に遣はしたり。御後見だちて仕うまつる右大弁の子のやうに思はせて率てたてまつるに、相人驚きて、あまたたび傾きあやしぶ。\n\n 「国の親となりて、帝王の上なき位に昇るべき相おはします人の、そなたにて見れば、乱れ憂ふることやあらむ。朝廷の重鎮となりて、天の下を輔くる方にて見れば、またその相違ふべし」と言ふ。\n\n 弁も、いと才かしこき博士にて、言ひ交はしたることどもなむ、いと興ありける。文など作り交はして、今日明日帰り去りなむとするに、かくありがたき人に対面したるよろこび、かへりては悲しかるべき心ばへをおもしろく作りたるに、御子もいとあはれなる句を作りたまへるを、限りなうめでたてまつりて、いみじき贈り物どもを捧げたてまつる。朝廷よりも多くの物賜はす。\n\n おのづから事広ごりて、漏らさせたまはねど、春宮の祖父大臣など、いかなることにかと思し疑ひてなむありける。\n\n 帝、かしこき御心に、倭相を仰せて、思しよりにける筋なれば、今までこの君を親王にもなさせたまはざりけるを、「相人はまことにかしこかりけり」と思して、「無品の親王の外戚の寄せなきにては漂はさじ。わが御世もいと定めなきを、ただ人にて朝廷の御後見をするなむ、行く先も頼もしげなめること」と思し定めて、いよいよ道々の才を習はさせたまふ。\n\n 際ことに賢くて、ただ人にはいとあたらしけれど、親王となりたまひなば、世の疑ひ負ひたまひぬべくものしたまへば、宿曜の賢き道の人に勘へさせたまふにも、同じさまに申せば、源氏になしたてまつるべく思しきおきてたり。\n\n\n [第四段 先帝の四宮（藤壺）入内]\n\n 年月に添へて、御息所の御ことを思し忘るる折なし。「慰むや」と、さるべき人びと参らせたまへど、「なずらひに思さるるだにいとかたき世かな」と、疎ましうのみよろづに思しなりぬるに、先帝の四の宮の、御容貌すぐれたまへる聞こえ高くおはします、母后世になくかしづききこえたまふを、主上にさぶらふ典侍は、先帝の御時の人にて、かの宮にも親しう参り馴れたりければ、いはけなくおはしましし時より見たてまつり、今もほの見たてまつりて、「亡せたまひにしに御息所の御容貌に似たまへる人を、三代の宮仕へに伝はりぬるに、え見たてまつりつけぬを、后の宮の姫宮こそ、いとようおぼえて生ひ出でさせたまへりけれ。ありがたき御容貌人になむ」と奏しけるに、「まことにや」と、御心とまりて、ねむごろに聞こえさせたまひけり。\n\n 母后、「あな恐ろしや。春宮の女御のいとさがなくて、桐壺の更衣の、あらはにはかなくもてなされにし例もゆゆしう」と、思しつつみて、すがすがしうも思し立たざりけるほどに、后も亡せたまひぬ。\n\n 心細きさまにておはしますに、「ただ、わが女皇女たちの同じ列に思ひきこえむ」と、いとねむごろに聞こえさせたまふ。さぶらふ人びと、御後見たち、御兄の兵部卿の親王など、「かく心細くておはしまさむよりは、内裏住みせさせたまひて、御心も慰むべく」など思しなりて、参らせたてまつりたまへり。\n\n 藤壺と聞こゆ。げに、御容貌ありさま、あやしきまでぞおぼえたまへる。これは、人の御際まさりて、思ひなしめでたく、人もえおとしめきこえたまはねば、うけばりて飽かぬことなし。かれは、人の許しきこえざりしに、御心ざしあやにくなりしぞかし。思し紛るとはなけれど、おのづから御心移ろひて、こよなう思し慰むやうなるも、あはれなるわざなりけり。\n\n\n"
te = new TextElement(str,ef);
var tb:TextBlock = new TextBlock();
tb.content = te;
tb.textJustifier = new EastAsianJustifier("ja", LineJustification.UNJUSTIFIED);
tb.baselineZero = TextBaseline.IDEOGRAPHIC_CENTER;
tb.lineRotation = TextRotation.ROTATE_90;
var previousLine:TextLine = null;
var textLine:TextLine;
var linePosition:Number = -330;
var lineCount:int = 0;
textLayer.blendMode = BlendMode.SHADER;
while(true)
{
lineCount += 1;
textLine = tb.createTextLine(previousLine, 350);
if(textLine == null)
{
break;
}
textLine.y = 85;
textLine.x = linePosition;
linePosition -= LineSpace;
if (lineCount % 11 == 0) {
if (lineCount % 22 == 0) {
linePosition -= NextPageSpace-20;
}else{
linePosition -= NextPageSpace+20;
}
}
textLayer.addChild(textLine);
previousLine = textLine;
}
}
}
}
import com.flashdynamix.motion.Tweensy;
import flash.display.Bitmap;
import org.papervision3d.objects.primitives.Plane;
import flash.display.BitmapData;
class Page extends Bitmap
{
private var original:BitmapData;
private var erased:BitmapData;
public function Page(_ori:BitmapData, _era:BitmapData)
{
super();
original = _ori;
erased = _era;
this.bitmapData = original;
}
public function erase():void
{
this.bitmapData = erased;
}
public function appear():void
{
this.bitmapData = original;
}
}