mutterer

## Data_To_Midi.groovy
#@ File saveLocation (label="Location of MIDI save file")

/**
 * Testing Spots to Sound using MIDI
 * Each hit is given a unique note based on some metric and intensity is related to volume
 *
 * = AUTHOR INFORMATION =
 * Code written by Olivier Burri, EPFL - SV - PTECH - BIOP
 * for Samuel Vernon, McCabe Lab
 * 2022.08.23

## Image_to_Tool_Icon_24.ijm
// This macro converts a 24x24 8-bit image to a tool macro icon
// string. Ideally, the image should have no more than 16 colors.
// Includes a few examples.

macro "Convert Image to Tool Icon 24..." {
  requires("1.53c");  // for the extended hex feature
  if (bitDepth==24)  // convert RGB to 16-color 8-bit
    run("8-bit Color", "number=16");
  if (bitDepth!=8 || getWidth>24 || getHeight>24)
    exit("This macro requires an 8-bit 24x24 image");

## straighten_animation_v1(20210115).ijm
// Providing an image and polyline, macro illustrates
// (creates a stack with animation)
// "Straighten" ROI function of ImageJ
// 2021.01.15 Eugene Katrukha / katpyxa at gmail dot com

if (nImages<1)
{
	exit("This macro needs an input image. Open something");
}
if(selectionType()!=6)

## curvature_radius.bsh
/*
 * Simple script that takes a selection and computes the curvature radius for the whole perimeter of the shape.
 *
 * By Olivier Burri,
 * BioImaging and Optics Platform, BIOP
 * Ecole Polytechnique Fédérale de Lausanne (EPFL)
 * Last update: May 2017
 *
 *
 */

## sketch_aug31b.pde
/**
 * Flames. Generates some flames by using gradients (with basic
 * spline math) and Perlin noise (for generating the flame
 * height).
 */

/** Flame outer color */
color startCol = color(100, 0, 210);
/** Flame inner color */
color endCol = color(200, 150, 255);

## zoom_movie_ImageJ_v2.ijm
//ImageJ macro making a movie (stack) of zooming on selected rectangle (ROI)
//Eugene Katrukha katpyxa at gmail.com
requires("1.48h");

//check if there is rectangular selection
if(selectionType() ==0)
{
	sTitle=getTitle();
	sMovieTitle=sTitle+"_zoom_movie";
	setBatchMode(true);

## drawCirclesAndQuadrants.ijm
/*
* By Olivier Burri, BioImaging & Optics Platform EPFL
* June 2016
* Provided as-is from a request on the ImageJ Forum
* http://forum.imagej.net/t/dividing-circle-into-8-equal-areas/1995
*/

var count = 0;  // Variable to know which circle we are working on

// If you install this macro, it will be mapped to the F2 Key

## JACoP_Fluorogram.ijm
/*
 * Making a pretty fluorogram
 * Olivier Burri, BioImaging & Optics Platform, EPFL
 */

run("Fluorescent Cells (400K)");

image = getTitle();
run("Split Channels");
	#@ File saveLocation (label="Location of MIDI save file")

	/**
	* Testing Spots to Sound using MIDI
	* Each hit is given a unique note based on some metric and intensity is related to volume
	*
	* = AUTHOR INFORMATION =
	* Code written by Olivier Burri, EPFL - SV - PTECH - BIOP
	* for Samuel Vernon, McCabe Lab
	* 2022.08.23
	// This macro converts a 24x24 8-bit image to a tool macro icon
	// string. Ideally, the image should have no more than 16 colors.
	// Includes a few examples.

	macro "Convert Image to Tool Icon 24..." {
	requires("1.53c"); // for the extended hex feature
	if (bitDepth==24) // convert RGB to 16-color 8-bit
	run("8-bit Color", "number=16");
	if (bitDepth!=8 \|\| getWidth>24 \|\| getHeight>24)
	exit("This macro requires an 8-bit 24x24 image");
	// Providing an image and polyline, macro illustrates
	// (creates a stack with animation)
	// "Straighten" ROI function of ImageJ
	// 2021.01.15 Eugene Katrukha / katpyxa at gmail dot com

	if (nImages<1)
	{
	exit("This macro needs an input image. Open something");
	}
	if(selectionType()!=6)
	/*
	* Simple script that takes a selection and computes the curvature radius for the whole perimeter of the shape.
	*
	* By Olivier Burri,
	* BioImaging and Optics Platform, BIOP
	* Ecole Polytechnique Fédérale de Lausanne (EPFL)
	* Last update: May 2017
	*
	*
	*/
	/**
	* Flames. Generates some flames by using gradients (with basic
	* spline math) and Perlin noise (for generating the flame
	* height).
	*/

	/** Flame outer color */
	color startCol = color(100, 0, 210);
	/** Flame inner color */
	color endCol = color(200, 150, 255);
	//ImageJ macro making a movie (stack) of zooming on selected rectangle (ROI)
	//Eugene Katrukha katpyxa at gmail.com
	requires("1.48h");

	//check if there is rectangular selection
	if(selectionType() ==0)
	{
	sTitle=getTitle();
	sMovieTitle=sTitle+"_zoom_movie";
	setBatchMode(true);
	/*
	* By Olivier Burri, BioImaging & Optics Platform EPFL
	* June 2016
	* Provided as-is from a request on the ImageJ Forum
	* http://forum.imagej.net/t/dividing-circle-into-8-equal-areas/1995
	*/

	var count = 0; // Variable to know which circle we are working on

	// If you install this macro, it will be mapped to the F2 Key
	/*
	* Making a pretty fluorogram
	* Olivier Burri, BioImaging & Optics Platform, EPFL
	*/

	run("Fluorescent Cells (400K)");

	image = getTitle();
	run("Split Channels");