Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  537 1532 (N26E37 L=  0)  1796    322        4 ( 446/1461- 649/1603) -25.3 E45-E26 N21-N31
      2 1091 1466 (N23W02 L= 39)   496    101        1 (1029/1431-1141/1489)  -9.5 E01-W05 N21-N24
      3  306 1417 (N18E53 L=344)   754    132        2 ( 268/1382- 341/1462) -32.0 E57-E49 N16-N21
      4 1326 1429 (N22W18 L= 55)   227     50        1 (1308/1409-1355/1456) -33.7 W16-W19 N20-N23
      5  222 1386 (N17E62 L=335)   552     44        2 ( 202/1360- 241/1417)  45.0 E64-E59 N15-N18
      6 1118 1197 (N06W05 L= 42)   495    164        0 (1055/1152-1191/1270) -29.1 W00-W09 N03-N10
      7 1881 1120 (N07W62 L= 99)  2317    490        7 (1805/1028-1944/1191) -33.7 W53-W72 N01-N10
      8  800 1123 (N01E14 L= 23)   305     85        0 ( 754/1086- 849/1149)  26.6 E16-E10 S01-N02
      9 1778 1056 (N02W51 L= 88)   320     60        1 (1758/1028-1797/1086) -71.6 W49-W53 N00-N03
     10 1846  851 (S09W61 L= 97)  7543   1305       22 (1739/ 700-1924/1075) -71.6 W50-W74 S17-N04
     11  259  906 (S13E53 L=344)  1157    349        2 ( 176/ 821- 336/1011) -63.4 E62-E45 S17-S06
     12  709  963 (S09E19 L= 18)   237     94        0 ( 666/ 938- 756/ 987)  31.0 E21-E16 S10-S07
     13 1726  898 (S08W48 L= 85)   268     80        1 (1696/ 879-1758/ 920)  21.8 W45-W50 S08-S06
     14 1457  871 (S11W28 L= 65)   222     58        1 (1439/ 833-1470/ 905) -63.4 W26-W29 S13-S09
     15  461  837 (S17E36 L=  1)   238     84        0 ( 444/ 789- 483/ 877) -78.7 E37-E35 S19-S14
     16 1633  780 (S15W42 L= 79)   275    110       -1 (1599/ 752-1665/ 809) -18.4 W38-W44 S16-S13
     17  892  655 (S27E07 L= 30)  1650    423        3 ( 717/ 564-1098/ 788)  32.0 E19-W05 S33-S18
     18 1665  639 (S24W48 L= 85)  1367    237        2 (1614/ 558-1695/ 763) -72.9 W44-W50 S28-S15
     19  546  653 (S28E32 L=  5)   800    248        0 ( 469/ 595- 624/ 738)  37.6 E38-E25 S32-S22
     20 1851  655 (S21W66 L=103)  1108    178        3 (1819/ 625-1887/ 687)   6.3 W62-W71 S22-S18
     21  281  595 (S32E57 L=340)  1912    329        6 ( 211/ 555- 336/ 641)   4.1 E64-E50 S34-S28
     22  628  486 (S40E29 L=  8)   615    133        3 ( 571/ 450- 673/ 519)  21.8 E34-E24 S42-S37
     23 1641  446 (S36W53 L= 90)  1200    151        1 (1591/ 410-1688/ 508)  69.4 W50-W58 S39-S31
     24 1184  452 (S40W15 L= 52)   348     49        1 (1155/ 428-1214/ 477)  53.1 W13-W17 S41-S37
  

    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