Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1794 (N44W60 L=243)   555     55        1 (1354/1770-1414/1815)   0.0 W54-W66 N43-N45
      2  993 1666 (N48W16 L=198)  2484    547        6 ( 830/1571-1227/1778)   2.7 W00-W43 N44-N50
      3  786 1441 (N37E07 L=176)   344     78        1 ( 741/1427- 832/1456) -23.2 E10-E03 N35-N38
      4 1001 1398 (N29W07 L=189)   582    150        0 ( 944/1364-1073/1436)   0.0 W02-W12 N27-N30
      5 1277 1242 (N14W20 L=202)  1138    298        0 (1186/1141-1361/1351) -72.6 W16-W22 N06-N22
      6  251 1267 (N34E57 L=126)   677    100        0 ( 229/1217- 272/1316)  63.4 E59-E54 N31-N37
      7  207  962 (N16E61 L=122)  2100    395        3 ( 170/ 797- 270/1134) -74.1 E65-E56 N05-N26
      8  799 1061 (N13E13 L=170)   268     75        2 ( 775/1029- 833/1095)  63.4 E14-E10 N11-N15
      9 1099  887 (S02W02 L=184)   368     97        0 (1075/ 837-1127/ 938)  45.0 W00-W04 S05-N00
     10 1864  852 (S24W59 L=241)  1347    147        3 (1834/ 786-1900/ 920) -83.7 W54-W65 S28-S18
     11  181  776 (N05E69 L=114)  4062    252        9 ( 132/ 690- 224/ 868)  68.2 E77-E62 N00-N10
     12 1358  740 (S16W14 L=197)   507    184        0 (1293/ 670-1398/ 810)  33.7 W09-W18 S19-S13
     13  492  691 (S04E40 L=142)   363     84        1 ( 468/ 649- 515/ 729) -90.0 E41-E38 S06-N00
     14  286  698 (S01E58 L=124)   884     94        2 ( 245/ 667- 335/ 728) -14.0 E63-E53 S02-N01
     15 1537  581 (S32W25 L=208)   483    111        0 (1497/ 548-1579/ 622)  33.7 W21-W29 S33-S29
     16  910  480 (S24E19 L=164)  1043    239        2 ( 850/ 371- 961/ 590)  49.8 E25-E13 S30-S17
     17  566  458 (S19E44 L=139)  1664    234        4 ( 489/ 393- 655/ 532) -71.6 E48-E37 S25-S13
     18  388  489 (S15E58 L=125)   977     86        3 ( 354/ 446- 414/ 528) -80.5 E61-E55 S18-S12
     19  365  426 (S20E66 L=116)  4662    243        3 ( 283/ 346- 451/ 521) -81.9 E74-E59 S26-S12
     20 1653  448 (S47W40 L=222)   436     43        0 (1630/ 435-1682/ 468) -24.0 W35-W44 S49-S44
     21  575  364 (S26E49 L=134)   434     71        2 ( 554/ 328- 604/ 388)  20.6 E52-E44 S28-S24
     22 1040  305 (S40E17 L=165)   447     55        0 (1007/ 284-1074/ 324) -31.0 E19-E14 S41-S37
     23 1225  221 (S54E07 L=176)  1936    274        4 (1112/ 175-1351/ 273)   6.3 E20-W07 S56-S50
  

    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