Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1173 1787 (N56W00 L= 93)  1367    301        2 (1043/1759-1315/1821)   0.0 E15-W16 N54-N58
      2  490 1602 (N30E51 L= 42)  2111    341        4 ( 406/1519- 584/1667)  28.3 E58-E41 N24-N35
      3 1234 1569 (N38W08 L=101)   866    213        2 (1133/1550-1330/1593)   7.6 W00-W15 N36-N40
      4  291 1515 (N22E69 L= 25)  1296    122        2 ( 263/1458- 317/1566) -76.0 E74-E65 N17-N25
      5  399 1455 (N19E52 L= 42)   535    114        0 ( 377/1403- 421/1502) -56.3 E54-E48 N16-N22
      6 1759 1344 (N29W53 L=147)  3927    379        6 (1574/1274-1918/1410)  -4.9 W35-W83 N25-N31
      7  270 1326 (N10E59 L= 34)   407     91        0 ( 253/1281- 287/1366)  90.0 E60-E57 N06-N12
      8  200 1219 (N02E64 L= 29)  1129    168        0 ( 154/1134- 224/1265) -28.6 E72-E59 S02-N05
      9 1372 1089 (N09W21 L=114)   437    174        0 (1317/1046-1423/1116)  23.2 W17-W24 N05-N10
     10  502 1003 (S07E33 L= 60)   716    251        2 ( 434/ 896- 564/1109)  65.2 E37-E29 S13-N00
     11 1108 1001 (N00W05 L= 98)   644    170        1 (1055/ 939-1138/1079)  69.4 W02-W06 S03-N05
     12  809  994 (S04E13 L= 80)   480    186        0 ( 783/ 920- 827/1071) -66.8 E14-E11 S07-N00
     13 1360  653 (S18W27 L=120)   443    180        0 (1286/ 626-1418/ 702)  26.6 W21-W29 S20-S14
     14 1427  552 (S24W34 L=127)   710    180        1 (1349/ 513-1499/ 605)  45.0 W29-W38 S27-S19
     15 1153  382 (S39W20 L=113)   608     67        1 (1106/ 361-1192/ 412)  18.4 W16-W23 S41-S36
  

    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