Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1666 1594 (N24W67 L= 78)   521     33        1 (1643/1572-1689/1616) -36.9 W63-W70 N22-N25
      2  623 1444 (N40E20 L=351)  1042    213        0 ( 553/1399- 724/1503) -35.5 E26-E12 N35-N45
      3  174 1285 (N36E72 L=300)  1281    121        2 ( 145/1227- 211/1334) -20.2 E85-E64 N31-N38
      4  303 1108 (N24E50 L=322)   542    107        1 ( 289/1057- 325/1166)  74.1 E51-E47 N20-N27
      5  225 1006 (N18E59 L=313)   373    100        0 ( 197/ 974- 251/1025) -38.7 E62-E55 N15-N19
      6  314  944 (N14E50 L=322)   302     75        0 ( 287/ 910- 337/ 978) -63.4 E52-E48 N11-N15
      7  410  923 (N11E42 L=330)   308     77        0 ( 378/ 903- 451/ 942)   0.0 E44-E38 N10-N12
      8  360  613 (S07E55 L=317)  1086    121        2 ( 323/ 545- 397/ 663) -82.9 E58-E52 S11-S03
      9  582  598 (S11E37 L=335)   803    204        1 ( 496/ 539- 654/ 654)   8.7 E44-E31 S14-S07
     10  445  535 (S13E50 L=321)   525    123        1 ( 430/ 486- 468/ 589)  74.1 E52-E47 S16-S09
     11  980  520 (S23E13 L=358)   217     95        0 ( 936/ 510-1026/ 539) -38.7 E15-E10 S24-S20
     12 1595  502 (S40W32 L= 43)   578     72        0 (1567/ 477-1620/ 535)  90.0 W28-W34 S42-S37
     13 1286  415 (S38W04 L= 16)   283     40        0 (1270/ 390-1305/ 444)  53.1 W02-W06 S39-S35
     14  790  335 (S32E34 L=338)   467    113        1 ( 758/ 289- 815/ 383)  33.7 E38-E29 S35-S29
  

    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