Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1141 1534 (N36W05 L= 64)   315     77        2 (1126/1496-1155/1578)  90.0 W04-W06 N33-N39
      2  363 1440 (N24E54 L=  4)  1295    275        1 ( 340/1324- 396/1573) -58.0 E61-E49 N16-N32
      3 1756 1352 (N26W56 L=115)   640    120        0 (1710/1302-1784/1387) -50.2 W51-W59 N22-N28
      4  197  948 (S08E62 L=357)   591     73        2 ( 168/ 916- 218/ 980)  33.7 E66-E59 S10-S06
      5  336  823 (S15E48 L= 11)   839    232        3 ( 284/ 730- 384/ 908) -61.4 E51-E43 S20-S09
      6  457  766 (S17E37 L= 21)   993    298        2 ( 418/ 652- 489/ 898)  86.4 E40-E35 S25-S09
      7  220  752 (S21E62 L=356)  3138    230       12 ( 166/ 659- 266/ 866)  39.5 E74-E55 S26-S12
      8  987  828 (S10E01 L= 57)   305    169        0 ( 925/ 784-1060/ 864)  35.5 E04-W03 S13-S07
      9  184  811 (S17E66 L=352)   674     60        0 ( 163/ 783- 206/ 840) -45.0 E69-E62 S18-S15
     10  301  684 (S24E54 L=  5)  1088    203        3 ( 264/ 627- 340/ 772)  73.3 E58-E49 S28-S18
     11 1388  727 (S14W25 L= 84)   220     84        0 (1340/ 714-1427/ 741)   0.0 W22-W28 S15-S13
     12  541  711 (S20E31 L= 28)   277     49        0 ( 517/ 694- 575/ 731) -14.0 E32-E28 S21-S19
     13  346  587 (S31E52 L=  6)  1147    132        2 ( 300/ 547- 405/ 616)  20.6 E60-E44 S34-S28
     14  834  547 (S29E10 L= 48)   562    145        1 ( 781/ 506- 896/ 582)  29.1 E14-E05 S32-S26
  

    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