Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1509 1743 (N31W59 L=201)  2500    480        5 (1403/1689-1611/1778) -10.3 W47-W69 N27-N32
      2 1299 1602 (N29W35 L=178)   288     74        1 (1266/1582-1331/1622)   0.0 W32-W37 N28-N30
      3 1670 1590 (N17W62 L=205)   686    157        1 (1640/1549-1709/1619)   0.0 W57-W68 N15-N18
      4 1052 1056 (N05W02 L=145)   281    110        0 (1018/1002-1106/1105)  26.6 W00-W06 N03-N07
      5 1210 1037 (N00W10 L=153)   356    126        0 (1155/ 985-1266/1067) -56.3 W07-W12 S03-N03
      6 1833  867 (S27W50 L=193)   361     90        0 (1815/ 821-1854/ 908)  45.0 W48-W52 S29-S25
      7 1614  744 (S27W30 L=172)   823    264        0 (1544/ 629-1675/ 892)  45.0 W22-W36 S32-S19
      8  997  771 (S09E08 L=135)   189     67        0 ( 985/ 733-1011/ 805)  45.0 E09-E06 S10-S07
      9 1206  557 (S27E02 L=141)   673    201        0 (1141/ 489-1253/ 647)  37.9 E07-W03 S30-S22
     10  497  365 (S22E56 L= 87)  2635    485        4 ( 449/ 234- 527/ 502)  49.9 E65-E48 S31-S12
     11  582  441 (S18E45 L= 98)   314     53        1 ( 561/ 415- 599/ 465)  76.0 E46-E42 S20-S16
     12  878  377 (S30E28 L=114)   410    113        2 ( 865/ 333- 896/ 431)  60.3 E31-E25 S33-S26
     13  658  350 (S26E44 L= 98)   744    178        1 ( 638/ 287- 677/ 413)  56.3 E48-E40 S30-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