Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1826 (N62W27 L= 69)   535     49        0 ( 845/1799- 890/1851)   5.7 W22-W32 N59-N64
      2 1217 1712 (N40W40 L= 82)   379     41        0 (1192/1681-1243/1743)  53.1 W37-W42 N37-N41
      3  668 1707 (N60E04 L= 38)   374     84        1 ( 636/1671- 704/1727)  15.9 E08-W00 N57-N62
      4 1514 1700 (N29W61 L=103)   726     91        0 (1481/1674-1553/1727) -26.6 W56-W64 N26-N30
      5 1435 1523 (N22W41 L= 83)  1356    305        2 (1274/1482-1557/1565) -40.9 W32-W48 N16-N29
      6 1743 1346 (N03W56 L= 98)   546     83        0 (1728/1302-1761/1396)  59.0 W53-W58 N00-N05
      7 1890 1197 (S10W66 L=108)  3404    257       11 (1805/1080-1950/1294) -75.1 W58-W78 S17-S02
      8 1032 1216 (N17W06 L= 48)   742    302        1 ( 950/1167-1110/1269) -36.9 W01-W10 N14-N21
      9  461 1215 (N31E32 L= 10)   573    164        0 ( 377/1197- 530/1237) -17.1 E39-E25 N29-N34
     10  871 1139 (N17E06 L= 36)   333    121        0 ( 806/1126- 929/1149) -23.2 E09-E02 N14-N18
     11 1168 1098 (N07W10 L= 52)   239    117        2 (1135/1057-1205/1145)  80.5 W08-W11 N04-N10
     12  387 1111 (N27E39 L=  3)   503    114        1 ( 337/1092- 452/1129) -24.0 E43-E33 N24-N28
     13  209  887 (N17E61 L=341)   613     85        1 ( 191/ 849- 229/ 936)  68.2 E63-E58 N14-N19
     14 1159  869 (S05W03 L= 45)   474    103        1 (1121/ 833-1217/ 908)   9.5 W01-W07 S07-S03
     15  910  788 (S04E12 L= 30)   524    183        2 ( 847/ 737- 991/ 840)  11.3 E16-E06 S05-S02
     16  904  649 (S11E17 L= 25)   457    150        0 ( 863/ 581- 937/ 714)  83.7 E17-E15 S15-S06
     17 1520  481 (S41W18 L= 60)   956    154        4 (1470/ 443-1586/ 539)  10.3 W13-W24 S43-S38
     18  457  388 (S17E60 L=342)  1916    290        4 ( 427/ 277- 483/ 532)  32.2 E76-E49 S25-S08
     19  736  452 (S19E34 L=  8)   929    252        1 ( 631/ 413- 846/ 508) -39.3 E39-E27 S24-S13
     20 1123  245 (S46E21 L= 21)  1955    349        3 (1003/ 159-1270/ 329)  11.0 E37-E06 S50-S42
  

    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