hrpunio

#!/bin/bash
#returns source image location and thumbnail location
#Usage: picasa.sh  /path/to/pic  [Pic Name Shown In Album]

# One have to declare ALBUM_ID USER_ID username and password
ALBUM_ID=????????????????????
USER_ID=116390720146821374745

my_pic="$1"
[ -z "$2" ] &&

hrpunio

#!/bin/bash
# Convert TCX (Garmin Edge) to GPX with gpsbabel
# Usage: tcx2gpx tcx-file-name [-o gpx-file-name] -max 999
#   -o   -- gpx-file-name, if not given, computed from tcx-file-name (it is assumed YYYY-MM-DD*.tcx)
#   -max -- produce simplified track with maximum 999 trkpoints

#
SIMPLIFY=""

if [ $# -eq 0 ]; then

hrpunio

#!/usr/bin/awk -f

# Podsumowanie gw. kategorii
# Wykonanie awk -f foo2.awk co='wartosc' plik
#

BEGIN {
sub("^:","#>", co); sub(":$","#<", co);
gsub(":",":[^:]*:", co);
sub("^#>",":", co); sub("#<$",":", co);

hrpunio

#!/bin/bash
# scan documents to PDF
# t.przechlewski // 2013
#
XSIZE=210
YSIZE=297
MODE="Gr"
RESOLUTION=150  # try  "lin", "bin",  "gr", or "col"

USAGE="*** $0 -x XSIZE -y YSIZE -mode [lin|gr|col] -r RESOLUTION out-file.pnm

hrpunio

#!/usr/bin/perl
#
use Geo::Distance;

my $geo = new Geo::Distance;
my $trkpt = 0;

while(<>) {

  if (/Lat=/ && /Lon=/) {##

hrpunio

#!/usr/bin/perl
# Wyszukuje $TSlimit punktów na śladzie GPX najbliższych latitude:longitude
# Ślad jest podany jako argument polecenia
#
use Geo::Distance;
use Getopt::Long;
my $geo = new Geo::Distance;

my $TSlimit = 20;

hrpunio

#!/usr/bin/python
# Wysłanie 4 argumentów wywołania programu do arkusza na Google docs
#
import re
import sys
import time
import datetime
import gspread

# ===========================================================================

hrpunio

#!/bin/bash
#
# Usage:  ffmpeg_cut.sh start-time stop-time file-in file-out
# where:
#  start-time stop-time has the format: hh:mm:ss (hh,mm optional)
#
function cnt_sec () {
  echo $1 | awk -F":" '{ if (NF>2) { sec += 60*60 * $(NF-2) } ;
        if (NF>1) { sec += 60 * $(NF-1) } ;
        if (NF>0) { sec += $NF } ; ## seconds

hrpunio

#!/usr/bin/perl
# http://search.cpan.org/~waltman/Geo-Coordinates-DecimalDegrees-0.05/DecimalDegrees.pm
use Geo::Coordinates::DecimalDegrees;
#
my @dms = @ARGV ;
print STDERR "*** dms2decimal hr min sec ... hr/min/sec niekoniecznie sa liczbami calkowitymi....\n";

while (@dms) {
  $deg = shift @dms ; $min = shift @dms ; $sec = shift @dms ;
  printf "%f %f %f =  %.6f\n", $deg, $min, $sec, dms2decimal($deg, $min, $sec);

hrpunio

%% every par is printed at separate page and centered vertically (Plain.tex)
\let \TruePar \par
\def\eject{\TruePar\break}
\def\par{\TruePar \vfill \eject}
\topskip=0pt plus 1fill

Pierwszy akapit i~pierwsza strona

Drugi akapit i~druga strona