Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  928 1894 (N60E45 L=121)   643     52        1 ( 898/1877- 959/1915)  -4.4 E53-E38 N58-N62
      2 1509 1524 (N41W27 L=194)   361     99        0 (1470/1483-1538/1553) -51.3 W23-W30 N37-N42
      3  444 1497 (N18E51 L=116)   636     96        0 ( 415/1454- 491/1534) -21.8 E55-E45 N15-N19
      4 1772 1330 (N32W53 L=220)  1597    223        2 (1710/1242-1827/1415) -51.3 W47-W60 N26-N37
      5  585 1350 (N11E34 L=133)   284     84        2 ( 545/1326- 627/1376)  31.0 E36-E31 N09-N13
      6  188 1103 (S10E64 L=102)   643     67        2 ( 155/1072- 214/1138)  35.5 E68-E60 S12-S07
      7  281 1083 (S10E53 L=114)   699    114        1 ( 241/1035- 322/1120) -51.3 E57-E48 S12-S07
      8  152  899 (S23E70 L= 97)   896    105        0 ( 134/ 844- 181/ 934)  28.6 E75-E63 S26-S20
      9  257  837 (S25E54 L=112)   432     81        1 ( 228/ 812- 292/ 865)  -8.1 E57-E50 S26-S23
     10  900  672 (S24E02 L=165)  2074    517        2 ( 695/ 557-1099/ 807)  46.3 E14-W08 S35-S12
     11 1701  643 (S11W56 L=222)   465     85        1 (1672/ 620-1731/ 665)  21.8 W53-W58 S12-S09
     12 1741  594 (S14W63 L=230)   546     78        2 (1707/ 568-1777/ 616)  38.7 W59-W67 S15-S11
     13 1594  434 (S26W58 L=225)   652    133        1 (1544/ 401-1659/ 465)  36.9 W54-W63 S29-S23
     14 1023  182 (S61W31 L=197)   644     63        0 ( 988/ 165-1059/ 200)  14.0 W25-W35 S62-S58
  

    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