Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  508 1678 (N25E56 L=177)   635    141        0 ( 481/1637- 529/1715) -35.5 E60-E53 N22-N27
      2 1127 1373 (N20E02 L=231)   199     87        0 (1119/1331-1135/1418) -68.2 E03-W00 N17-N22
      3 1417 1334 (N25W17 L=250)   535     75        1 (1380/1300-1455/1372) -18.4 W14-W20 N22-N26
      4 1027 1192 (N07E04 L=229)   645    201        0 ( 967/1093-1079/1249) -36.9 E08-W01 N02-N09
      5  442 1013 (S16E37 L=196)  2271    537        2 ( 351/ 812- 506/1195) -85.2 E42-E33 S29-S05
      6 1636 1037 (N13W38 L=271)   254     56        1 (1606/1017-1657/1059)   0.0 W35-W39 N11-N13
      7 1569 1017 (N10W33 L=266)   266     59        1 (1545/ 988-1587/1049) -45.0 W31-W35 N08-N11
      8 1427  889 (S01W27 L=260)   213     97        1 (1411/ 839-1447/ 939) -38.7 W24-W29 S03-N01
      9  933  881 (S13E02 L=231)   368     57        2 ( 905/ 854- 973/ 906)  45.0 E04-W00 S14-S11
     10 1696  627 (S09W56 L=289)   701     86        3 (1666/ 598-1727/ 660) -26.6 W53-W59 S10-S07
     11 1521  612 (S14W42 L=275)   751    114        1 (1471/ 585-1574/ 641)  39.8 W38-W45 S16-S11
     12  890  591 (S32W03 L=235)   450     62        2 ( 864/ 557- 925/ 617)  78.7 W00-W04 S34-S29
     13 1388  421 (S29W42 L=275)   521     65        1 (1361/ 398-1422/ 449)   0.0 W39-W44 S31-S27
     14 1170  280 (S45W37 L=270)   965     79        2 (1143/ 241-1202/ 320) -54.5 W33-W41 S48-S41
  

    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