Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1162 1606 (N34W16 L=269)   779    135        1 (1085/1571-1217/1629) -32.0 W10-W19 N30-N35
      2 1533 1494 (N23W40 L=293)   264     85        0 (1495/1479-1584/1506)   0.0 W36-W43 N22-N23
      3 1434 1218 (N07W27 L=280)   571    120        1 (1374/1172-1481/1247) -18.4 W23-W29 N03-N08
      4 1524 1178 (N04W32 L=286)   260     57        0 (1499/1157-1558/1198)  14.0 W30-W34 N02-N04
      5 1817  839 (S19W56 L=309)  1299    198        3 (1779/ 760-1860/ 919)  73.3 W51-W59 S23-S13
      6  324  853 (S05E48 L=206)   818    124        1 ( 283/ 802- 376/ 891) -50.2 E51-E44 S08-S02
      7 1888  816 (S20W65 L=319)  1314    134        4 (1848/ 761-1917/ 876)  81.9 W60-W69 S23-S16
      8 1765  663 (S29W54 L=307)  1072    184        1 (1677/ 624-1847/ 692)   6.0 W45-W64 S31-S27
      9  292  605 (S19E59 L=195)   365     40        2 ( 273/ 581- 312/ 636)  56.3 E61-E56 S20-S17
     10  993  510 (S33E07 L=246)  1194    384        2 ( 829/ 443-1160/ 552)   2.5 E20-W04 S35-S30
     11  484  474 (S30E47 L=207)   457     72        1 ( 443/ 445- 512/ 505)  -8.1 E51-E44 S31-S27
     12 1382  448 (S41W22 L=276)  1339    323        0 (1242/ 388-1527/ 498)  11.8 W10-W34 S44-S38
     13  682  391 (S38E34 L=220)   881    191        3 ( 594/ 355- 776/ 417)   0.0 E42-E25 S39-S36
     14 1531  341 (S52W42 L=296)  1392    172        2 (1465/ 316-1604/ 374)   7.1 W33-W53 S53-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