Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1287 1376 (N20W25 L=248)   401    158        0 (1220/1349-1361/1393) -12.5 W20-W29 N16-N21
      2  635 1025 (N16E23 L=200)   195     34        0 ( 624/ 996- 649/1051)  56.3 E23-E21 N14-N17
      3  233  974 (N21E57 L=166)   351     81        0 ( 206/ 960- 274/ 995) -23.2 E59-E52 N19-N22
      4  682  935 (N10E22 L=201)   266     60        1 ( 650/ 910- 711/ 959) -53.1 E23-E20 N08-N12
      5  332  918 (N16E48 L=175)   378      0        0 ( 315/ 867- 356/ 952)  53.1 E49-E45 N12-N17
      6 1375  645 (S24W11 L=234)   523    218        1 (1307/ 569-1438/ 719) -69.0 W08-W13 S30-S17
      7  965  621 (S14E14 L=209)   264    101        0 ( 916/ 606-1019/ 636) -33.7 E16-E10 S16-S12
      8 1612  528 (S40W28 L=250)  1368    309        0 (1498/ 437-1726/ 626)  12.3 W16-W39 S44-S36
      9  872  517 (S18E22 L=200)   279    128        0 ( 851/ 478- 917/ 573) -90.0 E23-E20 S21-S14
     10 1002  516 (S22E15 L=208)   497    129        0 ( 950/ 483-1038/ 570)  14.0 E18-E10 S23-S19
     11  499  326 (S23E61 L=162)  2697    239        5 ( 453/ 220- 538/ 434)  32.6 E76-E49 S33-S16
     12 1371  335 (S47W03 L=226)  1216    190        1 (1279/ 298-1450/ 390)  -3.8 E05-W11 S48-S44
     13  915  285 (S36E31 L=192)   436    111        0 ( 881/ 245- 934/ 337)  26.6 E36-E26 S38-S31
  

    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