Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1299 1641 (N36W38 L=292)  1484    344        2 (1129/1597-1426/1673) -14.0 W24-W48 N31-N39
      2 1599 1652 (N27W64 L=318)   869    106        1 (1537/1630-1650/1673) -14.9 W57-W73 N25-N29
      3  286 1375 (N43E55 L=199)  1595    254        4 ( 231/1273- 356/1496)  75.1 E60-E47 N36-N51
      4 1566 1347 (N12W42 L=296)   381    123        0 (1520/1300-1617/1373) -50.2 W39-W44 N08-N14
      5 1216 1248 (N15W16 L=270)   669    206        1 (1173/1147-1243/1311) -90.0 W14-W18 N09-N20
      6 1650 1241 (N04W44 L=298)   307     61        1 (1619/1222-1677/1266)  11.3 W41-W46 N02-N05
      7 1842 1072 (S11W57 L=311)   840    157        1 (1825/1002-1867/1148)  77.5 W54-W59 S15-S06
      8  502 1113 (N23E31 L=222)   246     58        0 ( 485/1080- 522/1142) -63.4 E32-E30 N20-N24
      9 1708 1103 (S05W45 L=298)   272     58        0 (1688/1073-1726/1136) -78.7 W43-W46 S07-S02
     10  662  964 (N11E23 L=231)   485    185        0 ( 618/ 873- 702/1034) -78.7 E24-E21 N05-N15
     11  804  813 (S00E17 L=236)   905    316        0 ( 730/ 679- 912/ 874)  21.8 E24-E09 S06-N03
     12 1677  748 (S26W37 L=290)   275     65        0 (1657/ 713-1696/ 774) -68.2 W35-W38 S28-S23
     13 1229  700 (S16W05 L=258)   472    149        1 (1207/ 651-1256/ 749)  45.0 W02-W07 S19-S13
     14  634  671 (S06E31 L=222)   384    114        0 ( 598/ 643- 689/ 693) -38.7 E33-E28 S08-S03
     15  261  598 (S05E67 L=187)  1874    190        2 ( 197/ 538- 320/ 672) -48.4 E72-E61 S09-N00
     16  555  632 (S07E38 L=216)   362     69        2 ( 534/ 604- 582/ 667) -76.0 E39-E36 S08-S04
     17  591  581 (S10E37 L=216)   474     58        0 ( 559/ 552- 622/ 613)  36.9 E40-E34 S11-S08
     18  422  470 (S15E56 L=197)  2864    379        7 ( 353/ 337- 481/ 581)  50.2 E71-E47 S24-S06
     19 1557  464 (S42W25 L=279)  1880    263        3 (1461/ 376-1646/ 548)  24.0 W15-W34 S47-S37
     20  727  438 (S22E34 L=220)   970    131        4 ( 688/ 384- 758/ 492)  45.0 E36-E29 S25-S17
  

    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