Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  429 1667 (N38E67 L=170)  1237     94        1 ( 411/1611- 453/1717) -16.3 E82-E58 N34-N41
      2  713 1529 (N32E28 L=209)  1533    383        1 ( 623/1394- 818/1616) -33.0 E38-E17 N23-N37
      3 1703 1483 (N37W56 L=293)   821    119        1 (1661/1439-1742/1525) -50.2 W51-W59 N33-N39
      4 1129 1294 (N19W05 L=242)   197     78        1 (1102/1257-1146/1329)  68.2 W03-W05 N16-N21
      5 1584 1124 (N12W37 L=273)  1070    264        4 (1453/1055-1668/1195)  -6.7 W26-W43 N07-N15
      6 1630  911 (S01W41 L=278)   582     92        1 (1600/ 885-1665/ 956)  71.6 W39-W44 S02-N01
      7 1702  916 (S00W47 L=284)   458     73        1 (1668/ 897-1734/ 935)   9.5 W44-W50 S01-N01
      8 1747  857 (S04W53 L=289)   588     52        2 (1725/ 825-1773/ 885)  76.0 W50-W55 S05-S01
      9 1684  757 (S10W49 L=286)   377     92        1 (1666/ 718-1709/ 781) -63.4 W46-W51 S12-S08
     10 1528  731 (S13W36 L=273)   749    213        2 (1470/ 683-1585/ 768)  20.6 W32-W40 S15-S10
     11 1411  687 (S16W28 L=265)   444     80        0 (1379/ 646-1448/ 716) -33.7 W25-W31 S18-S14
     12 1609  671 (S16W44 L=281)   462    115        1 (1566/ 648-1647/ 702) -14.0 W40-W48 S17-S14
     13  797  627 (S25E12 L=225)   350     74        0 ( 759/ 614- 837/ 644)   0.0 E14-E09 S26-S23
     14 1569  518 (S27W46 L=283)   508    127        1 (1524/ 461-1601/ 569)  82.9 W44-W48 S30-S22
     15  531  310 (S55E48 L=189)   832     73        1 ( 508/ 274- 557/ 343)  24.2 E63-E42 S59-S50
  

    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