Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1414 1740 (N47W51 L= 49)   729     75        2 (1381/1710-1442/1769)   0.0 W45-W56 N45-N49
      2  424 1431 (N36E44 L=314)   460     94        1 ( 378/1415- 471/1451)   0.0 E49-E39 N34-N37
      3  160 1222 (N22E72 L=286)   740     82        0 ( 146/1172- 173/1258) -68.2 E75-E69 N19-N24
      4  526 1170 (N18E32 L=326)   273    102        1 ( 493/1136- 571/1199)  31.0 E34-E28 N16-N19
      5 1692  980 (S05W44 L= 43)   346     88        1 (1670/ 933-1703/1024) -90.0 W42-W45 S08-S02
      6 1164  814 (S09W07 L=  5)   209    119        0 (1153/ 758-1174/ 875)  81.9 W05-W07 S12-S04
      7 1652  847 (S13W40 L= 39)   261     71        0 (1616/ 823-1678/ 872)  21.8 W37-W42 S13-S11
      8 1819  810 (S18W58 L= 56)   523    119        0 (1786/ 773-1839/ 851)  63.4 W54-W60 S20-S15
      9 1452  603 (S26W25 L= 23)  1588    498        3 (1293/ 483-1657/ 756)  26.6 W13-W41 S32-S18
     10 1277  690 (S18W13 L= 11)   227    117        0 (1260/ 638-1292/ 742)  81.9 W11-W13 S21-S14
     11  688  669 (S14E25 L=333)   577    159        0 ( 649/ 617- 713/ 735)  66.8 E28-E23 S16-S09
     12 1196  697 (S17W08 L=  6)   318    124        2 (1137/ 662-1231/ 721) -38.7 W04-W09 S19-S14
     13  511  671 (S12E38 L=320)   388    106        1 ( 491/ 631- 535/ 706) -90.0 E39-E35 S15-S10
     14  874  631 (S18E14 L=345)   281     78        2 ( 832/ 610- 908/ 655) -11.3 E16-E11 S19-S16
     15 1711  620 (S29W49 L= 47)   487     73        2 (1672/ 598-1748/ 641)  -6.3 W44-W53 S31-S27
     16  591  591 (S18E34 L=324)   249    108        0 ( 547/ 579- 634/ 606)  -9.5 E36-E30 S19-S16
     17  955  543 (S24E10 L=348)   342    124        0 ( 935/ 492- 993/ 592)  50.2 E11-E06 S27-S21
     18 1457  467 (S36W27 L= 25)   752    255        2 (1342/ 427-1557/ 525)  12.5 W17-W35 S38-S33
     19  957  367 (S38E13 L=345)   310     52        1 ( 928/ 344- 991/ 382) -26.6 E15-E10 S39-S36
     20 1051  301 (S45E07 L=351)  1543    248        1 ( 980/ 223-1139/ 379)  42.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