Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  378 1506 (N25E49 L=  4)  1914    363        4 ( 303/1414- 474/1577) -31.0 E59-E39 N18-N30
      2  660 1502 (N25E27 L= 26)   399    153        2 ( 599/1480- 737/1519)   0.0 E30-E20 N23-N25
      3  851 1478 (N24E13 L= 40)   276     54        0 ( 813/1460- 884/1498) -21.8 E15-E10 N22-N24
      4 1086 1438 (N22W02 L= 55)   241     79        0 (1047/1419-1123/1461) -36.9 W00-W04 N20-N23
      5  882 1383 (N17E10 L= 43)   255    109        0 ( 847/1329- 907/1417) -56.3 E12-E08 N13-N19
      6  291 1304 (N12E53 L=  0)   530    139        1 ( 258/1248- 317/1336) -45.0 E56-E49 N08-N13
      7  804 1252 (N09E14 L= 39)   185     44        0 ( 788/1229- 823/1277) -45.0 E15-E12 N07-N10
      8 1773 1190 (N10W51 L=104)   359     65        2 (1754/1166-1800/1215) -33.7 W49-W53 N08-N11
      9  554 1133 (N01E30 L= 23)   273     74        0 ( 518/1098- 593/1162)  21.8 E32-E27 N00-N03
     10 1708 1101 (N04W45 L= 98)   393    103        0 (1680/1049-1737/1149) -51.3 W42-W47 N01-N06
     11 1647 1070 (N02W40 L= 93)   627    113        2 (1607/1030-1687/1114)  63.4 W37-W43 N00-N04
     12 1571 1083 (N02W34 L= 87)   381     81        2 (1531/1057-1601/1106)   0.0 W31-W36 N00-N03
     13 1719  988 (S03W47 L=100)   664    254        2 (1625/ 951-1797/1019)   0.0 W38-W54 S04-N00
     14  368  887 (S14E44 L=  9)   257     79        0 ( 353/ 847- 385/ 933)  68.2 E45-E42 S15-S10
     15 1778  787 (S14W55 L=108)  3189    638       12 (1669/ 713-1886/ 859)   0.0 W44-W67 S18-S09
     16 1472  700 (S22W31 L= 84)  1465    216        4 (1396/ 581-1519/ 853) -59.5 W24-W35 S29-S12
     17  249  816 (S18E55 L=357)   351     99        0 ( 221/ 802- 283/ 837)  -8.1 E58-E51 S18-S16
     18 1292  761 (S19W18 L= 71)   357    158        1 (1226/ 726-1337/ 826)  45.0 W14-W20 S21-S14
     19  588  591 (S32E30 L= 23)  2259    641        2 ( 426/ 440- 789/ 755)  31.7 E48-E14 S42-S21
     20  387  667 (S27E45 L=  8)   709    241        1 ( 330/ 591- 432/ 739)  39.3 E51-E40 S32-S22
     21 1742  628 (S24W55 L=108)  3091    532        7 (1637/ 553-1841/ 721)  32.0 W47-W66 S28-S17
     22 1507  478 (S36W40 L= 93)   621     97        1 (1458/ 440-1542/ 522)  63.4 W37-W42 S38-S32
     23  989  464 (S40E00 L= 53)   258     60        0 ( 961/ 443-1026/ 484)  36.9 E02-W02 S41-S38
  

    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