Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1178 1789 (N48E01 L= 11)   426     78        1 (1156/1763-1196/1817)  80.5 E02-W00 N45-N51
      2 1276 1721 (N44W08 L= 20)   307     55        1 (1251/1699-1295/1743)  53.1 W06-W09 N42-N46
      3  885 1705 (N36E21 L=351)   313     54        0 ( 870/1680- 906/1735) -45.0 E22-E18 N34-N38
      4 1468 1597 (N38W24 L= 36)   470     92        0 (1439/1565-1505/1621)  39.8 W21-W27 N34-N39
      5  466 1441 (N13E42 L=330)   267     77        1 ( 446/1409- 483/1470) -36.9 E44-E40 N11-N15
      6  347 1407 (N10E52 L=321)   428     95        2 ( 310/1387- 391/1427)   8.1 E54-E47 N08-N11
      7  402 1335 (N06E45 L=327)   329     39        2 ( 381/1309- 426/1362) -56.3 E46-E42 N04-N07
      8  391 1264 (N02E44 L=328)   289     68        1 ( 370/1238- 423/1287)  14.0 E45-E41 N00-N03
      9 1842 1193 (N17W55 L= 67)   796    134        5 (1820/1133-1863/1256) -76.0 W52-W57 N13-N21
     10 1889 1195 (N19W61 L= 73)   721    126        1 (1863/1145-1915/1235) -38.7 W57-W64 N16-N20
     11  969 1177 (N02E05 L=  7)   192    112        1 ( 913/1147-1001/1211) -31.0 E08-E03 N00-N03
     12  693 1114 (S05E21 L=351)   255     91        1 ( 649/1077- 725/1152) -33.7 E24-E18 S06-S02
     13  320 1128 (S07E48 L=324)   359     78        1 ( 290/1105- 345/1145) -11.3 E50-E45 S08-S05
     14 1307  922 (S08W18 L= 30)   606    184        5 (1254/ 840-1346/1008)  74.7 W16-W19 S13-S02
     15  669  948 (S14E21 L=351)   541    150        1 ( 620/ 902- 756/ 989)  36.9 E23-E15 S17-S11
     16  127  897 (S21E67 L=305)  1422    220        3 (  98/ 853- 168/ 946)  32.0 E71-E61 S23-S18
     17 1826  882 (S01W58 L= 70)   543    150        0 (1781/ 821-1868/ 928)  54.5 W54-W62 S05-N02
     18 1611  816 (S09W41 L= 53)   364     98        1 (1564/ 798-1649/ 832)   8.1 W36-W43 S11-S07
     19  453  704 (S32E36 L=336)   487     91        4 ( 432/ 666- 485/ 741) -78.7 E37-E33 S34-S29
     20 1075  632 (S29W09 L= 21)   401     74        2 (1051/ 595-1098/ 679) -68.2 W07-W10 S30-S25
     21 1756  558 (S21W62 L= 74)  1734    285        2 (1647/ 488-1831/ 622)  38.2 W54-W69 S27-S16
  

    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