Skip to content

Instantly share code, notes, and snippets.

View quantixed's full-sized avatar

Stephen Royle quantixed

View GitHub Profile
@quantixed
quantixed / spindleSaver.ijm
Last active March 9, 2020 14:52
short macro to save a cell of interest (one frame from a two channel movie)
/*
* Short routine to save a single timepoint from a 2 channel movie
* Used for knocksideways spindle analysis
* Best done with "click ROI" square ROI over cell of interest
*/
dir = getDirectory("home")+"Desktop"+File.separator
winName = getTitle();
sliceNo = round(getSliceNumber() / 2);
s = "title=[tempwin] duplicate frames=" + d2s(sliceNo,0);
run("Duplicate...", s);
@quantixed
quantixed / haversine.ipf
Last active October 6, 2020 05:45
Calculates distance between two points using latitude and longitude in decimal degrees - IGOR Pro
// calculates spherical distance between two points on earth given coords in decimal degrees
// uses haversine formula
// radius of earth is taken to be 6371 km (IUGG/WGS-84 mean)
Function SphericalDistanceBetweenTwoPoints(lat1, long1, lat2, long2)
Variable lat1, long1, lat2, long2
// convert inputs in degrees to radians
lat1*= pi/180
long1*= pi/180
lat2*= pi/180
@quantixed
quantixed / lut2tsv.ijm
Last active June 3, 2019 14:33
Export all look-up tables (LUTs) in FIJI to four column text format
function lutValuesToTable(filePath) {
getLut(reds, greens, blues);
tableTitle = "lutValueTable";
eightBit = 256;
run("Table...", "name=["+tableTitle+"] width=600 height=250");
print("["+tableTitle+"]", "\\Headings:Index\tRed\tGreen\tBlue");
for (i = 0; i < eightBit; i ++) {
rowString = d2s(i,0) + "\t" + reds[i] + "\t" + greens[i] + "\t" + blues[i];
print("["+tableTitle+"]", rowString);
}

Keybase proof

I hereby claim:

  • I am quantixed on github.
  • I am sjroyle (https://keybase.io/sjroyle) on keybase.
  • I have a public key ASCWCcNewPuFelX38VrKNO9CBVZh967DT85XKS9rN7Hwjgo

To claim this, I am signing this object:

@quantixed
quantixed / WordCount.scpt
Created October 4, 2018 12:08
AppleScript to get word and character count from TextEdit
tell application "TextEdit"
set wc to count words of document 1
set cc to count characters of document 1
if wc is equal to 1 then
set txt to " word, "
else
set txt to " words, "
end if
if cc is equal to 1 then
set txtc to " character."