Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  459 1699 (N25E61 L=235)   606     70        2 ( 435/1677- 488/1730)  26.6 E64-E57 N23-N27
      2 1123 1633 (N33E08 L=288)   613    179        0 (1073/1558-1166/1702) -38.7 E13-E03 N28-N36
      3  957 1633 (N29E18 L=277)   322     82        1 ( 927/1594- 997/1660)  80.5 E20-E16 N25-N31
      4  533 1561 (N16E44 L=251)   940    172        2 ( 502/1510- 584/1644) -36.0 E50-E38 N13-N21
      5 1545 1587 (N41W25 L=321)   943    175        1 (1461/1547-1615/1610)   4.1 W17-W31 N38-N43
      6  298 1559 (N14E69 L=227)  1761    109        6 ( 257/1510- 340/1604) -71.6 E75-E64 N10-N16
      7 1780 1468 (N40W51 L=347)   545     69        1 (1744/1445-1815/1487)   5.7 W46-W56 N39-N42
      8 1174 1287 (N11W03 L=299)   634    210        1 (1141/1199-1220/1380)  90.0 W01-W05 N05-N17
      9 1338 1261 (N13W13 L=309)   376    129        1 (1318/1211-1357/1325) -66.8 W12-W15 N10-N17
     10 1531 1113 (N09W28 L=324)   570    189        0 (1476/1046-1571/1192)  73.3 W25-W30 N04-N14
     11 1217 1085 (N00W10 L=305)   528    198        1 (1136/1043-1297/1138)  -5.2 W04-W15 N00-N01
     12 1921 1052 (N17W67 L=  2)   604     73        1 (1895/1026-1957/1070)  22.6 W62-W75 N14-N19
     13 1867  996 (N12W60 L=355)   534     88        2 (1849/ 948-1884/1039) -59.0 W57-W61 N08-N14
     14 1118  920 (S11W08 L=303)   500    300        1 ( 993/ 864-1238/ 947)  31.6 W01-W14 S16-S08
     15 1921  905 (N09W70 L=  6)   945     99        2 (1887/ 863-1946/ 943)  41.2 W65-W75 N05-N12
     16  673  888 (S21E19 L=277)   399    138        0 ( 617/ 855- 719/ 934)  45.0 E22-E15 S24-S17
     17 1230  717 (S20W19 L=315)   559    178        1 (1176/ 649-1287/ 787)  78.7 W17-W21 S24-S14
     18 1444  636 (S19W36 L=331)   439    192        0 (1366/ 576-1508/ 673)  56.3 W32-W39 S24-S15
     19 1248  406 (S38W34 L=329)   388     92        1 (1208/ 388-1295/ 436)  15.9 W30-W37 S39-S36
     20 1571  382 (S30W62 L=357)   625    135        0 (1508/ 352-1621/ 421)  45.0 W56-W64 S32-S26
  

    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