Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1613 1584 (N18W57 L=238)  1295    342        2 (1509/1508-1741/1641) -40.6 W50-W65 N11-N24
      2 1164 1448 (N24W20 L=201)   265    123        0 (1102/1437-1227/1464) -33.7 W16-W23 N22-N26
      3 1549 1382 (N10W41 L=222)   252     39        1 (1524/1364-1573/1399) -33.7 W39-W43 N08-N10
      4 1565 1326 (N06W40 L=221)   225     86        1 (1530/1294-1603/1351)   0.0 W36-W43 N05-N07
      5  869 1227 (N19E04 L=177)  1003    439        2 ( 725/1098-1037/1311)   9.9 E15-W08 N15-N22
      6 1690 1157 (S06W44 L=224)   504    111        0 (1629/1130-1740/1188) -36.9 W39-W47 S08-S02
      7  516 1151 (N24E28 L=153)   212     55        0 ( 489/1128- 549/1175) -45.0 E29-E25 N21-N25
      8  302 1094 (N25E46 L=135)   350     81        0 ( 281/1049- 330/1128)  38.7 E48-E43 N22-N27
      9 1226 1047 (N01W11 L=192)   677    116        2 (1181/ 978-1261/1101) -81.9 W09-W13 S03-N04
     10 1708  768 (S29W38 L=218)  4754    736        5 (1511/ 515-1860/1089)  31.6 W18-W57 S40-S14
     11  175  901 (N17E63 L=117)  3573    313        9 ( 127/ 780- 219/1069)  83.3 E71-E57 N09-N26
     12 1488 1024 (S07W26 L=207)   277     96        1 (1458/ 982-1509/1051)  26.6 W23-W28 S09-S05
     13  239  920 (N16E55 L=125)   870    115        5 ( 209/ 867- 284/ 972) -50.2 E57-E51 N13-N19
     14 1380  849 (S14W16 L=196)   592    145        1 (1337/ 783-1441/ 883)  14.0 W11-W19 S17-S12
     15 1166  792 (S12W02 L=183)   203     62        0 (1137/ 765-1192/ 825) -76.0 W01-W03 S13-S09
     16  608  730 (S02E31 L=149)  1048    257        1 ( 522/ 623- 671/ 819) -76.0 E34-E29 S08-N04
     17 1358  587 (S29W08 L=189)   353    115        0 (1342/ 549-1388/ 648) -90.0 W06-W09 S32-S25
     18 1074  612 (S20E08 L=173)   258     66        1 (1051/ 588-1095/ 644) -90.0 E09-E06 S21-S17
     19  295  552 (S06E64 L=117)   934    118        2 ( 255/ 532- 359/ 589) -29.1 E69-E57 S07-S02
     20  543  457 (S16E47 L=134)  1684    375        4 ( 448/ 341- 657/ 575)  19.0 E63-E34 S21-S11
     21  875  448 (S25E25 L=155)  1517    321        4 ( 756/ 377-1026/ 522)   5.0 E36-E13 S26-S22
     22  327  448 (S13E69 L=112)  1414    114        3 ( 293/ 389- 358/ 510)  25.0 E76-E60 S16-S08
     23  639  311 (S28E49 L=131)   394     88        1 ( 599/ 288- 676/ 341)   6.3 E53-E44 S29-S26
  

    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