2 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
3 SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
4 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
5 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
6 IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
7 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
8 FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
9 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
10 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
11 COPYRIGHT 1993-1998 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
16 * Miscellaneous functions stripped out of med.c
44 //return 2d distance, i.e, sqrt(x*x + y*y)
46 long dist_2d(long x,long y);
48 #pragma aux dist_2d parm [eax] [ebx] value [eax] modify [ecx edx] = \
58 long dist_2d(long x,long y) {
59 return (long)sqrt((double)x * (double)x + (double)y * (double)y);
63 // Given mouse movement in dx, dy, returns a 3x3 rotation matrix in RotMat.
64 // Taken from Graphics Gems III, page 51, "The Rolling Ball"
66 void GetMouseRotation( int idx, int idy, vms_matrix * RotMat )
68 fix dr, cos_theta, sin_theta, denom, cos_theta1;
69 fix Radius = i2f(100);
75 dx = i2f(idx); dy = i2f(idy);
77 dr = (fix)dist_2d(dx, dy);
79 denom = (fix)dist_2d(Radius, dr);
81 cos_theta = fixdiv(Radius,denom);
82 sin_theta = fixdiv(dr,denom);
84 cos_theta1 = f1_0 - cos_theta;
89 RotMat->rvec.x = cos_theta + fixmul(fixmul(dydr,dydr),cos_theta1);
90 RotMat->uvec.x = - fixmul(fixmul(dxdr,dydr),cos_theta1);
91 RotMat->fvec.x = fixmul(dxdr,sin_theta);
93 RotMat->rvec.y = RotMat->uvec.x;
94 RotMat->uvec.y = cos_theta + fixmul(fixmul(dxdr,dxdr),cos_theta1);
95 RotMat->fvec.y = fixmul(dydr,sin_theta);
97 RotMat->rvec.z = -RotMat->fvec.x;
98 RotMat->uvec.z = -RotMat->fvec.y;
99 RotMat->fvec.z = cos_theta;
103 int Gameview_lockstep; //if set, view is locked to Curseg
107 Gameview_lockstep = !Gameview_lockstep;
108 if (Gameview_lockstep == 0) {
109 if (last_keypress != KEY_L)
110 diagnostic_message("[L] - Lock mode OFF");
112 diagnostic_message("Lock mode OFF");
114 if (Gameview_lockstep) {
115 if (last_keypress != KEY_L)
116 diagnostic_message("[L] Lock mode ON");
118 diagnostic_message("Lock mode ON");
120 Cursegp = &Segments[ConsoleObject->segnum];
121 med_create_new_segment_from_cursegp();
122 set_view_target_from_segment(Cursegp);
123 Update_flags = UF_ED_STATE_CHANGED;
125 return Gameview_lockstep;
128 int medlisp_delete_segment(void)
130 if (!med_delete_segment(Cursegp)) {
131 if (Lock_view_to_cursegp)
132 set_view_target_from_segment(Cursegp);
133 autosave_mine(mine_filename);
134 strcpy(undo_status[Autosave_count], "Delete Segment UNDONE.");
135 Update_flags |= UF_WORLD_CHANGED;
137 diagnostic_message("Segment deleted.");
138 warn_if_concave_segments(); // This could be faster -- just check if deleted segment was concave, warn accordingly
144 int medlisp_scale_segment(void)
149 scale.x = fl2f((float) func_get_param(0));
150 scale.y = fl2f((float) func_get_param(1));
151 scale.z = fl2f((float) func_get_param(2));
152 med_create_new_segment(&scale);
153 med_rotate_segment(Cursegp,vm_angles_2_matrix(&rotmat,&Seg_orientation));
154 Update_flags |= UF_WORLD_CHANGED;
160 int medlisp_rotate_segment(void)
164 Seg_orientation.p = func_get_param(0);
165 Seg_orientation.b = func_get_param(1);
166 Seg_orientation.h = func_get_param(2);
167 med_rotate_segment(Cursegp,vm_angles_2_matrix(&rotmat,&Seg_orientation));
168 Update_flags |= UF_WORLD_CHANGED | UF_VIEWPOINT_MOVED;
173 int ToggleLockViewToCursegp(void)
175 Lock_view_to_cursegp = !Lock_view_to_cursegp;
176 Update_flags = UF_ED_STATE_CHANGED;
177 if (Lock_view_to_cursegp) {
178 if (last_keypress != KEY_V+KEY_CTRLED)
179 diagnostic_message("[ctrl-V] View locked to Cursegp.");
181 diagnostic_message("View locked to Cursegp.");
182 set_view_target_from_segment(Cursegp);
184 if (last_keypress != KEY_V+KEY_CTRLED)
185 diagnostic_message("[ctrl-V] View not locked to Cursegp.");
187 diagnostic_message("View not locked to Cursegp.");
189 return Lock_view_to_cursegp;
192 int ToggleDrawAllSegments()
194 Draw_all_segments = !Draw_all_segments;
195 Update_flags = UF_ED_STATE_CHANGED;
196 if (Draw_all_segments == 1) {
197 if (last_keypress != KEY_A+KEY_CTRLED)
198 diagnostic_message("[ctrl-A] Draw all segments ON.");
200 diagnostic_message("Draw all segments ON.");
202 if (Draw_all_segments == 0) {
203 if (last_keypress != KEY_A+KEY_CTRLED)
204 diagnostic_message("[ctrl-A] Draw all segments OFF.");
206 diagnostic_message("Draw all segments OFF.");
208 return Draw_all_segments;
213 int IncreaseDrawDepth(void)
216 Update_flags = UF_ED_STATE_CHANGED;
220 int DecreaseDrawDepth(void)
224 Update_flags = UF_ED_STATE_CHANGED;
230 int ToggleCoordAxes()
232 // Toggle display of coordinate axes.
233 Show_axes_flag = !Show_axes_flag;
234 LargeView.ev_changed = 1;
235 if (Show_axes_flag == 1) {
236 if (last_keypress != KEY_D+KEY_CTRLED)
237 diagnostic_message("[ctrl-D] Coordinate axes ON.");
239 diagnostic_message("Coordinate axes ON.");
241 if (Show_axes_flag == 0) {
242 if (last_keypress != KEY_D+KEY_CTRLED)
243 diagnostic_message("[ctrl-D] Coordinate axes OFF.");
245 diagnostic_message("Coordinate axes OFF.");
247 return Show_axes_flag;
250 int med_keypad_goto_prev()
256 int med_keypad_goto_next()
262 int med_keypad_goto()
264 ui_pad_goto(func_get_param(0));
268 int render_3d_in_big_window=0;
270 int medlisp_update_screen()
274 if (!render_3d_in_big_window)
275 for (vn=0;vn<N_views;vn++)
276 if (Views[vn]->ev_changed || (Update_flags & (UF_WORLD_CHANGED|UF_VIEWPOINT_MOVED|UF_ED_STATE_CHANGED))) {
277 draw_world(Views[vn]->ev_canv,Views[vn],Cursegp,Big_depth);
278 Views[vn]->ev_changed = 0;
281 if (Update_flags & (UF_WORLD_CHANGED|UF_GAME_VIEW_CHANGED|UF_ED_STATE_CHANGED)) {
282 grs_canvas temp_canvas;
283 grs_canvas *render_canv,*show_canv;
285 if (render_3d_in_big_window) {
287 gr_init_sub_canvas(&temp_canvas,canv_offscreen,0,0,
288 LargeView.ev_canv->cv_bitmap.bm_w,LargeView.ev_canv->cv_bitmap.bm_h);
290 render_canv = &temp_canvas;
291 show_canv = LargeView.ev_canv;
295 render_canv = Canv_editor_game; //VR_offscreen_buffer;
296 show_canv = Canv_editor_game;
299 gr_set_current_canvas(render_canv);
302 Assert(render_canv->cv_bitmap.bm_w == show_canv->cv_bitmap.bm_w &&
303 render_canv->cv_bitmap.bm_h == show_canv->cv_bitmap.bm_h);
306 gr_bm_ubitblt(show_canv->cv_bitmap.bm_w,show_canv->cv_bitmap.bm_h,
307 0,0,0,0,&render_canv->cv_bitmap,&show_canv->cv_bitmap);
311 Update_flags=UF_NONE; //clear flags
316 void med_point_2_vec(grs_canvas *canv,vms_vector *v,short sx,short sy)
318 gr_set_current_canvas(canv);
321 g3_set_view_matrix(&Viewer->pos,&Viewer->orient,Render_zoom);
323 g3_point_2_vec(v,sx,sy);
330 void draw_world_from_game(void)
333 draw_world(Views[0]->ev_canv,Views[0],Cursegp,Big_depth);
340 if (Lock_view_to_cursegp)
341 set_view_target_from_segment(Cursegp);
343 if (Autosave_count==9) diagnostic_message(undo_status[0]);
345 diagnostic_message(undo_status[Autosave_count+1]);
348 if (u == 1) diagnostic_message("Can't Undo.");
350 if (u == 2) diagnostic_message("Can't Undo - Autosave OFF");
351 Update_flags |= UF_WORLD_CHANGED;
353 warn_if_concave_segments();
360 Autosave_flag = !Autosave_flag;
361 if (Autosave_flag == 1)
362 diagnostic_message("Autosave ON.");
364 diagnostic_message("Autosave OFF.");
365 return Autosave_flag;
371 if (med_attach_segment(Cursegp, &New_segment, Curside, AttachSide)==4) // Used to be WBACK instead of Curside
372 diagnostic_message("Cannot attach segment - already a connection on current side.");
374 if (Lock_view_to_cursegp)
375 set_view_target_from_segment(Cursegp);
376 vm_angvec_make(&Seg_orientation,0,0,0);
378 Update_flags |= UF_WORLD_CHANGED;
379 autosave_mine(mine_filename);
380 strcpy(undo_status[Autosave_count], "Attach Segment UNDONE.\n");
382 warn_if_concave_segment(Cursegp);
387 int ForceTotalRedraw()
389 Update_flags = UF_ALL;
397 // Make large view be same as one of the orthogonal views.
398 Large_view_index = (Large_view_index + 1) % 3; // keep in 0,1,2 for top, front, right
399 switch (Large_view_index) {
400 case 0: LargeView.ev_matrix = TopView.ev_matrix; break;
401 case 1: LargeView.ev_matrix = FrontView.ev_matrix; break;
402 case 2: LargeView.ev_matrix = RightView.ev_matrix; break;
404 Update_flags |= UF_VIEWPOINT_MOVED;
409 int DeleteCurSegment()
411 // Delete current segment.
412 med_delete_segment(Cursegp);
413 autosave_mine(mine_filename);
414 strcpy(undo_status[Autosave_count], "Delete segment UNDONE.");
415 if (Lock_view_to_cursegp)
416 set_view_target_from_segment(Cursegp);
417 Update_flags |= UF_WORLD_CHANGED;
419 diagnostic_message("Segment deleted.");
420 warn_if_concave_segments(); // This could be faster -- just check if deleted segment was concave, warn accordingly
425 int CreateDefaultNewSegment()
427 // Create a default segment for New_segment.
429 med_create_new_segment(vm_vec_make(&tempvec,DEFAULT_X_SIZE,DEFAULT_Y_SIZE,DEFAULT_Z_SIZE));
435 int CreateDefaultNewSegmentandAttach()
437 CreateDefaultNewSegment();
443 int ExchangeMarkandCurseg()
445 // If Markedsegp != Cursegp, and Markedsegp->segnum != -1, exchange Markedsegp and Cursegp
447 if (Markedsegp->segnum != -1) {
450 tempsegp = Markedsegp; Markedsegp = Cursegp; Cursegp = tempsegp;
451 tempside = Markedside; Markedside = Curside; Curside = tempside;
452 med_create_new_segment_from_cursegp();
453 Update_flags |= UF_ED_STATE_CHANGED;
459 int medlisp_add_segment()
462 //segment *ocursegp = Cursegp;
463 // med_attach_segment(Cursegp, &New_segment, Curside, WFRONT); // Used to be WBACK instead of Curside
464 //med_propagate_tmaps_to_segments(ocursegp,Cursegp);
465 // set_view_target_from_segment(Cursegp);
466 //// while (!vm_angvec_make(&Seg_orientation,0,0,0));
473 int ClearSelectedList(void)
476 Update_flags |= UF_WORLD_CHANGED;
478 diagnostic_message("Selected list cleared.");
484 int ClearFoundList(void)
487 Update_flags |= UF_WORLD_CHANGED;
489 diagnostic_message("Found list cleared.");
497 // ---------------------------------------------------------------------------------------------------
499 // View current segment (Cursegp) from the previous segment.
500 void set_chase_matrix(segment *sp)
503 vms_vector forvec = ZERO_VECTOR, upvec;
504 vms_vector tv = ZERO_VECTOR;
507 // move back two segments, if possible, else move back one, if possible, else use current
508 if (IS_CHILD(sp->children[WFRONT])) {
509 psp = &Segments[sp->children[WFRONT]];
510 if (IS_CHILD(psp->children[WFRONT]))
511 psp = &Segments[psp->children[WFRONT]];
515 for (v=0; v<MAX_VERTICES_PER_SEGMENT; v++)
516 vm_vec_add2(&forvec,&Vertices[sp->verts[v]]);
517 vm_vec_scale(&forvec,F1_0/MAX_VERTICES_PER_SEGMENT);
519 for (v=0; v<MAX_VERTICES_PER_SEGMENT; v++)
520 vm_vec_add2(&tv,&Vertices[psp->verts[v]]);
521 vm_vec_scale(&tv,F1_0/MAX_VERTICES_PER_SEGMENT);
523 Ed_view_target = forvec;
525 vm_vec_sub2(&forvec,&tv);
527 extract_up_vector_from_segment(psp,&upvec);
529 if (!((forvec.x == 0) && (forvec.y == 0) && (forvec.z == 0)))
530 vm_vector_2_matrix(&LargeView.ev_matrix,&forvec,&upvec,NULL);
535 // ---------------------------------------------------------------------------------------------------
536 void set_view_target_from_segment(segment *sp)
538 vms_vector tv = ZERO_VECTOR;
541 if (Funky_chase_mode)
543 mprintf((0, "Trying to set chase mode\n"));
544 //set_chase_matrix(sp);
547 for (v=0; v<MAX_VERTICES_PER_SEGMENT; v++)
548 vm_vec_add2(&tv,&Vertices[sp->verts[v]]);
550 vm_vec_scale(&tv,F1_0/MAX_VERTICES_PER_SEGMENT);
555 Update_flags |= UF_VIEWPOINT_MOVED;