Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  630 1690 (N61E09 L= 44)  1932    226        5 ( 515/1633- 738/1743)  -3.8 E25-W05 N57-N64
      2 1351 1595 (N28W40 L= 93)   281     57        0 (1323/1575-1382/1613) -56.3 W38-W42 N26-N29
      3  415 1567 (N58E39 L= 14)   494     84        0 ( 392/1527- 444/1599)  71.6 E42-E34 N54-N60
      4  745 1508 (N42E04 L= 49)   605    171        0 ( 698/1440- 800/1573) -76.0 E06-E01 N36-N48
      5 1126 1452 (N27W19 L= 72)   515    228        0 (1008/1435-1220/1470) -28.3 W11-W24 N23-N31
      6  822 1249 (N24E06 L= 47)   770    234        6 ( 760/1151- 874/1326)  84.8 E09-E03 N17-N28
      7  908 1262 (N23E00 L= 53)   408    102        4 ( 867/1227- 954/1293) -36.9 E02-W02 N20-N24
      8  980 1188 (N17W02 L= 55)   306     75        1 ( 953/1151-1000/1223)  63.4 W00-W03 N14-N18
      9  657 1099 (N20E20 L= 33)   479    165        0 ( 591/1066- 734/1131) -36.9 E23-E15 N16-N22
     10 1719  882 (S22W40 L= 93)  2433    612        2 (1538/ 744-1888/1045)   9.0 W23-W61 S27-S16
     11 1576  648 (S32W25 L= 78)   289     83        0 (1537/ 633-1607/ 667)  -9.5 W21-W27 S32-S30
     12 1098  552 (S23E09 L= 44)   297     69        0 (1066/ 529-1134/ 578)   0.0 E10-E06 S23-S21
     13  974  407 (S29E22 L= 31)   626    201        1 ( 902/ 352-1008/ 488)  24.8 E29-E16 S31-S23
  

    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