Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  476 1692 (N48E60 L=176)  1003    125        2 ( 435/1636- 495/1732) -12.5 E78-E51 N44-N51
      2  893 1538 (N37E09 L=226)   358     73        1 ( 856/1508- 933/1560)  -9.5 E12-E06 N34-N38
      3 1034 1439 (N30W01 L=236)   306    122        0 ( 988/1416-1087/1456) -21.8 E01-W04 N28-N31
      4 1576 1393 (N25W41 L=277)   412    227        0 (1496/1308-1651/1426) -38.7 W35-W45 N19-N27
      5  427 1315 (N22E43 L=192)   353    117        2 ( 408/1261- 446/1371) -66.8 E45-E40 N18-N25
      6  442 1142 (N11E39 L=196)   246     68        1 ( 421/1118- 463/1171)  33.7 E40-E37 N09-N12
      7 1790 1115 (N07W56 L=291)   407     76        1 (1759/1082-1820/1148)  38.7 W52-W59 N04-N08
      8 1827  988 (S01W59 L=294)   646     79        0 (1794/ 967-1858/1017)  -7.1 W55-W63 S02-N00
      9  277  874 (S06E54 L=181)  1226    203        0 ( 228/ 803- 325/ 966) -51.3 E58-E49 S10-N00
     10  705  746 (S13E21 L=214)   361    165        0 ( 641/ 704- 744/ 804)  40.6 E25-E18 S16-S09
     11  189  697 (S18E71 L=164)  1888    175        2 ( 144/ 626- 241/ 754) -30.3 E79-E66 S22-S14
     12  322  714 (S16E52 L=183)   400     58        2 ( 297/ 689- 358/ 733)   0.0 E54-E48 S17-S14
     13  373  639 (S21E49 L=186)   911    202        0 ( 341/ 557- 432/ 718)  38.2 E55-E41 S26-S15
     14 1041  624 (S21W01 L=236)   497    209        3 ( 947/ 558-1088/ 691)  45.0 E05-W03 S25-S17
     15  277  613 (S23E62 L=174)  1508    164        4 ( 247/ 542- 310/ 686)  59.0 E67-E56 S28-S18
     16  830  585 (S24E14 L=221)   741    243        0 ( 762/ 495- 908/ 662)  47.5 E19-E08 S30-S18
     17 1817  595 (S27W71 L=306)   992    105        3 (1783/ 563-1838/ 647) -80.5 W64-W79 S29-S23
     18 1263  407 (S38W18 L=253)   284     66        0 (1229/ 394-1301/ 421)  -9.5 W15-W21 S39-S36
     19  706  357 (S42E28 L=207)  1616    259        3 ( 616/ 318- 816/ 414)  17.7 E39-E17 S45-S36
     20  679  211 (S57E46 L=190)   573     31        1 ( 660/ 193- 699/ 234)  24.4 E51-E40 S59-S54
  

    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