Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1487 1597 (N23W50 L=179)   555    141        0 (1427/1556-1549/1623) -54.5 W46-W51 N19-N26
      2 1360 1461 (N20W33 L=163)  1219    454        2 (1158/1416-1541/1516) -37.3 W23-W44 N13-N29
      3 1792 1328 (S00W60 L=190)   612     64        1 (1758/1300-1821/1358) -45.0 W57-W63 S02-N02
      4 1115 1234 (N15W11 L=140)   294    142        0 (1048/1222-1186/1246) -26.6 W06-W14 N12-N16
      5  779 1180 (N21E10 L=120)   443    146        1 ( 721/1147- 842/1200) -14.0 E14-E06 N18-N22
      6 1895 1047 (S19W63 L=193)  1403    175        1 (1871/ 973-1920/1141)  78.7 W58-W66 S23-S13
      7  304 1087 (N26E47 L= 82)   409     77        2 ( 272/1060- 344/1110) -23.2 E50-E43 N24-N28
      8  183 1068 (N28E62 L= 67)   439     55        2 ( 160/1042- 199/1098) -63.4 E65-E59 N25-N29
      9  567  981 (N14E28 L=102)   518    290        1 ( 456/ 946- 690/1008) -17.4 E35-E19 N11-N17
     10 1286  636 (S24W05 L=134)   861    213        1 (1258/ 547-1301/ 761)  59.7 W01-W08 S28-S16
     11  632  659 (S05E33 L= 97)   282     94        0 ( 603/ 606- 659/ 703)  39.8 E36-E29 S07-S02
     12  507  454 (S15E51 L= 79)   903    211        1 ( 479/ 369- 548/ 537)  61.4 E55-E47 S20-S09
     13 1235  467 (S33E03 L=126)   309     64        0 (1209/ 445-1268/ 485)   0.0 E05-W00 S34-S31
  

    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