OpenEuphoria

2. Re: Gotta Have It Programming Contest #1

• Posted by mattlewis (admin) Jun 17, 2009
• 1059 views

Heh. I just spent a bit converting the wxeuphoria hexes demo to do a grid of triangles. What do you mean by "select triangles"?

Matt

4. Re: Gotta Have It Programming Contest #1

• Posted by mattlewis (admin) Jun 17, 2009
• 983 views

Ok, I modified it so that it not only shows the triangle in the title bar, but you can click on them. Hold down shift and click to multi-select. Requires eu 4.0 and the bleeding edge release of wxEuphoria (though it wouldn't be too difficult to use earlier versions of both).

-- triangles.exw   
-- by Matt Lewis 
 
without warning 
include wxeud.e 
 
integer width, height 
width = 400 
height = 400 
integer old_width, old_height 
old_width = width 
old_height = height 
 
 
constant 
 
    frame = create( wxFrame, {0, -1, "Triangle Test", 100, 100, width, height} ), 
    win = frame, --create( wxPanel, frame ), 
     
    BrightWhite = create( wxColour, {255, 255, 255}), 
    Black = create( wxColour, {0,0,0}), 
    Grey  = create( wxColour, {"Grey"}), 
    white_pen = create( wxPen, {BrightWhite, 1, wxSOLID}), 
    black_pen = create( wxPen, {Black, 1, wxSOLID}), 
    grey_brush = create( wxBrush, Grey), 
    trans_brush = create( wxBrush, BrightWhite), 
    control_frame = create( wxFrame, {frame, -1, "Controls", 500, 300, 240, 240} ),  
    control = create( wxPanel, control_frame ), 
         
    zoom = create( wxSpinCtrl, {control, -1, "120", 10, 10, 50, 25, wxSP_ARROW_KEYS, 1, 200, 50} ), 
    zoom_lbl = create( wxStaticText, {control, -1, "Size", 70,13, 40, 25}), 
     
    XRatio = create( wxSpinCtrl,{ control, -1, "70", 10, 70, 50, 25, wxSP_ARROW_KEYS, 1, 200, 112} ), 
    XRatio_lbl = create( wxStaticText, {control, -1, "Horz. Aspect", 70,73, 100, 25}), 
 
    font = create( wxFont, {10,wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL,0, 
			"Courier"}), 
			 
    YRatio = create( wxSpinCtrl, { control, -1, "60", 10, 130, 50, 25, wxSP_ARROW_KEYS, 1, 60, 200 } ), 
    YRatio_lbl = create( wxStaticText, {control, -1, "Vert. Aspect", 70,133, 100, 25 }) 
atom dc, pix 
pix = create( wxBitmap, {BM_IN_MEMORY, width, height} ) 
dc  = create( wxMemoryDC, pix ) 
 
set_font( dc, font ) 
integer dx, dy 
atom slope   
integer columns, rows 
 
dx=0 
dy=0 
slope=0 
 
sequence selection = {} 
	 
procedure draw_triangles() 
	if not dy then 
		return 
	else 
		sequence shape = repeat( 0, 8 ) 
		set_pen( dc, white_pen ) 
		draw_polygon( dc, {0, 0, width, 0, width, height, 0, height }, 0, 0, wxODDEVEN_RULE ) 
		set_pen( dc, black_pen ) 
		 
		integer  
			_2dx   = dx * 2, 
			_1_2dx = floor( dx / 2 ), 
			_1_2dy = floor( dy / 2 ), 
			temp   = - _1_2dx, 
			whichX, 
			row, 
			column, 
			x1, y1, 
			x2, y2,  
			x3 
		 
		sequence offX 
		for i = 1 to columns do 
			-- the starting point 
			offX = { temp, temp - _1_2dx } 
			temp += dx 
			whichX = 2 
			y1 = 0 
			for j = 1 to rows do 
				-- alternate between 1 and 2 
				whichX = 3 - whichX 
				 
				x1 = offX[whichX] 
				 
				x2 = x1 + _1_2dx 
				y2 = y1 + dy 
				 
				x3 = x1 + dx 
				 
				 
				shape = { x1, y1, x2, y2, x3, y1, x1, y1 } 
				for pt = 1 to 5 by 2 do 
	            	draw_line( dc, shape[pt..pt+3] ) 
	            end for 
	            row = j  
	            column = i - 1  
	             
	            sequence cr = {column * 2 - not and_bits( j, 1 ), row} 
	            if find( cr, selection ) then 
	            	set_brush( dc, grey_brush ) 
	            	draw_polygon( dc, shape, 0, 0, wxODDEVEN_RULE ) 
	            	set_brush( dc, trans_brush ) 
	            end if 
				sequence ext = get_text_extent( win, sprintf("(%d,%d)", cr), font) 
				wx_printf( {0, x1 + _1_2dx - floor(ext[1] / 2), y1 + _1_2dy - floor( ext[2]  ), dc}, 
					"(%d,%d)",cr) 
				 
				cr = {column * 2 + and_bits( j, 1 ), row} 
				if find( cr, selection ) then 
					set_brush( dc, grey_brush ) 
	            	draw_polygon( dc, {x2, y2, x3, y1, x2 + dx, y2 }, 0, 0, wxODDEVEN_RULE ) 
	            	set_brush( dc, trans_brush ) 
				end if 
				ext = get_text_extent( win, sprintf("(%d,%d)", cr), font) 
				wx_printf( {0, x1 + dx - floor(ext[1] / 2), y1 + _1_2dy - 0*floor( ext[2] / 2 ), dc}, 
					"(%d,%d)",cr) 
					 
				y1 += dy 
				 
			end for 
		end for 
	    atom client_dc = create( wxClientDC, win ) 
 
	    begin_drawing( client_dc ) 
	    blit( client_dc, 0, 0, dc, 0, 0, width, height, wxCOPY ) 
	    end_drawing( client_dc ) 
	     
	    delete_instance( client_dc ) 
	end if 
	 
end procedure 
 
 
procedure calc_rc() 
    columns = floor(width/dx) + 2  
    slope = dy / dx 
    rows = floor(height / dy ) * 2 
end procedure 
 
procedure zoom_triangles() 
    atom z 
	 
    z = get_spin_value( zoom ) 
 
    dx = floor( z * get_spin_value(XRatio) / 100 ) 
    dy = floor( z  * get_spin_value(YRatio)  / 100 ) 
    if dx = 0 or dy = 0 then 
        return 
    end if 
	 
	calc_rc() 
    draw_triangles() 
end procedure 
 
procedure on_zoom( atom this, atom event_type, atom id, atom event ) 
	zoom_triangles() 
end procedure 
set_event_handler( zoom, -1,  wxEVT_COMMAND_SPINCTRL_UPDATED, routine_id("on_zoom") ) 
set_event_handler( XRatio, -1,  wxEVT_COMMAND_SPINCTRL_UPDATED, routine_id("on_zoom") ) 
set_event_handler( YRatio, -1,  wxEVT_COMMAND_SPINCTRL_UPDATED, routine_id("on_zoom") ) 
 
procedure on_paint( atom this, atom event_type, atom id, atom event )  
	atom pdc 
	pdc = create( wxPaintDC, this ) 
	blit( pdc, 0, 0, dc, 0, 0, width, height, wxCOPY ) 
	delete_instance( pdc ) 
end procedure 
set_event_handler( win, get_id(win), wxEVT_PAINT, routine_id("on_paint")) 
 
procedure on_erase( atom this, atom event_type, atom id, atom event )  
 
end procedure 
set_event_handler( win, -1, wxEVT_ERASE_BACKGROUND, routine_id("on_erase")) 
 
procedure on_resize( atom this, atom event_type, atom id, atom event ) 
    sequence lExt 
     
    lExt = get_rect(this) 
    width = lExt[3] 
    height = lExt[4] 
 
    delete_instance( dc ) 
    delete_instance( pix ) 
 
    pix = create( wxBitmap, {BM_IN_MEMORY, width + 100, height + 100}) 
    dc = create( wxMemoryDC, pix )	     
    set_font( dc, font ) 
    on_zoom(0,0,0,0)	 
end procedure 
set_event_handler( win, -1, wxEVT_SIZE, routine_id("on_resize")) 
 
procedure win_activate( atom this, atom event_type, atom id, atom event ) 
    draw_triangles() 
    show_window( control_frame, 1 ) 
end procedure 
set_event_handler( win, -1, wxEVT_SHOW, routine_id("win_activate")) 
 
 
procedure win_paint( atom this, atom event_type, atom id, atom event ) 
	atom paint 
	paint = create( wxPaintDC, this ) 
	blit( paint, 0, 0, dc, 0, 0, width, height, wxCOPY ) 
	delete_instance( paint ) 
 
end procedure 
set_event_handler( win, get_id(win), wxEVT_PAINT, routine_id("win_paint")) 
 
 
function xy_to_triangle( sequence xy ) 
 
	integer x = xy[1] 
	integer y = xy[2] 
	 
	integer row = floor(y / dy) + 1 
	 
	 
	-- Row 1: starts like / 
	-- Row 2: starts like \ 
	-- etc... 
	integer _1_2dx = floor( dx / 2 ) 
	 
	integer starts_up = and_bits( row, 1 ) 
	integer column = floor( x / dx ) * 2 + starts_up 
	 
	integer rx = remainder( x, dx ) 
	integer ry = remainder( y, dy ) 
	 
	atom slope = 2 * dy / dx 
	 
	if starts_up then 
		if rx < _1_2dx then 
			if ry < dy - slope * rx then 
				column -= 1 
				 
			end if 
		else 
			if ry < slope * (rx - _1_2dx) then 
				column += 1 
			end if 
		end if 
	else 
		if rx < _1_2dx then 
			 
			if ry < slope * rx then 
				column += 1 
				 
			end if 
		else 
			column += 1 
			if ry > dy - slope * (rx - _1_2dx) then 
				column += 1 
			end if 
		end if 
	end if 
	 
	return { column, row } 
 
end function 
 
procedure win_scrollwheel(atom this, atom event_type, atom id, atom event ) 
integer scroll 
	scroll = floor( get_wheel_rotation(event)/120 ) 
	set_spin_value( zoom, get_spin_value(zoom) + scroll ) 
	zoom_triangles() 
end procedure 
set_event_handler( win, -1, wxEVT_MOUSEWHEEL, routine_id("win_scrollwheel")) 
 
procedure win_mouse( atom this, atom event_type, atom id, atom event ) 
 
    set_title( frame,  
    	sprintf("Triangle Test: ( %d, %d ) ( %d, %d)",  
    	xy_to_triangle( mouse_event_position( event )) & mouse_event_position(event) ) 
    	) 
	 
end procedure 
set_event_handler( win, -1, wxEVT_MOTION, routine_id("win_mouse")) 
 
procedure win_click( atom this, atom event_type, atom id, atom event ) 
	sequence triangle = xy_to_triangle( mouse_event_position( event ) ) 
	if mouse_event_shiftdown( event ) then 
		integer ix = find( triangle, selection ) 
		if ix then 
			selection = remove( selection, ix ) 
		else 
			selection = append( selection, triangle ) 
		end if 
	else 
		selection = { triangle } 
	end if 
	if not find( triangle, selection ) then 
		selection = append( selection, triangle ) 
	end if 
	draw_triangles() 
	refresh_window( win ) 
end procedure 
set_event_handler( win, -1, wxEVT_LEFT_DOWN, routine_id("win_click")) 
 
wxMain( frame ) 

6. Re: Gotta Have It Programming Contest #1

• Posted by mattlewis (admin) Jun 18, 2009
• 1023 views

That should be http://wxeuphoria.sourceforge.net/apps.php

Matt

8. Re: Gotta Have It Programming Contest #1

• Posted by mattlewis (admin) Jun 18, 2009
• 988 views

That page should be clearer. The binary package for wxIDE does not include the wxEuphoria dll. I apologize. I've done a pretty awful job making wxIDE available in usable form.

Matt

10. Re: Gotta Have It Programming Contest #1

• Posted by euphoric (admin) Jun 18, 2009
• 1003 views

procedure win_click( atom this, atom event_type, atom id, atom event ) 
... 
end procedure 
set_event_handler( win, -1, wxEVT_LEFT_DOWN, routine_id("win_click")) 
 
wxMain( frame ) 

win_click() should be:

procedure win_click( atom this, atom event_type, atom id, atom event )  
	sequence triangle = xy_to_triangle( mouse_event_position( event ) )  
	if mouse_event_shiftdown( event ) then  
		integer ix = find( triangle, selection )  
		if ix then  
			selection = remove( selection, ix )  
		else  
			selection = append( selection, triangle )  
		end if  
	else  
		selection = { triangle }  
	end if  
	draw_triangles()  
	refresh_window( win )  
end procedure  

The extra code was causing a shift-clicked selected triangle to not be unselected.