Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1195 1739 (N42E10 L=261)   417     93        0 (1175/1706-1217/1776)  90.0 E11-E08 N38-N46
      2 1304 1642 (N38W01 L=272)  1250    218        1 (1236/1542-1374/1716) -42.3 E04-W08 N32-N42
      3  951 1609 (N25E20 L=251)   454    100        0 ( 933/1558- 966/1657) -50.2 E23-E17 N22-N28
      4  724 1460 (N11E28 L=243)  1861    494        1 ( 653/1309- 861/1638) -34.8 E39-E16 N03-N20
      5  258 1471 (N04E68 L=204)   934    163        1 ( 216/1444- 297/1490)   5.2 E74-E62 N02-N04
      6 1294 1429 (N23W06 L=277)   329     73        0 (1274/1389-1309/1463) -68.2 W03-W07 N20-N25
      7 1281 1171 (N07W11 L=282)   972    261        0 (1252/1034-1313/1296) -60.3 W06-W15 N00-N14
      8  143 1131 (S18E67 L=205)  5249    677       10 (  97/1021- 200/1223) -45.0 E74-E60 S24-S12
      9 1919  977 (N16W65 L=336)   639     82        0 (1907/ 935-1931/1019) -45.0 W61-W66 N13-N18
     10  453  930 (S25E34 L=237)   921    299        0 ( 335/ 879- 565/ 986)  34.5 E43-E26 S30-S19
     11  875  949 (S15E07 L=265)   293    127        0 ( 805/ 931- 936/ 968)  12.5 E11-E02 S15-S13
     12  184  816 (S37E58 L=213)  1559    377        5 ( 126/ 760- 261/ 862)  25.0 E64-E49 S40-S32
     13 1879  771 (N04W68 L=340)   865    211        5 (1847/ 736-1919/ 815)  32.0 W64-W74 N01-N06
     14 1466  614 (S18W38 L=310)   255     55        0 (1435/ 600-1497/ 629)  26.6 W36-W40 S19-S16
     15 1553  497 (S21W50 L=321)   935    135        2 (1502/ 444-1595/ 567) -83.7 W47-W52 S25-S16
  

    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