Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1036 1591 (N33W01 L=159)   590    158        1 ( 943/1574-1113/1609)  -5.2 E05-W06 N31-N34
      2 1622 1524 (N29W44 L=202)   385     91        1 (1589/1504-1665/1540)  -9.5 W41-W47 N27-N29
      3 1439 1155 (N05W26 L=183)   672    120        3 (1385/1097-1472/1205) -45.0 W22-W27 N01-N07
      4  241 1020 (S02E55 L=103)  1230    287        5 ( 183/ 969- 288/1079) -24.4 E61-E49 S04-N01
      5 1365  905 (S10W21 L=178)   992    340        2 (1268/ 724-1462/1032)  56.3 W15-W27 S21-S02
      6  309  950 (S06E48 L=109)   384     99        1 ( 290/ 900- 333/ 996)  63.4 E50-E46 S09-S03
      7  258  789 (S16E55 L=102)  4284    797       17 ( 158/ 627- 412/ 886)  -1.9 E66-E41 S25-S09
      8 1816  799 (S16W57 L=215)  1882    388       11 (1718/ 710-1903/ 884)  26.6 W48-W67 S21-S10
      9 1679  769 (S18W45 L=202)   444    122        0 (1631/ 734-1720/ 808)  35.5 W41-W48 S20-S15
     10 1864  754 (S18W64 L=221)   779    155        4 (1837/ 719-1906/ 800)  45.0 W60-W68 S20-S15
     11  417  627 (S26E44 L=113)   630    258        2 ( 357/ 580- 515/ 678)  21.8 E50-E35 S29-S23
     12  581  523 (S34E33 L=124)   819    219        1 ( 562/ 434- 614/ 614)  65.2 E36-E28 S40-S27
     13 1540  538 (S33W38 L=196)   439    105        0 (1485/ 496-1588/ 571)  45.0 W34-W41 S36-S30
  

    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