Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  984 1546 (N29E03 L=  3)   692    191        0 ( 903/1490-1064/1607) -38.7 E08-W02 N25-N33
      2  257 1334 (N17E55 L=311)   688     81        1 ( 240/1292- 274/1378) -78.7 E57-E52 N14-N19
      3 1680 1340 (N17W45 L= 51)   351     81        0 (1650/1322-1713/1355) -11.3 W42-W47 N15-N17
      4  157 1207 (N10E65 L=301)   689    159        1 ( 120/1187- 191/1220)  -5.2 E71-E60 N08-N10
      5 1780 1137 (N05W52 L= 58)   686    129        1 (1740/1092-1822/1173) -33.7 W48-W56 N02-N06
      6  653 1087 (N01E23 L=343)   322     97        0 ( 597/1055- 697/1108)  -8.1 E26-E19 S01-N01
      7  634  887 (S11E24 L=342)   816    204        1 ( 601/ 778- 670/ 984)  67.4 E27-E21 S17-S05
      8 1860  942 (S07W61 L= 67)   427     58        0 (1847/ 906-1876/ 976)  90.0 W59-W62 S08-S04
      9  358  892 (S10E45 L=322)   309     73        1 ( 325/ 860- 383/ 926) -53.1 E47-E42 S12-S08
     10  209  787 (S16E60 L=306)   981    272        1 ( 182/ 680- 249/ 889)  58.4 E64-E54 S22-S09
     11 1843  685 (S22W63 L= 69)   650    107        1 (1804/ 651-1874/ 720)  39.8 W59-W66 S24-S19
     12 1004  667 (S25E01 L=  5)   322     42        2 ( 983/ 644-1030/ 698) -71.6 E02-W00 S26-S23
     13  407  620 (S27E45 L=321)   981    151        3 ( 379/ 552- 439/ 690)  77.5 E47-E41 S31-S22
     14  196  604 (S27E67 L=299)   701    177        1 ( 181/ 581- 230/ 633) -31.0 E69-E62 S27-S24
  

    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