Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1494 1663 (N38W38 L=221)   416     50        1 (1465/1640-1521/1681)   0.0 W36-W41 N36-N39
      2  418 1585 (N35E46 L=136)   541    102        1 ( 377/1567- 456/1609)   8.1 E50-E42 N33-N36
      3  685 1578 (N33E24 L=159)   694    172        1 ( 605/1563- 775/1598)   0.0 E29-E16 N31-N34
      4 1654 1343 (N16W43 L=226)   609    192        0 (1575/1314-1732/1390) -14.0 W37-W49 N14-N19
      5  382 1311 (N16E43 L=140)   546    112        0 ( 346/1281- 426/1349) -23.2 E46-E39 N14-N18
      6  897 1215 (N09E07 L=175)   179     32        1 ( 869/1198- 920/1230)   0.0 E09-E05 N07-N09
      7  258 1176 (N08E53 L=130)   406     92        3 ( 233/1146- 278/1220)  90.0 E55-E50 N06-N11
      8 1003 1160 (N05E01 L=181)   518    113        0 ( 952/1105-1049/1211) -60.3 E04-W01 N01-N08
      9  975  957 (S07E03 L=179)   686    184        1 ( 924/ 863-1047/1023)  52.1 E06-W01 S12-S03
     10   91  884 (S08E78 L=105)  2069    230        4 (  74/ 808- 106/ 944) -90.0 E83-E74 S12-S04
     11 1409  882 (S12W24 L=206)   341    140        0 (1345/ 846-1473/ 908)  18.4 W19-W28 S14-S10
     12  153  783 (S14E68 L=115)  1916    295        2 ( 125/ 706- 187/ 893)  61.4 E72-E64 S18-S07
     13 1715  829 (S15W47 L=230)   316     87        1 (1695/ 789-1733/ 886)  90.0 W45-W48 S17-S11
     14 1236  820 (S16W13 L=195)   240     77        2 (1207/ 786-1261/ 865)  68.2 W11-W14 S17-S12
     15 1653  796 (S17W42 L=225)   426     92        1 (1629/ 765-1688/ 829)  63.4 W40-W45 S18-S14
     16  345  791 (S15E47 L=136)   475     34        1 ( 321/ 765- 369/ 817) -45.0 E49-E44 S16-S13
     17  615  777 (S17E27 L=156)   289     50        1 ( 597/ 745- 634/ 812)  76.0 E28-E25 S18-S14
     18 1825  764 (S19W59 L=241)   774     95        1 (1795/ 725-1855/ 797)  76.0 W55-W62 S20-S16
     19 1825  658 (S25W61 L=244)   583    175        0 (1783/ 637-1869/ 683)  12.5 W56-W65 S26-S23
     20  238  619 (S25E62 L=121)   609    240        0 ( 207/ 578- 266/ 658)  29.1 E66-E57 S27-S22
     21 1219  517 (S35W13 L=196)   934    208        2 (1144/ 435-1304/ 606)  47.7 W08-W18 S40-S29
     22  345  505 (S33E55 L=128)  1270    247        0 ( 324/ 421- 374/ 597)  61.4 E58-E50 S38-S27
     23  633  441 (S39E32 L=151)  1479    402        2 ( 576/ 370- 685/ 527)  40.2 E39-E26 S44-S33
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y