Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  704 1835 (N61E25 L=358)   499     44        1 ( 681/1809- 727/1859)  36.9 E28-E22 N58-N64
      2  799 1723 (N48E10 L= 12)   288     52        1 ( 785/1691- 811/1754) -90.0 E11-E09 N45-N50
      3 1330 1517 (N26W26 L= 49)   888    208        1 (1222/1472-1416/1537) -24.8 W18-W31 N22-N28
      4 1032 1426 (N23W04 L= 27)   194     65        1 (1002/1411-1066/1445) -26.6 W02-W06 N21-N24
      5  659 1378 (N24E21 L=  2)   862    256        0 ( 557/1312- 773/1422) -26.6 E28-E12 N18-N27
      6  333 1405 (N29E48 L=334)   355     76        0 ( 301/1384- 375/1420)   8.1 E51-E44 N28-N30
      7 1243 1378 (N18W17 L= 40)   350    186        0 (1170/1328-1283/1415) -50.2 W12-W19 N14-N20
      8 1242 1169 (N05W14 L= 37)   462    203        0 (1177/1128-1335/1227) -41.2 W10-W19 N02-N09
      9  978 1110 (N04E02 L= 21)   204     83        1 ( 965/1072- 991/1161) -90.0 E02-E01 N01-N07
     10 1825  935 (S13W56 L= 79)   440     52        1 (1793/ 916-1852/ 958)   0.0 W53-W59 S14-S11
     11 1641  738 (S24W40 L= 63)   768    224        2 (1619/ 634-1673/ 843) -81.3 W38-W43 S30-S17
     12 1720  815 (S20W47 L= 69)   384    109        2 (1689/ 782-1750/ 842)  18.4 W43-W49 S21-S17
     13  837  621 (S24E16 L=  6)   490    130        0 ( 797/ 576- 867/ 679)  50.2 E19-E13 S26-S20
     14  734  503 (S31E26 L=356)   356     64        1 ( 706/ 478- 775/ 528)  15.9 E29-E22 S32-S28
  

    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