!２次元の絵（DRAW文）のステレオペア

!２次元の絵（DRAW文）のステレオペア

PICTURE Moon
SET AREA COLOR 6
DRAW disk WITH SCALE(0.4)
END PICTURE

PICTURE Tree
SET AREA COLOR 12 !幹
PLOT AREA:-0.075,0; 0.075,0; 0.025,3; -0.025,3
SET AREA COLOR 10 !葉
DRAW disk WITH SCALE(0.4)*SHIFT(0,3)
DRAW disk WITH SCALE(0.5)*SHIFT(-0.5,2.5)
DRAW disk WITH SCALE(0.5)*SHIFT(0.5,2)
END PICTURE

PICTURE House
SET AREA COLOR 0
PLOT AREA: 0,1; 0,0; 2,0; 2,1 !壁
SET AREA COLOR 2
PLOT AREA: -0.6,1; 2.6,1; 2,2; 0,2 !屋根
SET AREA COLOR 10
PLOT AREA: 0.1,0; 0.1,0.8; 0.5,0.8; 0.5,0 !ドア
SET AREA COLOR 7
PLOT AREA: 1.4,0.4; 1.9,0.4; 1.9,0.8; 1.4,0.8 !窓
SET AREA COLOR 12
PLOT AREA: 1.7,2; 1.7,2.3; 1.5,2.3; 1.5,2 !煙突
END PICTURE

PICTURE Ground
SET AREA COLOR 160
PLOT AREA: 0,0; XMAX,0; XMAX,4; 0,4
END PICTURE

PICTURE Mount
SET AREA COLOR 125
DRAW disk WITH SCALE(2)*SHIFT(1,0)
DRAW disk WITH SCALE(1.5)*SHIFT(4,0)
DRAW disk WITH SCALE(2)*SHIFT(6,0)
END PICTURE

LET XMAX=8
LET YMAX=8
SET bitmap SIZE 600,300 !横倍
SET WINDOW 0,XMAX,0,YMAX*2 !表示領域

LET ZMAX=10
DEF Z(x)=-(x/ZMAX)*(XMAX/10) !奥ゆきに応じて左右にずらして配置する

SET VIEWPORT 0,0.5,0,1 !左半分へ

!左側（通常の描画）　※第１象限x=[0,XMAX]、y=[0,YMAX]
SET AREA COLOR 1
PLOT AREA: 0,0; XMAX,0; XMAX,YMAX; 0,YMAX !夜空

DRAW Mount WITH SHIFT(0,4)
DRAW Ground !※重ね書きで山の下部を消去する
DRAW Moon WITH SHIFT(5,7)
DRAW Tree WITH SCALE(0.8)*SHIFT(7,3)
DRAW House WITH SHIFT(4,2.5)
DRAW Tree WITH SHIFT(2,2)

!STOP

!右側（ステレオペア）
SET VIEWPORT 0.5,1,0,1 !右半分へ

SET AREA COLOR 1
PLOT AREA: 0,0; XMAX,0; XMAX,YMAX; 0,YMAX

DRAW Mount WITH SHIFT(0,4)*SHIFT(Z(3),0) !※立体視したい絵に奥ゆきを付加する
DRAW Ground
DRAW Moon WITH SHIFT(5,7)*SHIFT(Z(3),0)
DRAW Tree WITH SCALE(0.8)*SHIFT(7,3)*SHIFT(Z(4),0)
DRAW House WITH SHIFT(4,2.5)*SHIFT(Z(6),0)
DRAW Tree WITH SHIFT(2,2)*SHIFT(Z(9),0)

END

Re: ワイヤーフレームのステレオ画像（擬似３Ｄ...	返事を書くノートメニュー
山中和義 <drdlxujciw> 2008/02/04 11:59:05 ** この記事は1回修正されてます
!２次元の絵（DRAW文）のステレオペア PICTURE Moon SET AREA COLOR 6 DRAW disk WITH SCALE(0.4) END PICTURE PICTURE Tree SET AREA COLOR 12 !幹 PLOT AREA:-0.075,0; 0.075,0; 0.025,3; -0.025,3 SET AREA COLOR 10 !葉 DRAW disk WITH SCALE(0.4)SHIFT(0,3) DRAW disk WITH SCALE(0.5)SHIFT(-0.5,2.5) DRAW disk WITH SCALE(0.5)SHIFT(0.5,2) END PICTURE PICTURE House SET AREA COLOR 0 PLOT AREA: 0,1; 0,0; 2,0; 2,1 !壁 SET AREA COLOR 2 PLOT AREA: -0.6,1; 2.6,1; 2,2; 0,2 !屋根 SET AREA COLOR 10 PLOT AREA: 0.1,0; 0.1,0.8; 0.5,0.8; 0.5,0 !ドア SET AREA COLOR 7 PLOT AREA: 1.4,0.4; 1.9,0.4; 1.9,0.8; 1.4,0.8 !窓 SET AREA COLOR 12 PLOT AREA: 1.7,2; 1.7,2.3; 1.5,2.3; 1.5,2 !煙突 END PICTURE PICTURE Ground SET AREA COLOR 160 PLOT AREA: 0,0; XMAX,0; XMAX,4; 0,4 END PICTURE PICTURE Mount SET AREA COLOR 125 DRAW disk WITH SCALE(2)SHIFT(1,0) DRAW disk WITH SCALE(1.5)SHIFT(4,0) DRAW disk WITH SCALE(2)SHIFT(6,0) END PICTURE LET XMAX=8 LET YMAX=8 SET bitmap SIZE 600,300 !横倍 SET WINDOW 0,XMAX,0,YMAX2 !表示領域 LET ZMAX=10 DEF Z(x)=-(x/ZMAX)(XMAX/10) !奥ゆきに応じて左右にずらして配置する SET VIEWPORT 0,0.5,0,1 !左半分へ !左側（通常の描画）　※第１象限x=[0,XMAX]、y=[0,YMAX] SET AREA COLOR 1 PLOT AREA: 0,0; XMAX,0; XMAX,YMAX; 0,YMAX !夜空 DRAW Mount WITH SHIFT(0,4) DRAW Ground !※重ね書きで山の下部を消去する DRAW Moon WITH SHIFT(5,7) DRAW Tree WITH SCALE(0.8)SHIFT(7,3) DRAW House WITH SHIFT(4,2.5) DRAW Tree WITH SHIFT(2,2) !STOP !右側（ステレオペア） SET VIEWPORT 0.5,1,0,1 !右半分へ SET AREA COLOR 1 PLOT AREA: 0,0; XMAX,0; XMAX,YMAX; 0,YMAX DRAW Mount WITH SHIFT(0,4)SHIFT(Z(3),0) !※立体視したい絵に奥ゆきを付加する DRAW Ground DRAW Moon WITH SHIFT(5,7)SHIFT(Z(3),0) DRAW Tree WITH SCALE(0.8)SHIFT(7,3)SHIFT(Z(4),0) DRAW House WITH SHIFT(4,2.5)SHIFT(Z(6),0) DRAW Tree WITH SHIFT(2,2)*SHIFT(Z(9),0) END