Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1205 1746 (N52W01 L=160)   486     62        1 (1169/1719-1233/1765) -18.4 E02-W04 N50-N54
      2  601 1725 (N39E51 L=108)   549     75        1 ( 563/1708- 647/1738)  23.2 E54-E46 N36-N40
      3  912 1520 (N29E16 L=143)  2127    431        3 ( 736/1423-1100/1599)  -8.1 E29-E01 N25-N32
      4 1714 1544 (N45W56 L=215)   772     68        0 (1670/1530-1755/1559)   6.7 W48-W65 N43-N46
      5 1229 1319 (N21W09 L=167)   265     71        0 (1191/1294-1260/1339) -26.6 W06-W10 N19-N21
      6 1124 1258 (N15W03 L=161)   439    165        0 (1060/1191-1170/1295) -23.2 E01-W06 N11-N17
      7  198 1223 (N00E64 L= 94)  1495    142        1 ( 168/1153- 243/1282)  74.1 E67-E60 S03-N04
      8 1740 1143 (N17W48 L=207)   398     63        0 (1713/1125-1778/1158)  23.2 W45-W52 N15-N18
      9 1157  791 (S12W11 L=170)   723    228        0 (1068/ 748-1259/ 850)  35.0 W06-W16 S15-S07
     10  491  776 (S22E32 L=127)   273     49        1 ( 464/ 754- 523/ 798)  21.8 E34-E29 S24-S21
     11 1241  629 (S21W20 L=179)  2212    601        3 ( 958/ 571-1414/ 769)  34.7 W02-W28 S27-S09
     12  454  591 (S36E37 L=122)   316     44        0 ( 439/ 566- 472/ 618)  63.4 E38-E35 S37-S33
     13 1088  270 (S50W22 L=181)   524     75        0 (1052/ 256-1138/ 289)  -6.3 W18-W27 S51-S48
     14 1198  231 (S51W36 L=195)   389     26        1 (1178/ 208-1216/ 255) -51.3 W33-W39 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