Home Page Forums MAME MAME Experimenting with a bigtrak layout

<!-- the content of the script element will be called as a function by the layout plugin -->
<!-- use CDATA block to avoid the need to escape angle brackets and ampersands -->

<script><![CDATA[

-- file is the layout file object
print("BIGTRAK2.LAY")
print("LAYOUT LOADED  file.device.name = "..file.device.name)
print("LAYOUT LOADED  file.device.shortname = "..file.device.shortname)
print("LAYOUT LOADED  file.device.tag = = "..file.device.tag)
print(math.cos(3.4))  -- math isn't in env table
print(machine.output:get_value("left_motor_forward"))
print(machine.output:get_value("motor_pos"))

speed = 9 / 60
axle = 6.4 / 2
ang = 0
xpos = 50
ypos = 50

function calcpos(val) 
	if     val == "11000" then xpos = xpos + math.cos(ang) * speed ypos = ypos + math.sin(ang) * speed 
	elseif val == "00110" then xpos = xpos - math.cos(ang) * speed ypos = ypos - math.sin(ang) * speed 
	elseif val == "10010" then ang = ang + speed / axle 
	elseif val == "01100" then ang = ang - speed / axle 
	print(ang) 
	end 
end


file:set_resolve_tags_callback(
	function ()

	file.views["Internal Layout"].items["bigtrak"]:set_bounds_callback(
		function ()
			local b = emu.render_bounds()
			local boxxsize = 25
			local boxysize = 25
			xc = xpos
			yc = ypos
			x0 = xc - boxxsize / 2
			y0 = yc - boxysize / 2
			x1 = xc + boxxsize / 2
			y1 = yc + boxysize / 2

			bs = 1/100 -- boundscale (must scale it down to between 0.0 and 1.0)
			b:set_xy(x0 * bs, y0 * bs, x1 * bs, y1 * bs)
			
			out = machine.output
			newval = tostring(out:get_value("left_motor_forward")) .. 
					tostring(out:get_value("right_motor_forward")) .. 
					tostring(out:get_value("left_motor_reverse")) .. 
					tostring(out:get_value("right_motor_reverse")) .. 
					tostring(out:get_value("0.1")) 
			print(newval, xpos, ypos, x0, y0, x1, y1, ang)
			calcpos(newval)
			return b
		end)
		
	file.views["Internal Layout"].items["bigtrak"]:set_element_state_callback(
		function ()
			image = math.floor(ang / 3.14 * 180.0)
			image = (image + 90) % 360
			print ("image" .. image)
			return image
		end)


		
 end)

]]></script>

<!-- col0 is background  yellow -->
	<param name="col0r" value="0.97"/> 
	<param name="col0g" value="0.76"/>
	<param name="col0b" value="0.26"/>
	
	<!-- col1 is text color  black -->
	<param name="col1r" value="0.0"/>
	<param name="col1g" value="0.0"/>
	<param name="col1b" value="0.0"/>

	<!-- col2 is highlight background color black -->
	<param name="col2r" value="0.0"/> 
	<param name="col2g" value="0.0"/>
	<param name="col2b" value="0.0"/>
	
	<!-- col3 is highlight text color yellow -->
	<param name="col3r" value="0.97"/>
	<param name="col3g" value="0.76"/>
	<param name="col3b" value="0.26"/>



	<repeat count="10">
		<param name="str0" start="0" increment="1"/>
		<element name="key~str0~ref">
		  <rect><color red="0.0" blue="0.0" green="0.0"/></rect>
		  
		  <rect state="0"><color red="~col0r~" green="~col0g~" blue="~col0b~"/>
		  	<bounds left="0.05" right="0.95" top="0.05" bottom="0.95" /></rect>
		  	
	  	  <text state="0" string="~str0~"><color red="~col1r~" green="~col1g~" blue="~col1b~"/>
	  	  	  	<bounds left="-0.10" right="1.10" top="-0.10" bottom="1.10" /></text>
	  	  	  	
		  <rect state="1"><color red="~col2r~" green="~col2g~" blue="~col2b~"/>
		  	<bounds left="0.05" right="0.95" top="0.05" bottom="0.95" /></rect>
		  	
	  	  <text state="1" string="~str0~"><color red="~col3r~" green="~col3g~" blue="~col3b~"/>
	  	  	<bounds left="0.10" right="0.90" top="0.10" bottom="0.90" /></text>
		</element>
	</repeat>	
		
		

	<!-- col0 is background  green -->
	<param name="col0r" value="0.15"/> 
	<param name="col0g" value="0.44"/>
	<param name="col0b" value="0.40"/>
	
	<!-- col1 is text color  red -->
	<param name="col1r" value="1.0"/>
	<param name="col1g" value="0.0"/>
	<param name="col1b" value="0.0"/>

	<!-- col2 is highlight background color -->
	<param name="col2r" value="1.0"/> 
	<param name="col2g" value="0.0"/>
	<param name="col2b" value="0.0"/>
	
	<!-- col3 is highlight text color -->
	<param name="col3r" value="0.15"/>
	<param name="col3g" value="0.44"/>
	<param name="col3b" value="0.40"/>

	<param name="str0" value="FIRE"/>


	<element name="keyfireref">
	  <rect><color red="0.0" blue="0.0" green="0.0"/></rect>
	  
	  <rect state="0"><color red="~col0r~" green="~col0g~" blue="~col0b~"/>
	  	<bounds left="0.05" right="0.95" top="0.05" bottom="0.95" /></rect>
	  	
  	  <text state="0" string="~str0~"><color red="~col1r~" green="~col1g~" blue="~col1b~"/>
  	  	  	<bounds left="0.10" right="0.90" top="0.10" bottom="0.90" /></text>
  	  	  	
	  <rect state="1"><color red="~col2r~" green="~col2g~" blue="~col2b~"/>
	  	<bounds left="0.05" right="0.95" top="0.05" bottom="0.95" /></rect>
	  	
  	  <text state="1" string="~str0~"><color red="~col3r~" green="~col3g~" blue="~col3b~"/>
  	  	<bounds left="0.10" right="0.90" top="0.10" bottom="0.90" /></text>
	</element>

<element ref="keyclrref" inputtag="IN.0" inputmask="0x8">
			<bounds x="30" y="0" width="8" height="8" />
</element>
<element ref="keyfireref" inputtag="IN.0" inputmask="0x4">
			<bounds x="30" y="10" width="8" height="8" />
</element>


<element ref="keyclsref" inputtag="IN.1" inputmask="0x8">
			<bounds x="30" y="20" width="8" height="8" />
</element>

<element ref="keyrptref" inputtag="IN.2" inputmask="0x8">
			<bounds x="30" y="30" width="8" height="8" />
</element>

<param name="item" list="clr,IN.0,0x8,30,0,fire,IN.0,0x4,30,10,cls,IN.1,0x8,30,20,rpt,IN.2,0x8,30,30">

<repeat count="4">
<element ref="key~item~ref" inputtag="~item~" inputmask="~item~">
			<bounds x="~item~" y="~item~" width="8" height="8" />
</element>
</repeat>