Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  641 1653 (N41E39 L=169)  1575    258        1 ( 593/1523- 671/1758) -34.2 E55-E30 N31-N48
      2 1065 1485 (N32E01 L=208)  1576    439        2 ( 935/1343-1208/1574) -34.4 E10-W10 N23-N38
      3  399 1376 (N19E49 L=160)   533    135        0 ( 380/1338- 441/1440) -33.7 E52-E43 N16-N23
      4 1313 1307 (N22W17 L=225)   232     78        1 (1282/1278-1343/1329) -36.9 W15-W19 N19-N22
      5 1766 1171 (N15W54 L=262)  1020    195        2 (1732/1093-1797/1249)  78.7 W50-W56 N10-N20
      6 1559 1167 (N14W35 L=243)   240     69        0 (1540/1138-1577/1190) -56.3 W33-W36 N12-N15
      7 1837 1076 (N10W61 L=269)   528     89        1 (1809/1044-1861/1121)  29.7 W57-W64 N07-N12
      8 1752  856 (S04W53 L=261)   486     24        0 (1730/ 833-1775/ 876)  45.0 W50-W55 S05-S02
      9  957  755 (S15E03 L=206)   280     58        2 ( 937/ 720- 976/ 784)  90.0 E03-E01 S17-S13
     10 1848  746 (S11W69 L=277)   892     65        3 (1811/ 724-1878/ 765)  12.5 W63-W74 S12-S09
     11 1842  686 (S15W71 L=279)   870     71        3 (1829/ 648-1861/ 721) -26.6 W67-W78 S17-S12
     12 1746  645 (S18W59 L=267)   654     52        1 (1716/ 620-1776/ 667) -12.5 W54-W63 S19-S16
     13 1215  580 (S25W16 L=224)   295     89        0 (1175/ 566-1262/ 599)  18.4 W13-W19 S25-S23
     14  886  494 (S33E06 L=202)   302     82        0 ( 844/ 481- 926/ 509)   9.5 E09-E03 S34-S31
     15 1076  425 (S37W09 L=217)   404    118        0 (1022/ 405-1138/ 443)  18.4 W04-W13 S39-S35
  

    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