Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1560 1695 (N27W61 L=138)   607     50        3 (1531/1668-1586/1721)   6.3 W57-W66 N25-N28
      2 1380 1604 (N27W40 L=117)   698    119        1 (1327/1564-1437/1637) -60.3 W36-W42 N23-N30
      3 1719 1548 (N14W65 L=142)  1925    189        7 (1680/1480-1760/1617)  32.5 W57-W74 N10-N17
      4 1659 1501 (N14W55 L=132)   607     65        1 (1632/1462-1684/1538)  78.7 W53-W57 N11-N16
      5 1283 1406 (N18W25 L=102)   798    261        0 (1187/1361-1405/1480) -47.7 W21-W31 N13-N25
      6  953 1379 (N25W05 L= 82)  1985    607        5 ( 699/1273-1199/1439) -30.7 E11-W16 N13-N32
      7 1495 1381 (N12W37 L=114)   256     36        2 (1466/1362-1520/1400) -14.0 W35-W39 N10-N12
      8  836 1234 (N20E06 L= 71)   464    184        0 ( 746/1218- 928/1249) -24.4 E11-W00 N17-N22
      9 1573 1119 (S05W34 L=111)   488    134        1 (1555/1043-1592/1175)  60.3 W32-W37 S08-S01
     10 1865 1004 (S19W57 L=134)  1581    152        3 (1794/ 956-1937/1041)   0.0 W49-W68 S20-S16
     11  793  944 (N05E15 L= 62)   377    164        0 ( 745/ 892- 863/ 973)  14.0 E18-E10 N02-N05
     12 1185  850 (S10W05 L= 82)   392    137        1 (1141/ 813-1212/ 917)  33.7 W01-W07 S11-S06
     13 1857  829 (S30W56 L=132)  1088    218        1 (1765/ 759-1928/ 900)  10.3 W44-W66 S31-S27
     14  716  724 (S06E25 L= 52)   751    208        5 ( 618/ 668- 796/ 776)   0.0 E31-E18 S07-S03
     15  272  715 (N02E58 L= 19)  1482    168        3 ( 194/ 668- 343/ 757) -14.9 E67-E51 S01-N04
     16  596  654 (S07E34 L= 43)   626    132        3 ( 561/ 599- 632/ 713)  50.2 E37-E31 S10-S03
     17  989  617 (S18E12 L= 65)   330    109        0 ( 929/ 598-1039/ 640)  -8.1 E15-E08 S19-S17
     18  288  525 (S09E67 L= 10)  3485    210        8 ( 248/ 455- 347/ 614)  74.7 E79-E60 S14-S03
     19  448  516 (S12E51 L= 26)  1229    251        2 ( 374/ 468- 548/ 606) -55.0 E54-E43 S16-S05
     20  834  478 (S23E26 L= 51)  2392    556        6 ( 638/ 402-1036/ 599) -33.7 E35-E13 S29-S12
     21  696  298 (S32E46 L= 31)  4398    344        6 ( 623/ 124- 762/ 436)  29.6 E83-E38 S46-S21
  

    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