Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1391 1688 (N33W44 L=296)   414     58        0 (1358/1667-1423/1708)  -9.5 W40-W47 N31-N34
      2 1450 1326 (N10W32 L=284)   373     52        1 (1422/1305-1485/1352)   0.0 W29-W33 N09-N12
      3  244 1276 (N32E53 L=199)   888    152        2 ( 211/1197- 288/1324) -39.3 E58-E47 N26-N35
      4  370 1244 (N27E39 L=213)   482     98        0 ( 335/1201- 403/1296) -54.5 E42-E36 N24-N31
      5  175 1181 (N27E61 L=191)   770    117        1 ( 134/1138- 213/1233)  29.1 E67-E56 N24-N30
      6 1375 1178 (N04W23 L=275)   387    116        0 (1313/1135-1408/1213)  15.9 W18-W25 N02-N05
      7 1250 1169 (N06W16 L=268)   739    243        3 (1138/1106-1342/1210)   4.4 W08-W21 N04-N07
      8  707 1085 (N12E17 L=235)   307     86        0 ( 676/1065- 751/1120) -45.0 E18-E14 N10-N14
      9  907 1021 (N04E07 L=246)   408    121        0 ( 848/ 987- 960/1054) -45.0 E09-E04 N01-N07
     10  217 1002 (N16E56 L=196)   847    200        2 ( 149/ 959- 282/1042) -14.9 E64-E49 N12-N18
     11 1799  979 (S17W51 L=303)   329     66        1 (1777/ 938-1814/1011)  68.2 W48-W52 S19-S14
     12 1853  763 (S31W58 L=310)  3471    395        4 (1726/ 612-1970/ 887)  17.0 W43-W81 S38-S25
     13  246  697 (S02E61 L=191)  1432    191        3 ( 213/ 622- 275/ 789)  56.3 E66-E57 S06-N03
     14  451  747 (S03E41 L=211)   433    144        0 ( 391/ 721- 503/ 769) -20.6 E45-E37 S04-S01
     15  609  641 (S12E33 L=219)   438    119        0 ( 570/ 599- 633/ 707) -90.0 E34-E31 S14-S07
     16  498  589 (S13E43 L=209)  1867    393        8 ( 375/ 494- 641/ 705) -57.1 E50-E36 S21-S04
     17 1564  674 (S30W28 L=280)   265     95        0 (1523/ 654-1611/ 690)   0.0 W24-W32 S30-S29
     18 1157  453 (S35E04 L=248)  1382    471        2 ( 967/ 326-1340/ 572)  14.0 E22-W10 S40-S30
     19  464  518 (S16E49 L=204)  1125    213        1 ( 371/ 477- 541/ 565) -38.7 E54-E44 S20-S11
     20  777  499 (S24E27 L=225)   396    143        1 ( 761/ 421- 798/ 564)  52.1 E30-E23 S28-S19
     21  375  475 (S17E60 L=193)  1764    166        2 ( 330/ 402- 433/ 555)  70.0 E64-E55 S22-S11
     22  621  237 (S38E57 L=195)  1090    125        0 ( 578/ 192- 641/ 302)  21.8 E69-E48 S41-S33
  

    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