Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1286 1733 (N39W42 L=202)  1213    242        1 (1177/1679-1396/1768)  -2.4 W30-W54 N36-N39
      2 1449 1541 (N22W41 L=201)   324    110        0 (1412/1507-1503/1568) -59.0 W39-W43 N19-N24
      3  527 1345 (N33E26 L=134)   677    200        2 ( 445/1326- 643/1361) -14.0 E32-E16 N30-N35
      4 1132 1277 (N15W12 L=171)   260     92        0 (1079/1261-1172/1289) -36.9 W09-W14 N13-N16
      5  711 1239 (N22E14 L=145)   301     74        1 ( 673/1217- 754/1255)   0.0 E16-E10 N21-N23
      6 1752 1045 (S13W47 L=207)  1779    284        5 (1687/ 965-1811/1140) -59.7 W43-W54 S18-S06
      7  282 1008 (N18E50 L=109)  1696    306        4 ( 147/ 953- 383/1099)   4.2 E66-E39 N14-N21
      8 1848 1031 (S16W57 L=217)   611     72        1 (1828/1000-1874/1067)  26.6 W54-W61 S18-S14
      9 1582  806 (S22W30 L=189)   332     53        0 (1563/ 776-1596/ 846)  53.1 W28-W31 S24-S20
     10 1409  736 (S22W17 L=176)   775    215        0 (1341/ 645-1461/ 823)  36.0 W10-W21 S26-S18
     11 1195  643 (S23W01 L=161)   854    246        2 (1154/ 546-1247/ 751)  54.0 E03-W06 S28-S17
     12 1434  607 (S31W16 L=176)   489    127        0 (1378/ 578-1482/ 649)   7.1 W12-W20 S32-S29
     13  844  443 (S27E27 L=133)   449    111        2 ( 812/ 387- 868/ 494)  36.9 E31-E23 S30-S24
     14 1643  455 (S50W37 L=196)  1103    125        2 (1576/ 433-1701/ 490)  -6.7 W28-W45 S52-S47
  

    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