Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  837 1553 (N43E05 L=156)   274     44        0 ( 809/1536- 865/1572) -31.0 E07-E03 N41-N45
      2 1718 1477 (N20W62 L=223)  3091    459        6 (1621/1397-1821/1532) -21.4 W56-W71 N13-N26
      3 1319 1313 (N19W24 L=184)   707    195        4 (1252/1249-1402/1350)   0.0 W20-W28 N13-N22
      4 1587 1292 (N12W42 L=202)   261    106        0 (1543/1269-1621/1322)   7.1 W40-W44 N10-N15
      5  350 1269 (N30E48 L=113)   333     62        1 ( 318/1255- 380/1283)   9.5 E52-E44 N29-N31
      6  745 1136 (N17E16 L=145)   550    120        3 ( 721/1075- 773/1201) -90.0 E17-E15 N13-N21
      7 1867 1090 (S06W64 L=225)   572    138        2 (1838/1055-1892/1136)  26.6 W61-W68 S09-S02
      8 1221 1032 (N04W12 L=172)   197     55        0 (1188/1018-1251/1051)  14.0 W10-W14 N02-N05
      9 1815  906 (S15W56 L=217)   882    207        3 (1787/ 831-1835/ 976)  69.4 W53-W60 S21-S10
     10 1243  909 (S04W11 L=172)   581    154        0 (1164/ 884-1305/ 940) -18.4 W07-W15 S06-S01
     11 1334  768 (S14W16 L=176)  1037    251        4 (1295/ 683-1371/ 882)  67.4 W14-W17 S20-S06
     12 1670  792 (S19W42 L=202)   830    208        4 (1641/ 742-1709/ 875) -77.5 W39-W46 S23-S13
     13  909  542 (S22E16 L=144)   544    221        0 ( 893/ 450- 928/ 640)  69.0 E14-E17 S29-S15
     14 1187  501 (S29W02 L=163)  1159    219        3 (1098/ 438-1260/ 587)  31.6 E02-W07 S36-S22
     15  455  451 (S23E55 L=105)   858    173        2 ( 407/ 420- 497/ 489)  13.0 E58-E54 S26-S20
  

    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