Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  754 1788 (N44E43 L=210)   542     85        0 ( 731/1750- 787/1825) -22.6 E49-E37 N41-N47
      2 1345 1783 (N59W12 L=265)   407     46        0 (1315/1771-1372/1795)  23.2 W08-W15 N57-N61
      3 1669 1505 (N42W44 L=297)   725    138        2 (1604/1463-1729/1534)  -4.1 W37-W51 N39-N43
      4  627 1257 (N06E28 L=225)   520    134        1 ( 610/1189- 643/1330) -63.4 E30-E26 N02-N10
      5  879 1254 (N10E13 L=240)  1021    265        4 ( 796/1193- 965/1325)  41.2 E17-E08 N06-N15
      6  828 1299 (N12E17 L=237)   242     67        1 ( 803/1276- 866/1316)  45.0 E18-E14 N10-N13
      7 1114 1125 (N07W04 L=257)   240    100        0 (1071/1098-1155/1143)  31.0 W01-W06 N04-N07
      8  871  889 (S11E07 L=246)  1200    346        3 ( 796/ 746- 970/1050)  76.0 E09-E03 S20-N00
      9  433  775 (S26E36 L=217)   846    191        2 ( 347/ 733- 488/ 835)  24.8 E44-E31 S29-S21
     10 1017  814 (S13W03 L=256)   193     56        0 ( 993/ 797-1041/ 830)   0.0 W01-W04 S14-S12
     11 1331  706 (S14W25 L=278)   486    155        0 (1259/ 667-1393/ 744) -11.3 W19-W29 S15-S13
     12 1087  653 (S22W11 L=264)   430    111        0 (1039/ 628-1143/ 680)  45.0 W07-W13 S24-S19
     13 1139  486 (S32W19 L=272)   294     90        0 (1102/ 469-1183/ 502)  31.0 W15-W21 S33-S29
     14  437  399 (S54E46 L=207)  2187    226        4 ( 363/ 336- 524/ 459) -14.7 E59-E35 S59-S49
     15  654  341 (S54E18 L=235)   322     69        0 ( 637/ 322- 682/ 372) -63.4 E20-E14 S56-S51
  

    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