Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1077 1649 (N41W26 L=257)   522    113        1 (1034/1605-1126/1685)   6.3 W21-W30 N38-N41
      2 1609 1609 (N20W61 L=292)   920    102        0 (1556/1574-1653/1642)  -4.4 W54-W67 N18-N21
      3 1534 1422 (N13W43 L=274)  1289    198        1 (1454/1342-1595/1490) -80.5 W40-W45 N07-N19
      4  810 1342 (N30E04 L=227)   808    176        1 ( 722/1292- 902/1371) -41.6 E09-W00 N25-N33
      5  728 1220 (N25E12 L=219)   250     81        1 ( 700/1173- 761/1252) -80.5 E13-E10 N21-N27
      6 1249 1101 (N05W14 L=246)  1206    333        2 (1194/ 948-1326/1232)  33.7 W07-W22 S02-N10
      7 1409 1192 (N05W26 L=258)   418    101        1 (1372/1157-1454/1232) -71.6 W24-W27 N02-N08
      8 1925 1039 (S21W67 L=298)   923     74        2 (1884/1013-1955/1073)  -4.1 W59-W74 S22-S19
      9 1644  943 (S15W35 L=266)   816    188        2 (1554/ 897-1703/ 972) -14.0 W27-W39 S19-S12
     10 1878  867 (S29W57 L=288)  1408    155        1 (1835/ 806-1921/ 949)  31.0 W51-W64 S32-S25
     11  526  870 (N10E33 L=198)   334     62        1 ( 491/ 851- 556/ 893)   0.0 E36-E30 N09-N11
     12  775  731 (S03E22 L=210)   323     89        0 ( 754/ 686- 798/ 779)  80.5 E22-E20 S06-N00
     13  298  716 (N06E56 L=175)   985    202        0 ( 222/ 688- 397/ 738)  -6.3 E65-E47 N02-N08
     14  500  579 (S06E44 L=187)   877    202        0 ( 419/ 537- 593/ 619)   0.0 E52-E37 S07-S03
     15  452  470 (S11E54 L=177)  3061    284       11 ( 354/ 366- 541/ 560) -59.7 E64-E47 S19-S06
     16  605  513 (S12E40 L=192)   751    146        1 ( 573/ 451- 640/ 553)  74.1 E42-E36 S15-S08
     17  754  382 (S24E37 L=195)  1482    336        1 ( 700/ 261- 819/ 549)  33.7 E49-E25 S30-S14
     18 1572  443 (S47W22 L=253)   398     66        0 (1559/ 407-1588/ 475) -80.5 W20-W23 S49-S43
     19  552  442 (S15E47 L=184)   371     85        0 ( 512/ 423- 582/ 465) -36.9 E49-E44 S16-S12
     20  438  370 (S18E64 L=168)  2410    277        3 ( 381/ 317- 568/ 429) -25.0 E79-E51 S22-S13
     21  587  394 (S19E48 L=184)   469     52        1 ( 560/ 370- 610/ 422)  26.6 E51-E45 S20-S17
     22  890  269 (S35E35 L=196)   996    153        2 ( 818/ 227- 954/ 315)   7.6 E42-E27 S37-S32
  

    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