Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  949 1847 (N43E39 L=145)   536     59        0 ( 914/1829- 986/1863)   8.1 E43-E35 N41-N44
      2 1303 1586 (N35E00 L=183)  1357    194        3 (1234/1513-1367/1649) -28.6 E06-W06 N31-N37
      3  923 1505 (N18E20 L=164)   236     97        0 ( 897/1471- 966/1538) -18.4 E22-E16 N16-N19
      4  897 1415 (N12E18 L=165)   376    114        0 ( 853/1379- 941/1462) -20.6 E22-E14 N10-N13
      5  555 1297 (S04E35 L=149)   454    136        0 ( 533/1237- 573/1369) -74.1 E37-E33 S07-N00
      6 1691 1188 (N23W37 L=221)  1431    384        2 (1631/1022-1717/1348) -54.8 W29-W42 N13-N30
      7  661 1199 (S07E25 L=158)   789    277        0 ( 563/1116- 722/1295)  67.4 E30-E23 S12-N00
      8 1826 1230 (N31W50 L=234)   851    152        1 (1772/1166-1854/1281) -21.8 W43-W54 N27-N33
      9 1174 1179 (N06W04 L=188)   633    136        2 (1118/1127-1234/1224)  60.3 W01-W06 N01-N08
     10 1402 1120 (N09W18 L=202)   441     91        1 (1378/1077-1422/1169) -53.1 W16-W20 N06-N12
     11  173 1035 (S26E65 L=119)   960    129        0 ( 127/ 986- 220/1061)  14.9 E73-E57 S29-S24
     12  243  831 (S38E55 L=129)   804    142        2 ( 191/ 801- 308/ 872)  19.4 E63-E46 S40-S33
     13  849  851 (S21E05 L=178)   201     67        0 ( 814/ 831- 873/ 866)  14.0 E07-E03 S22-S19
     14 1136  593 (S27W20 L=204)   425     92        0 (1105/ 566-1173/ 622)   0.0 W17-W23 S28-S25
     15 1498  302 (S30W66 L=250)  1478    164        2 (1416/ 277-1566/ 329)  18.4 W58-W77 S33-S27
  

    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