Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  728 1844 (N36E52 L=169)   623    202        0 ( 708/1808- 747/1886) -28.6 E58-E47 N33-N39
      2  370 1144 (S16E44 L=176)   569    144        0 ( 319/1085- 421/1188)  63.4 E46-E40 S20-S12
      3 1855 1149 (N27W52 L=273)   442     73        1 (1833/1125-1876/1178) -45.0 W50-W55 N25-N29
      4 1706 1086 (N18W40 L=260)   318     67        0 (1681/1046-1723/1119) -45.0 W37-W41 N15-N19
      5 1585  984 (N08W34 L=254)   889    170        0 (1531/ 911-1647/1060) -20.0 W28-W39 N05-N11
      6  498  989 (S22E31 L=190)   309    127        0 ( 465/ 961- 546/1044) -15.9 E34-E27 S22-S19
      7 1898  894 (N15W65 L=285)  3490    377        3 (1859/ 756-1926/1020) -42.9 W55-W73 N07-N21
      8 1071  961 (S08W04 L=225)   205     69        0 (1059/ 921-1082/1002) -53.1 W02-W05 S10-S06
      9  709  913 (S21E15 L=205)   234     77        0 ( 667/ 897- 752/ 929)  18.4 E18-E12 S21-S19
     10  362  739 (S41E39 L=182)  1058    309        3 ( 261/ 713- 475/ 762)  18.4 E49-E28 S44-S36
     11 1035  603 (S29W14 L=234)   319    123        0 ( 969/ 592-1096/ 618)  29.7 W09-W16 S30-S26
     12 1358  584 (S20W34 L=254)   260    116        0 (1305/ 568-1411/ 612)  14.0 W29-W37 S21-S18
     13 1546  548 (S16W48 L=268)   283     83        1 (1513/ 524-1580/ 568)   8.1 W44-W51 S16-S15
     14 1668  496 (S14W61 L=281)   406     98        1 (1651/ 476-1700/ 522)  45.0 W58-W64 S15-S12
  

    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