Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1761 (N48E38 L=293)   622    118        0 ( 718/1726- 821/1783)  39.8 E40-E33 N44-N50
      2 1800 1434 (N36W67 L= 37)  2135    227        1 (1752/1341-1830/1526)  69.0 W62-W73 N29-N42
      3  333 1440 (N19E59 L=271)  1858    244        7 ( 274/1353- 407/1509)  57.5 E63-E53 N12-N24
      4 1439 1358 (N27W25 L=355)   934    184        0 (1417/1266-1466/1436)  85.2 W23-W27 N20-N32
      5  286 1331 (N11E59 L=271)  1661    238        4 ( 216/1267- 395/1389)  26.6 E68-E48 N06-N15
      6 1254 1196 (N14W12 L=343)  1151    276        4 (1128/1158-1377/1234)  14.0 W04-W20 N10-N17
      7  299 1137 (S00E52 L=278)   418     75        1 ( 270/1121- 340/1162)   9.5 E55-E48 S01-N01
      8  206  856 (S19E62 L=268)   470     93        1 ( 185/ 807- 229/ 893) -45.0 E64-E59 S21-S16
      9  939  768 (S16E03 L=328)   470    186        0 ( 905/ 700- 994/ 843) -58.0 E05-W01 S19-S10
     10  298  729 (S26E53 L=278)   343     97        0 ( 289/ 685- 310/ 779)  71.6 E54-E50 S28-S22
     11  364  741 (S24E45 L=285)   407     73        3 ( 335/ 710- 390/ 768)  63.4 E47-E42 S26-S22
     12 1629  528 (S24W53 L= 23)  1983    348        1 (1523/ 440-1733/ 663)  62.1 W46-W58 S30-S13
     13 1015  608 (S25W04 L=335)   316     68        0 (1001/ 567-1034/ 647)  90.0 W03-W05 S27-S22
     14 1011  316 (S48W10 L=340)  1654    335        1 ( 962/ 189-1062/ 448) -85.8 W05-W14 S62-S35
  

    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