[IConfig,4.8]

[VarDef,drawS,0]
[VarDef,newDrawSize,0]
[VarDef,maxDrawSize,256]
[VarDef,Cx1,0]
[VarDef,Cx2,0]


[VarSet,maxDrawSize,[IGet,Preferences:Draw:MaxBrushSize]]


[Sleep,0.0001,	
	[If,(result & 16 == 16),//key down
		//code run at START
		[ISet,Draw:Focal Shift,25]
	]
	[If,(result & 4 == 4),//mouse down
		//code run at END
		[ISet,Draw:Focal Shift,55]
	]
	[SleepAgain]
,20,result]




[RoutineDef,DisplaySize,
	[VarSet,drawS,[IGet,Draw:Draw Size]]
		[VarSet, Cx1, INT([MouseHPos])]
		[Delay,.033333]
		[VarSet, Cx2, INT([MouseHPos])]
		[VarSet,newDrawSize,drawS + INT(Cx2-Cx1)]
	[If,newDrawSize < 0,[VarSet,newDrawSize,0]]
	[If,newDrawSize > maxDrawSize,[VarSet,newDrawSize,maxDrawSize]]
	[ISet,Draw:Draw Size,newDrawSize]
[NoteBar,[StrMerge,"\CFF9923Draw Size \CFFFFFF",[IGet,Draw:DrawSize]],([IGet,Draw:DrawSize]*2)/[IWidth,1011]]
]//end routine


[ISubPalette,"ZPlugin:Adjust Draw Slider"]

[IButton,"ZPlugin:Adjust Draw Slider:Adj DrawSize","Adjust Draw Size by cursor movement",
[IShowActions,0]
[RoutineCall,DisplaySize]
,,1]