﻿<?xml version="1.0" encoding="utf-8"?>
<MA xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.malighting.de/grandma2/xml/MA" xsi:schemaLocation="http://schemas.malighting.de/grandma2/xml/MA http://schemas.malighting.de/grandma2/xml/3.9.60/MA.xsd" major_vers="3" minor_vers="9" stream_vers="60">
	<Info datetime="2021-12-16T00:05:42" showfile="base_test" />
	<Macro index="27" name="Pan Mirror">
		<Appearance Color="bfffff" />
		<Macroline index="0">
			<text>Store Preset 2.999 /use=ActiveForSelected /o</text>
		</Macroline>
		<Macroline index="1">
			<text>SetUserVar $PMStart = 0; SetUserVar $PMStart = $PanMirrorBase;</text>
		</Macroline>
		<Macroline index="2">
			<text>AddUserVar $PMStart = -500</text>
		</Macroline>
		<Macroline index="3">
			<text>SetUserVar $PMEnd = 0; SetUserVar $PMEnd = $PanMirrorBase;</text>
		</Macroline>
		<Macroline index="4">
			<text>AddUserVar $PMEnd = 500;</text>
		</Macroline>
		<Macroline index="5">
			<text>Replace Attribute &quot;pan&quot; At $PMStart Thru $PMEnd With $PMEnd Thru $PMStart If Preset 2.999 /nc</text>
		</Macroline>
		<Macroline index="6">
			<text>Call Preset 2.999; Delete Preset 2.999</text>
		</Macroline>
		<Macroline index="7">
			<text>Extract Selection</text>
		</Macroline>
		<Macroline index="8">
			<text>SetUserVar $PMStart = ; SetUserVar $PMEnd = ;</text>
		</Macroline>
	</Macro>
	<Macro index="26" name="Set Pan Mirror Base">
		<Macroline index="0">
			<text>SetUserVar $PanMirrorBase = (enter mirror base)</text>
		</Macroline>
	</Macro>
</MA>