Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1045 1639 (N30E18 L=339)  1431    369        2 ( 998/1464-1085/1776) -56.3 E25-E11 N18-N39
      2  591 1708 (N22E52 L=305)   867    149        2 ( 556/1669- 642/1775) -77.5 E54-E48 N19-N28
      3  914 1621 (N25E25 L=332)   680    103        3 ( 856/1599- 967/1643)  33.7 E28-E21 N21-N27
      4 1566 1566 (N43W21 L= 18)  1192    232        0 (1488/1483-1655/1636) -12.5 W12-W30 N39-N46
      5  952 1541 (N20E19 L=338)   509    147        1 ( 929/1453- 979/1590) -71.6 E22-E16 N15-N24
      6 1371 1500 (N31W07 L=  4)   623    159        0 (1337/1432-1393/1565) -53.1 W03-W09 N26-N34
      7 1737 1392 (N38W39 L= 36)   380     65        0 (1713/1368-1766/1415)  -9.5 W36-W42 N36-N39
      8 1654 1281 (N27W32 L= 29)   734    243        0 (1584/1176-1716/1367) -26.6 W25-W39 N22-N30
      9 1619 1232 (N22W30 L= 27)   258     40        1 (1592/1211-1640/1255)  18.4 W28-W31 N21-N23
     10  158 1061 (S25E67 L=290)  1235    214        3 ( 132/ 952- 184/1144)  76.0 E71-E63 S31-S19
     11 1818 1065 (N20W51 L= 48)   592    144        0 (1774/1006-1843/1125) -24.0 W45-W55 N17-N22
     12  457  948 (S25E34 L=323)   550    172        1 ( 376/ 906- 523/ 988)  38.7 E39-E29 S29-S21
     13  968  740 (S24W05 L=  2)   660    231        0 ( 858/ 677-1070/ 771)  45.0 W00-W10 S30-S19
     14  331  735 (S42E44 L=313)   618    150        0 ( 263/ 709- 404/ 753)  15.5 E54-E35 S45-S39
     15 1712  647 (S06W56 L= 53)   387     36        3 (1691/ 622-1730/ 669) -71.6 W54-W58 S07-S04
  

    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