Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1418 1725 (N32W52 L=101)   631    174        0 (1368/1685-1470/1753)  -5.2 W46-W57 N31-N33
      2  990 1228 (N18W04 L= 53)   665    268        2 ( 885/1199-1142/1257) -28.3 E01-W12 N14-N21
      3 1483 1187 (N02W31 L= 80)   476     95        1 (1442/1142-1521/1220)  18.4 W27-W33 N00-N03
      4 1897 1155 (S14W65 L=113)  1536    249        4 (1861/1115-1937/1196) -78.7 W59-W70 S16-S11
      5 1841 1112 (S14W56 L=105)   382     62        0 (1820/1086-1858/1145)  33.7 W53-W58 S14-S11
      6 1703 1000 (S15W41 L= 89)   263     65        0 (1690/ 959-1724/1033)  53.1 W38-W43 S17-S13
      7 1008  879 (S01E05 L= 44)   275    118        0 ( 991/ 823-1028/ 943)  59.0 E05-E02 S04-N01
      8  771  882 (N05E18 L= 31)   217     72        0 ( 742/ 860- 814/ 906) -45.0 E19-E15 N02-N06
      9 1639  730 (S29W30 L= 79)  1507    320        2 (1530/ 662-1707/ 864)  26.6 W21-W37 S32-S22
     10 1220  818 (S10W05 L= 54)   187     50        0 (1189/ 796-1245/ 840)   0.0 W03-W07 S11-S09
     11 1229  684 (S18W02 L= 51)   492    242        1 (1199/ 567-1291/ 795)  47.7 E02-W08 S25-S13
     12  309  671 (N03E57 L=352)   638    102        2 ( 277/ 633- 344/ 711)  20.6 E61-E52 N00-N05
     13  228  659 (N03E68 L=341)   653    145        0 ( 193/ 620- 279/ 696) -35.5 E72-E63 N00-N05
  

    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