Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  939 1596 (N42E05 L=277)   345     65        1 ( 917/1564- 964/1636)  80.5 E06-E02 N39-N45
      2 1130 1596 (N41W11 L=293)   328     79        0 (1096/1572-1167/1627) -38.7 W08-W13 N39-N44
      3  998 1438 (N31E00 L=281)   240     59        2 ( 980/1411-1023/1463)  76.0 E01-W01 N28-N32
      4 1735 1278 (N16W54 L=335)   520    135        1 (1687/1242-1789/1304) -26.6 W48-W58 N13-N17
      5 1489 1188 (N12W31 L=313)   516    164        1 (1426/1142-1541/1245) -45.0 W27-W34 N09-N16
      6  656  846 (S06E24 L=258)   399    136        1 ( 599/ 803- 700/ 879) -33.7 E27-E21 S08-S03
      7  247  846 (S06E58 L=224)   694    100        3 ( 210/ 822- 297/ 877) -18.4 E62-E52 S07-S04
      8  367  710 (S15E48 L=234)   312     73        1 ( 347/ 675- 389/ 741)  63.4 E50-E45 S16-S12
      9  682  606 (S21E25 L=257)   363    165        1 ( 629/ 552- 713/ 665) -82.9 E27-E22 S25-S17
     10  295  594 (S23E61 L=221)  1111    136        6 ( 264/ 523- 329/ 642)  71.6 E66-E56 S28-S19
     11  539  605 (S22E36 L=246)   304     85        0 ( 519/ 574- 570/ 638) -63.4 E37-E33 S23-S19
     12  896  489 (S30E11 L=270)   534    137        0 ( 840/ 443- 958/ 535)  33.7 E15-E06 S33-S27
     13 1284  416 (S38W18 L=300)   728    153        1 (1255/ 347-1324/ 475)  68.2 W16-W20 S43-S33
  

    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