Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1364 1727 (N47W18 L=258)  1430    151        3 (1282/1684-1440/1755)  -4.1 W10-W24 N43-N49
      2  278 1516 (N19E66 L=174)  2400    165        2 ( 245/1439- 314/1593) -57.5 E72-E61 N13-N24
      3 1204 1410 (N20W07 L=247)  1290    351        1 (1071/1294-1319/1506) -32.0 E02-W14 N14-N24
      4 1754 1389 (N28W50 L=290)  1053    145        0 (1710/1325-1798/1454) -53.1 W46-W54 N23-N31
      5 1846 1274 (N22W59 L=299)  1205    211        0 (1827/1173-1864/1374)  69.0 W55-W63 N15-N28
      6 1729 1317 (N22W46 L=286)   668    123        1 (1671/1289-1780/1356) -11.3 W40-W51 N20-N24
      7 1611 1328 (N21W35 L=276)   370     30        1 (1587/1306-1635/1349)  36.9 W33-W37 N19-N22
      8  136 1060 (S10E69 L=171)   978    135        6 ( 116/1007- 154/1126) -82.9 E72-E66 S13-S05
      9  314 1019 (S12E48 L=192)   384     80        0 ( 288/ 977- 346/1061)  59.0 E50-E45 S14-S09
     10  636  855 (S20E23 L=217)   306    116        1 ( 578/ 821- 686/ 883)  29.7 E26-E19 S22-S17
     11  206  844 (S23E61 L=179)   416     52        0 ( 173/ 829- 234/ 864)  12.5 E66-E57 S23-S21
     12  481  707 (S30E35 L=205)   463    102        0 ( 448/ 671- 521/ 750)  35.5 E38-E31 S32-S27
     13 1340  579 (S28W28 L=268)  1650    396        1 (1191/ 470-1500/ 678)  46.7 W20-W36 S37-S19
     14  383  533 (S43E50 L=190)   336     26        1 ( 366/ 508- 398/ 556)  36.9 E52-E47 S44-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