Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  516 1521 (N25E38 L=  2)  1905    373        2 ( 405/1431- 645/1594) -23.5 E49-E26 N19-N30
      2 1038 1468 (N23E01 L= 39)   262     70        0 (1002/1438-1072/1486) -26.6 E03-W01 N21-N24
      3 1276 1429 (N22W15 L= 54)   258     59        0 (1241/1413-1310/1449) -14.0 W12-W16 N20-N22
      4  287 1400 (N18E55 L=345)   371     49        0 ( 262/1385- 313/1415) -21.8 E57-E52 N16-N18
      5 1032 1226 (N08E00 L= 40)   295     85        0 (1002/1179-1078/1271) -59.0 E02-W02 N05-N10
      6 1849  980 (S02W59 L= 99)  4194    762       12 (1760/ 820-1931/1177) -70.7 W50-W70 S10-N10
      7  764 1132 (N01E16 L= 24)   290     84        0 ( 719/1103- 813/1154)   3.3 E18-E13 N00-N02
      8  665  965 (S09E22 L= 18)   222     68        0 ( 625/ 940- 703/ 989)  31.0 E24-E19 S10-S07
      9  233  901 (S13E56 L=344)   930    273        0 ( 161/ 823- 283/ 978)  34.7 E64-E50 S17-S08
     10 1412  876 (S11W25 L= 65)   287     54        0 (1391/ 840-1430/ 910) -63.4 W23-W26 S13-S09
     11  606  842 (S16E26 L= 14)   209     26        0 ( 582/ 828- 629/ 856) -18.4 E27-E24 S17-S15
     12 1844  775 (S14W62 L=102)  2954    600        6 (1764/ 706-1930/ 850)  -8.5 W52-W74 S17-S09
     13 1628  691 (S21W43 L= 83)  1554    312        3 (1565/ 574-1665/ 819) -53.7 W36-W47 S28-S13
     14  870  667 (S27E09 L= 31)  1579    370        2 ( 718/ 568-1055/ 796)  35.5 E19-W02 S33-S17
     15 1450  719 (S20W29 L= 69)   257     77        0 (1408/ 703-1489/ 733)  21.8 W26-W32 S21-S19
     16 1842  659 (S21W65 L=105)  1464    202        2 (1803/ 618-1885/ 711)  56.3 W61-W71 S23-S17
     17  492  617 (S31E37 L=  3)   458    102        0 ( 452/ 587- 530/ 654)  29.7 E40-E33 S32-S28
     18  270  594 (S32E58 L=342)  1800    303        3 ( 212/ 550- 324/ 630) -10.3 E64-E52 S35-S29
     19  599  488 (S40E31 L=  9)   729    133        0 ( 540/ 449- 653/ 525)  15.3 E37-E26 S42-S36
     20 1156  460 (S39W13 L= 53)   693    116        0 (1107/ 425-1210/ 511)  40.6 W09-W16 S42-S35
     21 1613  444 (S37W51 L= 91)   867     73        1 (1575/ 410-1643/ 483)  78.7 W48-W53 S39-S34
  

    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