Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  971 1778 (N45E15 L=262)   830    131        2 ( 903/1755-1033/1794)   0.0 E21-E09 N43-N46
      2  957 1619 (N32E12 L=266)   284     74        0 ( 916/1598- 997/1635) -18.4 E14-E08 N30-N32
      3 1642 1569 (N38W43 L=321)   439     63        1 (1619/1539-1675/1598) -45.0 W41-W46 N35-N40
      4  624 1498 (N20E32 L=246)  1121    197        4 ( 554/1426- 693/1569) -32.7 E39-E25 N15-N24
      5 1184 1531 (N28W05 L=282)   418     86        1 (1142/1509-1222/1553)   0.0 W02-W07 N26-N29
      6 1373 1521 (N30W18 L=295)   501    147        1 (1317/1471-1427/1550) -14.0 W14-W22 N26-N31
      7 1106 1490 (N24W00 L=277)   211     82        0 (1072/1471-1142/1515) -26.6 E02-W02 N23-N25
      8 1419 1392 (N22W22 L=299)   468    144        0 (1381/1329-1458/1456)  66.0 W19-W24 N17-N26
      9 1549 1261 (N15W31 L=308)   590    192        0 (1494/1184-1599/1341) -52.1 W26-W34 N10-N19
     10 1855 1071 (N08W59 L=336)   422     39        1 (1836/1048-1873/1098) -26.6 W56-W61 N06-N09
     11  151  750 (S27E74 L=203)   959    150        1 ( 128/ 693- 196/ 820)  19.3 E83-E62 S30-S23
     12  839  661 (S29E08 L=269)  1282    387        0 ( 726/ 533- 974/ 793)  49.9 E16-W00 S38-S19
     13 1626  716 (S16W44 L=322)   717    130        3 (1582/ 650-1657/ 765) -82.9 W41-W47 S20-S12
     14 1683  585 (S23W55 L=332)   704    129        2 (1648/ 531-1710/ 632) -81.9 W50-W58 S26-S19
  

    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