Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  647 1499 (N37E26 L=300)   314     61        0 ( 617/1475- 675/1524)  36.9 E28-E23 N35-N38
      2 1629 1442 (N26W49 L= 15)   516     93        2 (1606/1407-1658/1494)  63.4 W45-W51 N23-N29
      3 1805 1435 (N23W70 L= 36)   643     71        1 (1781/1408-1836/1458) -33.7 W66-W75 N20-N24
      4 1507 1403 (N24W37 L=  3)   259     44        0 (1489/1382-1526/1426)  26.6 W35-W39 N23-N25
      5 1812 1383 (N19W67 L= 33)   895     86        3 (1773/1351-1851/1416) -18.4 W62-W73 N17-N21
      6 1694 1357 (N19W52 L= 18)   359     33        0 (1672/1333-1715/1381) -56.3 W50-W53 N17-N21
      7  155 1253 (N21E74 L=252)  1949    174        2 ( 129/1184- 191/1334)  66.0 E78-E69 N16-N25
      8  319 1249 (N21E51 L=275)   415    108        1 ( 294/1219- 351/1294) -45.0 E53-E47 N19-N23
      9  752 1079 (N09E17 L=309)   931    279        2 ( 654/ 976- 805/1160) -51.3 E22-E13 N03-N14
     10  428  881 (S02E40 L=285)  2767    574        3 ( 347/ 695- 596/1115) -55.2 E46-E29 S13-N12
     11  202 1068 (N10E62 L=264)   730    140        0 ( 177/1013- 250/1105)  51.3 E64-E55 N06-N11
     12  763  943 (N01E17 L=309)   279     56        1 ( 733/ 919- 788/ 971)  33.7 E18-E14 N00-N02
     13 1270  891 (S05W14 L=340)   224    102        0 (1235/ 860-1310/ 927)  26.6 W11-W17 S06-S02
     14  275  772 (S08E56 L=270)   460     81        3 ( 249/ 732- 307/ 809)  38.7 E59-E52 S11-S06
     15 1467  732 (S16W27 L=353)   234     66        0 (1448/ 699-1480/ 764)  63.4 W25-W28 S18-S14
     16  195  666 (S16E72 L=254)  3502    177        5 ( 144/ 599- 248/ 741) -48.4 E81-E63 S20-S11
     17  645  687 (S14E27 L=299)   292     76        0 ( 601/ 669- 686/ 700) -18.4 E29-E23 S15-S13
     18  644  576 (S22E29 L=297)   851    275        0 ( 529/ 541- 772/ 625) -20.6 E36-E20 S24-S18
     19  819  308 (S43E23 L=302)  2011    240        3 ( 723/ 247- 894/ 401)  28.6 E36-E14 S48-S35
     20  520  278 (S46E61 L=265)   855     51        2 ( 497/ 256- 548/ 302)  12.5 E72-E54 S48-S43
  

    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