Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1773 (N53W29 L=277)   571     77        2 ( 943/1739-1008/1803)  80.5 W25-W32 N50-N56
      2  905 1754 (N55W22 L=269)   738     80        2 ( 873/1712- 937/1789)  45.0 W18-W26 N51-N57
      3 1312 1766 (N39W52 L=300)   507     44        1 (1283/1736-1340/1784) -18.4 W49-W56 N37-N40
      4 1512 1736 (N30W66 L=313)   510     55        1 (1487/1706-1535/1759)  45.0 W63-W68 N27-N31
      5  832 1704 (N54W12 L=260)   345     55        1 ( 804/1677- 853/1723) -76.0 W10-W15 N51-N55
      6 1537 1448 (N14W45 L=292)  1065    264        4 (1465/1344-1585/1549)  81.9 W41-W47 N07-N21
      7 1181 1497 (N28W24 L=272)   487    220        1 (1099/1435-1264/1546) -59.0 W20-W27 N22-N32
      8 1632 1487 (N13W54 L=302)  1024    142        4 (1566/1447-1694/1533) -53.1 W50-W59 N09-N17
      9  574 1328 (N36E21 L=227)  1593    430        3 ( 384/1269- 780/1361) -24.3 E38-E07 N26-N40
     10  747 1086 (N17E14 L=233)   516    245        0 ( 641/1068- 861/1120) -15.9 E20-E06 N14-N19
     11  968 1040 (N09E03 L=245)   323     95        1 ( 922/1002-1012/1079) -63.4 E04-W00 N05-N11
     12  447 1037 (N21E36 L=212)   730    194        0 ( 356/1014- 542/1054) -11.3 E43-E28 N18-N22
     13 1601  937 (S15W32 L=279)   407    130        2 (1548/ 905-1635/ 985)  -8.1 W28-W35 S17-S12
     14  274  950 (N20E53 L=195)   338     68        2 ( 247/ 921- 297/ 980)  21.8 E55-E50 N17-N21
     15  145  932 (N20E70 L=177)   987    113        1 ( 106/ 894- 193/ 973) -23.2 E78-E63 N17-N23
     16 1827  838 (S29W51 L=299)  1807    232        3 (1762/ 766-1874/ 944)  30.3 W43-W58 S32-S23
     17  433  927 (N15E39 L=208)   429    119        0 ( 375/ 904- 494/ 942) -24.0 E43-E34 N12-N16
     18  701  818 (N03E24 L=224)   425    111        1 ( 669/ 771- 734/ 865)  26.6 E26-E20 N00-N04
     19 1259  643 (S22W03 L=251)   267    125        0 (1235/ 588-1289/ 701)  39.8 W00-W06 S24-S19
     20 1468  428 (S44W12 L=260)  2540    567        6 (1219/ 275-1634/ 588)  11.0 E12-W29 S48-S37
     21  492  369 (S19E59 L=189)   739     92        1 ( 472/ 325- 513/ 418)  45.0 E62-E55 S22-S15
     22 1012  143 (S52E42 L=205)   826     87        1 ( 972/ 127-1055/ 161) -51.3 E47-E36 S54-S48
  

    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