← Back to branch summary

~ubuntu-branches/ubuntu/utopic/circos/utopic-proposed

« back to all changes in this revision

Viewing changes to .pc/configpath_add_etc/etc/makehusteps

  • Committer: Package Import Robot
  • Author(s): Olivier Sallou, Olivier Sallou, Charles Plessy, Andreas Tille
  • Date: 2012-06-14 12:56:33 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120614125633-0wh7ovv69s5k1uiq
Tags: 0.61-1
[ Olivier Sallou ]
* New upstream release

[ Charles Plessy ]
* renamed debian/upstream-metadata.yaml to debian/upstream

[ Andreas Tille ]
* debian/upstream: enhanced citation information 

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/configpath_add_etc/etc/makehusteps
1
 
#!/bin/env perl 
2
 
 
3
 
use strict;
4
 
use Math::Round qw(round);
5
 
 
6
 
# in steps
7
 
for my $steps (1..360) {
8
 
    next unless 360/$steps == int(360/$steps);
9
 
    my @hue = map { sprintf("%03d", 360/$steps*($_-1)) } (1..$steps);
10
 
    printf("hue-s%d = hue(%s)\n",360/$steps,join("|",@hue));
11
 
}
12
 
 
13
 
# in divisions
14
 
 
15
 
for my $divisions (3..30) {
16
 
    my @hue;
17
 
    for my $step ( 0 .. $divisions-1 ) {
18
 
        push @hue, 360 * $step / $divisions;
19
 
    }   
20
 
    printf("hue-%d = hue(%s)\n",$divisions,join("|",map { sprintf("%03d",round $_) } @hue));
21
 
}