Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  792 1835 (N43E46 L= 75)   525    117        2 ( 750/1817- 836/1851)   7.1 E49-E41 N41-N44
      2 1345 1654 (N46W05 L=126)  1148    253        2 (1324/1568-1374/1744) -75.1 W02-W09 N38-N54
      3  468 1669 (N23E59 L= 62)  1025    202        2 ( 447/1610- 496/1732) -48.4 E63-E55 N18-N27
      4  873 1675 (N33E29 L= 92)   311     48        1 ( 848/1654- 891/1698)  90.0 E30-E27 N31-N34
      5 1590 1606 (N51W30 L=151)   402     64        0 (1562/1591-1616/1621)  29.7 W26-W33 N48-N53
      6  535 1547 (N17E46 L= 75)   513    147        2 ( 510/1498- 562/1619) -63.4 E48-E42 N13-N21
      7  927 1569 (N27E21 L=101)   298     56        0 ( 903/1553- 958/1590)   0.0 E22-E18 N25-N28
      8  621 1513 (N16E38 L= 83)   312    131        0 ( 594/1483- 655/1557) -23.2 E41-E34 N14-N18
      9  998 1484 (N23E13 L=108)   234     64        1 ( 974/1463-1016/1519) -76.0 E14-E11 N21-N25
     10  935 1386 (N16E14 L=107)   467    137        2 ( 917/1322- 963/1439) -56.3 E16-E11 N12-N19
     11  211 1206 (S10E62 L= 59)   860    144        2 ( 183/1154- 240/1263)  90.0 E65-E59 S13-S06
     12 1260 1232 (N14W09 L=130)   327     62        2 (1225/1208-1294/1261)  45.0 W07-W10 N12-N16
     13  280 1218 (S08E55 L= 66)   519     74        3 ( 255/1186- 309/1239)  71.6 E57-E52 S09-S06
     14 1089 1068 (N01W03 L=124)   186     42        1 (1063/1051-1116/1088)  18.4 W01-W04 N00-N02
     15 1711 1007 (N13W44 L=166)   362     61        0 (1689/ 977-1738/1030)  53.1 W42-W46 N10-N14
     16  611  776 (S27E20 L=101)   290     74        0 ( 574/ 758- 643/ 799)  26.6 E22-E18 S28-S25
     17 1800  726 (S00W62 L=184)   638    119        0 (1762/ 663-1829/ 775)  74.1 W60-W64 S04-N03
     18  785  579 (S35E04 L=117)   225     64        1 ( 763/ 561- 813/ 604) -33.7 E05-E01 S36-S33
     19 1662  516 (S16W59 L=180)   955    161        3 (1619/ 464-1696/ 554) -81.9 W54-W61 S19-S12
     20 1331  276 (S40W48 L=170)  1056    221        1 (1253/ 261-1423/ 295)  21.0 W42-W56 S42-S37
  

    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