Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  525 1731 (N71E33 L=106)   879     74        1 ( 482/1701- 563/1748)  -9.8 E53-E23 N66-N74
      2 1094 1642 (N41W26 L=166)   289     56        1 (1060/1621-1121/1659) -11.3 W23-W28 N39-N42
      3 1099 1560 (N36W22 L=162)   231     76        0 (1066/1536-1134/1584) -68.2 W20-W23 N33-N38
      4 1653 1505 (N15W58 L=197)   713     69        1 (1625/1465-1679/1537)  14.0 W53-W62 N13-N16
      5 1563 1486 (N17W49 L=189)   302     48        1 (1535/1461-1583/1505) -33.7 W46-W51 N15-N18
      6 1256 1373 (N20W24 L=163)   653    328        2 (1104/1321-1384/1409) -36.3 W14-W29 N13-N25
      7  716 1270 (N29E13 L=127)   283    110        0 ( 679/1243- 762/1313) -56.3 E14-E10 N26-N32
      8  238 1283 (N40E59 L= 81)   519     54        1 ( 213/1262- 264/1304) -12.5 E63-E54 N38-N41
      9  595 1181 (N26E23 L=117)   314     74        2 ( 562/1151- 636/1210) -45.0 E25-E20 N24-N28
     10  230 1175 (N33E58 L= 82)   398     64        0 ( 219/1141- 244/1209) -76.0 E59-E55 N31-N35
     11 1897 1151 (S12W67 L=207)   599     63        1 (1879/1120-1917/1191) -78.7 W65-W71 S14-S09
     12  283 1034 (N24E51 L= 88)   324     75        0 ( 251/1016- 325/1062) -23.2 E54-E47 N22-N25
     13  218  956 (N20E60 L= 80)   770    103        4 ( 171/ 923- 251/ 990)  15.3 E67-E55 N18-N21
     14  236  880 (N15E59 L= 80)   412     68        0 ( 214/ 851- 255/ 908)  76.0 E62-E56 N13-N17
     15  371  872 (N13E46 L= 94)   628    123        2 ( 313/ 852- 439/ 894) -21.8 E50-E40 N10-N14
     16  572  826 (N06E32 L=108)   500    118        2 ( 548/ 761- 613/ 873)  81.9 E33-E28 N02-N09
     17  867  808 (S01E14 L=125)   279     49        1 ( 838/ 787- 896/ 828) -33.7 E15-E12 S02-N00
     18  708  596 (S10E30 L=110)   226     63        0 ( 677/ 578- 739/ 615)   0.0 E32-E27 S10-S09
     19  547  529 (S11E44 L= 96)   508     74        1 ( 519/ 489- 568/ 574)  80.5 E46-E41 S13-S07
     20 1353  499 (S34W06 L=146)   580     64        3 (1324/ 468-1385/ 534) -78.7 W04-W08 S35-S30
     21  383  460 (S13E63 L= 77)  2074    202        6 ( 317/ 384- 435/ 517) -84.3 E68-E57 S18-S08
  

    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