グラフィックデモ - しばっち

2025/01/26 (Sun) 07:39:50

サンプルの文章にgnuutera2012or文句うさびょんさんの投稿ネタを使用しました。


OPTION ANGLE DEGREES
DIM MOV(4,4)
LET XSIZE=1000
LET YSIZE=600
CALL GINIT(XSIZE,YSIZE)
SET WINDOW -XSIZE/2,XSIZE/2,-YSIZE/2,YSIZE/2
DIM A$(50)
FOR N=1 TO 50
READ IF MISSING THEN EXIT FOR:A$(N)
NEXT N
LET YMOVE=.002
SET TEXT JUSTIFY "CENTER","HALF"
SET TEXT COLOR COLORINDEX(0,0,0)
LET HEIGHT=12
SET TEXT HEIGHT HEIGHT
SET TEXT BACKGROUND "OPAQUE"
MAT MOV=IDN
LET MOV(1,4)=XMOVE
LET MOV(2,4)=YMOVE
LET MOV(3,4)=ZMOVE
FOR I=1 TO 85
SET DRAW MODE HIDDEN
CLEAR
FOR J=I TO 1 STEP -1
IF J=1 AND I<=N THEN
SET DRAW MODE EXPLICIT
FOR K=1 TO LEN(A$(I-J+1))
IF I<=N THEN DRAW WORD(A$(I)(1:K),0,-YSIZE/2+(HEIGHT+5)*(J+6)) WITH MOV
NEXT K
ELSE
IF I-J+1<=N AND -YSIZE/2+(HEIGHT+5)*J<YSIZE/2 THEN DRAW WORD(A$(I-J+1),0,-YSIZE/2+(HEIGHT+5)*(J+6)) WITH MOV
END IF
NEXT J
SET DRAW MODE EXPLICIT
WAIT DELAY .1
NEXT I
DATA "昔々、あるところにお殿様とお姫様がいました。"
DATA "お殿様は山へ鷹狩りに、お姫様は川へお茶会に行きました。"
DATA "お姫様が洗濯をしていると、川から大きなピーチパイがえんやーとっとえんやーとっとと流れてきました。"
DATA "お姫様はお殿様とピーチパイを食べようと思って、大きなピーチパイを家に持ち帰りました。"
DATA "山から帰ってきたお殿様は、大きなピーチパイだと早速包丁で切ろうとしたところ"
DATA "ピーチパイの中から女の赤ん坊が元気よく飛び出してきました。"
DATA "お殿様は赤ん坊に桃姫と名づけました。"
DATA "桃姫はすくすくと育っていき、やがて立派に育つと"
DATA "お殿様とお姫様にダンサーヶ島へダンサー勝負に行きたいと申し出ました。"
DATA "お殿様とお姫様は、恐ろしいダンサーが住んでいるダンサーヶ島へ"
DATA "桃姫を行かせまいと必死になだめますが、桃姫は頑としてききません。"
DATA "仕方なくお殿様は桃姫にLEDサイネージと蛍光塗料を"
DATA "お姫様は、衣装と日本一の旗を揃え桃姫に授けました。"
DATA "桃姫が出発する日に、お姫様は道中の腹ごしらえにと"
DATA "プロテインを桃姫に持たせました。"
DATA "桃姫はお殿様、お姫様に「行って参ります」と元気よく出発しました。"
DATA "桃姫が歩いていると、道の向かいからケンが「ヒャッハー！」桃姫さん"
DATA "お腰につけたプロテインを一つくれたら家来になりましょう「ヒャッハー！」と頼むので"
DATA "桃姫はケンにプロテインを一つ分けてやりました。"
DATA "桃姫とケンが道を歩いて行くと、道の向かいからモンタナが「あらよっと！」桃姫さん"
DATA "お腰につけたプロテインを一つくれたら家来になりましょう「あらよっと！」と頼むので"
DATA "桃姫はモンタナにもプロテインを一つ分けてやりました。"
DATA "桃姫とケンとモンタナが道を歩いて行くと、道の向かいから太郎が（♪♪♪♪♪）桃姫さん"
DATA "お腰につけたプロテインを一つくれたら家来になりましょう（♪♪♪♪♪）と頼むので"
DATA "桃姫は太郎にもプロテインを一つ分けてやりました。"
DATA "こうしてケン、モンタナ、太郎をお供に従えた桃姫は、舟に乗って"
DATA "ダンサーヶ島に着きました。"
DATA "ダンサーヶ島では恐ろしいダンサー達が宴の真っ最中。"
DATA "ダンサー共、この桃姫が成敗してくれる。"
DATA "桃姫はLEDサイネージと蛍光塗料でダンサー達に迫ります。"
DATA "ケン、モンタナ、太郎もそこへ襲いかかります。"
DATA "ケンはダンサーに握手します。"
DATA "モンタナはダンサーに握手します。"
DATA "太郎は空からダンサーと握手します。"
DATA "さすがのダンサー共も降参しました。"
DATA "桃姫さん。助けてください。"
DATA "ダンサーヶ島の宝物を全部差し上げます。"
DATA "もう悪いことは致しません。"
DATA "必死でダンサー達が頼むので、桃姫は"
DATA "「良いだろう。もうダンスはするなよ。」とダンサー達を許してやりました。"
DATA "こうして、宝物を舟に積んでダンサー達に見送られながら"
DATA "桃姫、ケン、モンタナ、太郎の一行はダンサーヶ島をあとにしました。"
DATA "桃姫、ケン、モンタナ、太郎がお殿様とお姫様の家に着くと"
DATA "お殿様とお姫様は大層喜びました。"
DATA "桃姫は、ダンサーヶ島でダンサー達を成敗したこと"
DATA "ダンサー達にもらった宝物のことを話しました。"
DATA "ダンサー達にもらった宝物で桃姫、お殿様、お姫様"
DATA "ケン、モンタナ、太郎はいつまでも楽しく暮らしたということです。"
DATA "めでたしめでたし。"
END

EXTERNAL PICTURE WORD(A$,XS,YS)
DIM M(4,4)
MAT M=TRANSFORM
IF DET(M)<>0 THEN
PLOT LETTERS, AT XS,YS:A$
END IF
END PICTURE

EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,0,YSIZE-1
SET POINT STYLE 1
SET COLOR MODE "NATIVE"
CLEAR
END SUB