Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  837 1561 (N44E03 L=239)   320     54        0 ( 811/1535- 862/1582) -63.4 E05-W00 N41-N45
      2 1676 1500 (N21W60 L=302)   418     83        0 (1659/1466-1702/1524)  15.9 W57-W64 N19-N22
      3 1147 1424 (N29W16 L=258)   274     98        1 (1105/1411-1193/1438)   0.0 W12-W19 N27-N30
      4 1437 1366 (N19W34 L=275)  1032    320        0 (1289/1313-1569/1401) -30.5 W24-W41 N13-N23
      5  322 1257 (N31E50 L=192)   355    100        1 ( 283/1224- 371/1286)   6.3 E53-E44 N28-N32
      6  363 1153 (N24E45 L=197)  1541    244        4 ( 328/1031- 406/1251) -85.6 E48-E40 N16-N29
      7 1869 1100 (S07W64 L=306)   447     34        0 (1843/1084-1890/1120)   0.0 W60-W67 S07-S05
      8  284  924 (N10E54 L=188)   343     43        0 ( 267/ 902- 299/ 949) -56.3 E55-E51 N08-N11
      9  196  920 (N11E64 L=178)   449     73        1 ( 177/ 889- 219/ 946)  76.0 E66-E60 N08-N12
     10  238  862 (N07E60 L=182)   577     49        1 ( 219/ 833- 258/ 896)  56.3 E62-E57 N05-N08
     11 1307  531 (S30W10 L=252)   278    129        0 (1266/ 483-1353/ 574)  35.5 W06-W13 S32-S27
     12  600  437 (S24E42 L=200)   389    111        1 ( 552/ 397- 642/ 464)  16.7 E47-E37 S26-S22
     13  750  361 (S32E34 L=208)   530     96        1 ( 714/ 322- 785/ 401)  32.0 E38-E30 S34-S28
     14 1414  295 (S54W19 L=260)   436     53        0 (1386/ 279-1441/ 312)  18.4 W15-W22 S55-S51
  

    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