; 疑似3D道路を描画する / Drawing pseudo 3D roads ; セグメントで道路を管理してカーブを実装 #include "hspmath.as" #define BG0_FILE "bg_bg0.png" #define BG1_FILE "bg_bg1.png" #define SCR_W 640 #define SCR_H 360 ; セグメントの区切りを色分け. 0 or 1 #define SEG_DELIMITER 0 ; 同梱ファイル / bundled files #pack BG0_FILE #pack BG1_FILE #packopt name "road03" ; exe filename #packopt type 0 ; generate ".exe" #packopt xsize SCR_W #packopt ysize SCR_H ; onkey goto *jobend ; get windows size screen 0, SCR_W, SCR_H, 0 gsel 0 ; width SCR_W, SCR_H dispw = ginfo_winx disph = ginfo_winy cls 4 ; load bg image bgimgid0 = 4 buffer bgimgid0, 1280, 720 picload BG0_FILE bg0w = ginfo_winx bg0h = ginfo_winy bgimgid1 = 5 buffer bgimgid1, 1280, 720 picload BG1_FILE bg1w = ginfo_winx bg1h = ginfo_winy ; セグメント作成用データ初期化用マクロ #define set_array(%1, %2, %3, %4, %5) \ %1(%2, 0) = %3 :\ %1(%2, 1) = %4 :\ %1(%2, 2) = %5 : ; セグメント作成用データ dim segm, 12, 3 ; set_array 配列変数名, index, count, curve, pitch ; curve と pitch は100倍した値。 ; HSPは int と double を配列内で混在できないらしいので… set_array segm, 0, 20, 0, 0 set_array segm, 1, 10, 50, 0 set_array segm, 2, 60, 200, 0 set_array segm, 3, 10, 50, 0 set_array segm, 4, 50, 0, 100 set_array segm, 5, 10, -100, 0 set_array segm, 6, 30, -400, 0 set_array segm, 7, 10, -100, 0 set_array segm, 8, 20, 0, -100 set_array segm, 9, 50, -100, 0 set_array segm, 10, 25, 200, 0 set_array segm, 11, 20, 0, 0 ; セグメント総数を取得 seg_max = 0 repeat length(segm) seg_max += segm(cnt, 0) loop ; セグメントのz幅を指定 seg_length = 20 seg_total_length = seg_length * seg_max ; 参照されるセグメントデータとして展開 dim seg, seg_max, 3 z = 0 i = 0 repeat length(segm) lp = segm(cnt, 0) curve = segm(cnt, 1) pitch = segm(cnt, 2) repeat lp seg(i, 0) = z seg(i, 1) = curve seg(i, 2) = pitch z += seg_length i++ loop loop dist = 200.0 ; 画面までの距離 / distance to screen camera_z = 0.0 spd = 0.0 spda = 0.1 spd_max = 16.0 xd = 0.0 yd = 0.0 zd = double(seg_length) bgx = 0.0 tgt_bgx = 0.0 *mainloop ; ESC key to exit stick k, 255 if k & 128 : goto *jobend ; check cursor key if k & 2 { ; Up key spd += spda if spd >= spd_max : spd = spd_max } if k & 8 { ; Down key spd -= (spda * 3) if spd <= 0.0 : spd = 0.0 } if k & 1 { ; Left key bg_x -= 16 } if k & 4 { ; Right key bg_x += 16 } road_y = 100 ; 道路のy位置 road_x = 300 ; 道路の幅(片側の幅) base_y = int(double(disph) * 0.5) h = disph - base_y ; 最初のセグメント番号を取得 if camera_z = 0 { seg_index = 0 } else { ; "\"はHSPの剰余記号。一般的なプログラミング言語なら "%" に相当 seg_index = (int(camera_z) / seg_length) \ seg_max } ; カメラが居るセグメントのカーブ量を求める curve = double(seg(seg_index, 1)) * 0.01 ; カメラがセグメント内のどの位置に居るか割合を求める z0 = seg(seg_index, 0) z1 = z0 + seg_length ccz = camera_z \ seg_total_length camz = double(ccz - z0) / double(z1 - z0) ; セグメント内のカメラ位置に応じて事前に横方向にある程度ずらしておく xd = (-camz * curve) yd = 0.0 zd = double(seg_length) cx = -(xd * camz) ; cx = 0.0 cy = double(road_y) + (yd * camz) cz = 0.0 bg_x += curve * (spd * 0.5) redraw 0 ; 描画開始 / draw start gsel 0 ; 背景(遠景)を描画 / draw BG bgw = bg1w bgh = bg1h bgx = int(double(bg_x) * 0.4) \ bgw bgy = bgh / 2 - base_y bgid = bgimgid1 gmode 0 gosub *draw_bg bgw = bg0w bgh = bg0h bgx = int(double(bg_x) * 0.5) \ bgw bgy = bgh / 2 - base_y bgid = bgimgid0 gmode 2 gosub *draw_bg gmode 0 ; 道路を描画 / draw road seg_z_max = 0 seg_distance = 96 repeat seg_distance ; セグメントのz値、カーブ量、ピッチ量を取得 idx = (seg_index + cnt) \ seg_max z0 = seg(idx, 0) curve = double(seg(idx, 1)) * 0.01 pitch = double(seg(idx, 2)) + 0.01 ; 最後のセグメントを超えて最初にループする場合、z値を調整する if z0 > seg_z_max : seg_z_max = z0 if z0 < seg_z_max : z0 += seg_total_length cam_z = int(camera_z) \ seg_total_length z0 -= cam_z z1 = z0 + seg_length if z1 < (dist / 4) : goto *seg_cancel if z0 = 0 : z0 = 1 ; 0で除算しないように微調整 ; 画面上で描画すべきy座標位置を取得 y0 = int(road_y * dist / z0) y1 = int(road_y * dist / z1) ; 画面上で描画すべき道路の幅(片側の幅)を取得 x0 = double(road_x) * double(dist) / double(z0) x1 = double(road_x) * double(dist) / double(z1) ; 画面上でずらすべき中心線の位置を取得 cx0 = double(cx) * double(dist) / double(z0) cx1 = (double(cx) + double(xd)) * double(dist) / double(z1) h = abs(y1 - y0) dsy = sgn(y1 - y0) if dsy = 0 : dsy = 1 repeat h sy = y0 + (dsy * cnt) draw_y = sy + base_y ; 画面縦幅を超えたy座標なら描画しない if draw_y < 0 | draw_sy > disph : continue ; 2次元的な計算で割合を求める if y0 == y1 { p = 0.0 } else { p = double(sy - y0) / double(y1 - y0) } z = (double(z1) - double(z0)) * p + double(z0) x = (double(x1) - double(x0)) * p + double(x0) center_x = (cx1 - cx0) * p + cx0 addv = ((int(z) + int(camera_z)) / 40) & $1 ; 1ラスター分を描画 / draw 1 raster road_w = x * 2 draw_x = -x + (dispw / 2) + center_x kind = addv if SEG_DELIMITER = 1 { ; セグメントの区切りを色分けしたい場合 if sy = y0 : kind = 2 } gosub *draw_raster_road loop *seg_cancel cx += xd cy += yd cz += zd xd += curve ; yd += pitch loop ; draw text font "Arial", 18, 1 color 1, 1, 1 pos 8, 4 mes "Press cursor key" pos 8, disph - 32 mes "seg_index : " + seg_index redraw 1 ; 描画終了 / draw end camera_z += spd await (1000 / 60) goto *mainloop *draw_raster_road ; 道路を1ラスター分描画 / draw road 1 raster ; draw_x, draw_y : draw x, y ; road_w : road width ; kind : 0 or 1 or 2 ; dispw : screen width ; draw ground if kind = 0 { ; color R, G, B color 114, 185, 66 } else { color 22, 174, 63 } ; boxf x0, y0, x1, y1 boxf 0, draw_y, dispw, draw_y ; draw road base switch kind case 0 color 133, 149, 158 swbreak case 1 color 149, 168, 179 swbreak case 2 color 255, 0, 0 swbreak swend boxf draw_x, draw_y, draw_x + road_w, draw_y ; draw white line lw = double(road_w) * 48.0 / 2048.0 ; white line width switch kind case 0 color 255, 255, 255 lx = double(draw_x) boxf lx, draw_y, lx + lw, draw_y lx = lx + road_w - lw boxf lx, draw_y, lx + lw, draw_y lx = double(draw_x) + (double(road_w) * 0.5) - (lw * 0.5) boxf lx, draw_y, lx + lw, draw_y lx = double(draw_x) + double(road_w) * 0.25 - (lw * 0.5) boxf lx, draw_y, lx + lw, draw_y lx = double(draw_x) + double(road_w) * 0.75 - (lw * 0.5) boxf lx, draw_y, lx + lw, draw_y swbreak case 1 color 228, 236, 252 lx = double(draw_x) + lw boxf lx, draw_y, lx + lw, draw_y lx = double(draw_x) + road_w - (lw * 2) boxf lx, draw_y, lx + lw, draw_y swbreak swend return *draw_bg ; BGを1枚描画 / draw BG. 1 layer ; bgid : bg image buffer id ; bgx, bgy : bg position ; bgw, bgh : bg image width, height ; dispw, disph : screen width, height if bgx >= 0 & bgx < (bgw - dispw) { pos 0,0 gcopy bgid, bgx, bgy, dispw, disph } else { if bgx < 0 { w = -bgx pos 0, 0 gcopy bgid, bgw - w, bgy, w, disph pos w, 0 gcopy bgid, 0, bgy, dispw - w, disph } else { w = bgw - bgx pos 0, 0 gcopy bgid, bgx, bgy, w, disph pos (bgw - bgx), 0 gcopy bgid, 0, bgy, dispw - w, disph } } return *jobend end