Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1763 (N37W63 L=323)   744     95        0 (1411/1729-1486/1787)   0.0 W56-W71 N36-N38
      2 1574 1495 (N19W50 L=310)   447     89        1 (1555/1447-1597/1530)  23.2 W47-W54 N16-N20
      3 1056 1441 (N30W13 L=273)   592    145        3 ( 992/1404-1119/1465)  -6.3 W08-W17 N28-N31
      4 1727 1406 (N09W59 L=319)   612    102        1 (1685/1385-1759/1428) -23.2 W55-W63 N07-N11
      5  217  982 (N20E60 L=200)   377     75        0 ( 184/ 957- 248/1007)  12.5 E64-E55 N19-N21
      6 1767  795 (S27W45 L=305)   389     55        1 (1747/ 773-1796/ 812)   0.0 W43-W48 S27-S24
      7  726  751 (S02E24 L=236)   324     57        2 ( 693/ 718- 747/ 783)  56.3 E25-E22 S03-N00
      8  326  655 (S01E57 L=203)  1287    243        4 ( 292/ 551- 373/ 765)  77.0 E59-E52 S07-N06
      9  897  517 (S20E21 L=239)   332    126        0 ( 857/ 474- 951/ 556)  20.6 E24-E16 S21-S18
     10  586  524 (S13E40 L=220)   283     55        0 ( 563/ 497- 607/ 551) -90.0 E41-E39 S14-S10
     11  974  444 (S26E19 L=241)   528    179        1 ( 952/ 370- 999/ 509)  45.0 E23-E14 S31-S22
     12  394  403 (S18E66 L=194)  2074    148        5 ( 366/ 325- 421/ 461)  27.6 E82-E60 S24-S13
     13  636  351 (S25E46 L=213)   448    156        0 ( 585/ 303- 661/ 411)  26.6 E55-E41 S28-S21
  

    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