Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1412 1744 (N48W51 L= 49)   813     86        2 (1379/1712-1441/1776)  32.0 W45-W56 N45-N50
      2  426 1430 (N36E44 L=314)   503    104        1 ( 379/1411- 477/1449) -10.3 E49-E38 N34-N37
      3  499 1391 (N33E36 L=322)   267     59        2 ( 478/1366- 528/1412)  33.7 E37-E33 N31-N34
      4  162 1224 (N22E72 L=286)   838     92        1 ( 146/1179- 175/1269)  90.0 E75-E69 N19-N25
      5  529 1168 (N18E32 L=326)   312     92        1 ( 496/1132- 575/1199)  31.0 E34-E28 N16-N19
      6 1537 1130 (N06W34 L= 32)   284     63        1 (1508/1103-1572/1147)  26.6 W32-W36 N04-N06
      7 1695  981 (S05W45 L= 43)   384     84        1 (1672/ 935-1706/1025) -90.0 W42-W45 S07-S02
      8  639  859 (S02E26 L=332)   270    102        1 ( 587/ 828- 674/ 893) -31.0 E28-E23 S03-N00
      9 1190  750 (S13W08 L=  6)   475    257        1 (1155/ 650-1238/ 874) -90.0 W05-W10 S19-S05
     10 1648  846 (S13W40 L= 38)   322     65        0 (1618/ 824-1676/ 872)  21.8 W37-W42 S13-S11
     11 1820  812 (S18W58 L= 56)   624    115        0 (1787/ 773-1840/ 853)  53.1 W54-W60 S20-S15
     12 1444  598 (S26W25 L= 23)  2015    565        3 (1253/ 458-1660/ 763)  25.8 W10-W41 S34-S18
     13 1279  688 (S18W13 L= 11)   224    112        0 (1261/ 638-1293/ 740)  81.9 W11-W13 S21-S14
     14  690  666 (S14E25 L=333)   675    149        1 ( 650/ 616- 719/ 735)  66.8 E28-E23 S17-S09
     15  516  673 (S12E38 L=321)   518    124        1 ( 494/ 619- 539/ 718)  63.4 E39-E35 S15-S09
     16  877  632 (S18E13 L=345)   327     92        1 ( 830/ 611- 918/ 654)  -9.5 E16-E10 S19-S16
     17 1714  621 (S29W49 L= 47)   596     72        2 (1673/ 598-1750/ 641)  -6.3 W44-W53 S31-S27
     18  958  545 (S24E09 L=349)   402    104        0 ( 936/ 497- 995/ 591)  50.2 E11-E06 S27-S21
     19 1458  466 (S37W27 L= 25)   945    254        2 (1343/ 427-1561/ 525)   9.5 W17-W35 S38-S33
     20  960  368 (S38E13 L=345)   368     68        1 ( 926/ 346-1000/ 383) -18.4 E15-E09 S39-S36
     21 1052  301 (S45E07 L=351)  1762    262        1 ( 981/ 221-1141/ 378)  40.9 E14-W01 S52-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