changeset 7165 | aad1aea05f1e |
parent 7098 | f8c453ade379 |
child 7168 | 8defaabce92e |
7164:fad64b97947e | 7165:aad1aea05f1e |
---|---|
319 ty:= round(ly) |
319 ty:= round(ly) |
320 end; |
320 end; |
321 // reached edge of land. assume infinite beam. Extend it way out past camera |
321 // reached edge of land. assume infinite beam. Extend it way out past camera |
322 if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then |
322 if ((ty and LAND_HEIGHT_MASK) <> 0) or ((tx and LAND_WIDTH_MASK) <> 0) then |
323 begin |
323 begin |
324 tx:= round(lx + ax * (LAND_WIDTH div 4)); |
324 tx:= round(lx + ax * (LAND_WIDTH div 2)); |
325 ty:= round(ly + ay * (LAND_WIDTH div 4)); |
325 ty:= round(ly + ay * (LAND_WIDTH div 2)); |
326 end; |
326 end; |
327 |
327 |
328 //if (abs(lx-tx)>8) or (abs(ly-ty)>8) then |
328 //if (abs(lx-tx)>8) or (abs(ly-ty)>8) then |
329 begin |
329 begin |
330 DrawLine(hx, hy, tx, ty, 1.0, $FF, $00, $00, $C0); |
330 DrawLine(hx, hy, tx, ty, 1.0, $FF, $00, $00, $C0); |