Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  801 1806 (N35E42 L= 28)  2628    544        8 ( 759/1679- 857/1934) -51.6 E55-E34 N24-N48
      2  379 1523 (N07E57 L= 13)   910    230        3 ( 329/1457- 427/1578) -26.6 E64-E50 N03-N09
      3 1749 1377 (N37W39 L=109)  3596    593       10 (1582/1210-1872/1521) -19.7 W23-W53 N28-N42
      4  627 1475 (N09E36 L= 34)   698    153        2 ( 567/1451- 697/1502)  18.4 E39-E30 N06-N10
      5  237 1315 (S08E62 L=  8)  2026    389        8 ( 162/1244- 280/1405)  74.7 E68-E57 S13-S02
      6  338 1333 (S05E53 L= 18)   846    218        6 ( 296/1266- 380/1405) -69.4 E56-E47 S08-N00
      7  596 1215 (S07E30 L= 40)  1225    412        5 ( 450/1051- 719/1358)  67.8 E35-E24 S19-N03
      8 1128 1320 (N12E02 L= 68)   411    128        2 (1070/1290-1187/1339)  38.7 E05-W00 N09-N14
      9 1565 1127 (N14W29 L= 99)  1768    411        4 (1474/ 937-1612/1257) -37.4 W19-W36 N04-N19
     10  280 1116 (S19E51 L= 19)   308     56        0 ( 263/1083- 299/1137)  71.6 E52-E49 S20-S17
     11  241 1024 (S25E53 L= 17)  1617    303        6 ( 193/ 970- 314/1119) -24.8 E58-E45 S27-S19
     12  805 1021 (S13E12 L= 58)   247    120        0 ( 758/ 981- 870/1059)  60.3 E14-E09 S16-S09
     13 1632  371 (S22W66 L=136)   667    177        0 (1595/ 361-1680/ 385)  18.4 W62-W71 S24-S20
  

    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