Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1184 1716 (N48W31 L=327)   478     64        1 (1156/1685-1219/1739)  14.0 W27-W35 N46-N49
      2 1309 1630 (N39W36 L=331)  1048    158        2 (1263/1577-1362/1687) -90.0 W31-W37 N34-N44
      3 1659 1563 (N26W63 L=359)   627    101        0 (1613/1527-1701/1590) -45.0 W59-W66 N23-N28
      4 1243 1539 (N34W26 L=321)   516    134        0 (1199/1482-1265/1575) -90.0 W23-W28 N30-N37
      5 1159 1511 (N34W19 L=314)   322    108        0 (1136/1466-1189/1560) -90.0 W17-W20 N30-N37
      6 1421 1401 (N22W33 L=329)   501    214        1 (1398/1318-1442/1490)  59.0 W31-W37 N17-N27
      7  256 1133 (N22E56 L=239)   784    178        1 ( 222/1043- 275/1206) -59.0 E61-E53 N16-N26
      8  678 1135 (N18E20 L=275)   708    284        0 ( 555/1087- 800/1185) -26.6 E28-E12 N13-N22
      9  544  976 (N10E31 L=264)   440    155        1 ( 492/ 912- 589/1022) -58.0 E34-E28 N05-N13
     10 1659  908 (S12W40 L=335)  1480    270        0 (1586/ 795-1715/1018)  42.5 W33-W45 S17-S06
     11 1897  940 (S16W67 L=  2)   765     79        0 (1878/ 893-1911/ 974) -56.3 W63-W70 S19-S13
     12 1198  855 (S06W08 L=303)   732    167        1 (1153/ 765-1235/ 927)  52.1 W03-W10 S11-S02
     13 1802  875 (S17W54 L=349)   468    128        0 (1750/ 845-1847/ 923)  10.3 W47-W59 S18-S15
     14 1390  762 (S15W19 L=314)   234     64        1 (1372/ 732-1412/ 792)  63.4 W17-W20 S17-S13
     15 1653  717 (S24W39 L=334)   391    112        0 (1622/ 671-1672/ 765)  59.0 W36-W40 S26-S20
  

    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