Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  442 1645 (N36E61 L= 66)   705     88        1 ( 405/1611- 484/1683)  71.6 E63-E57 N32-N38
      2 1096 1594 (N39E01 L=126)  1006    202        5 (1015/1543-1188/1645) -21.0 E07-W06 N36-N42
      3  612 1495 (N27E35 L= 92)  1412    178        5 ( 553/1413- 670/1569) -33.7 E41-E28 N22-N31
      4  888 1384 (N23E12 L=114)   309    131        0 ( 845/1338- 917/1437)  66.8 E14-E10 N19-N26
      5 1197 1363 (N24W08 L=135)   308    117        1 (1176/1309-1215/1414)  90.0 W06-W09 N20-N27
      6  181 1047 (S05E64 L= 63)  1326    162        7 ( 142/ 970- 207/1115)  55.0 E70-E60 S10-N00
      7  788  739 (S18E13 L=114)  2692    668        5 ( 546/ 568- 989/ 963)  45.0 E30-E01 S32-S02
      8 1662  750 (S10W46 L=173)   400     90        0 (1641/ 702-1677/ 796)  90.0 W45-W47 S13-S07
      9 1477  738 (S12W32 L=159)   643      0       -1 (1444/ 692-1513/ 785) -68.2 W29-W34 S14-S09
     10 1771  707 (S12W59 L=185)   567     74        1 (1740/ 690-1801/ 733)  26.6 W54-W62 S13-S10
     11 1607  456 (S30W54 L=180)  2177    462        2 (1468/ 392-1741/ 577)  37.9 W42-W64 S35-S20
     12  353  486 (S41E57 L= 70)  1665    167        1 ( 306/ 427- 417/ 536)  16.6 E81-E44 S47-S36
     13  551  324 (S53E41 L= 85)   530     57        1 ( 526/ 307- 585/ 347)  10.3 E46-E35 S55-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