Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1219 1372 (N18W21 L=240)   292    105        0 (1169/1360-1274/1389) -38.7 W18-W23 N16-N20
      2 1629 1352 (N06W46 L=265)   717     90        4 (1587/1315-1678/1386) -38.7 W43-W49 N03-N08
      3 1497 1232 (N03W32 L=252)   835    218        3 (1425/1165-1576/1325)  15.9 W26-W40 N01-N06
      4 1226 1284 (N14W18 L=238)   514    145        0 (1158/1249-1289/1315)  -6.3 W13-W22 N12-N14
      5  983 1081 (N09E01 L=219)   652    125        2 ( 937/1027-1036/1127)  38.7 E04-W02 N06-N11
      6 1629 1038 (S11W36 L=255)   375    126        0 (1593/ 999-1666/1098) -74.1 W34-W38 S13-S06
      7  379 1024 (N20E40 L=179)   311     39        2 ( 352/ 997- 403/1044) -26.6 E42-E38 N18-N21
      8  263  957 (N19E52 L=168)   557     99        1 ( 241/ 905- 296/1004)  45.0 E55-E48 N15-N21
      9 1930  918 (S28W66 L=286)   745     86        1 (1892/ 888-1965/ 945)  -3.6 W59-W75 S29-S26
     10  612  783 (N02E30 L=190)   642    167        0 ( 556/ 710- 648/ 840) -76.0 E31-E28 S03-N05
     11 1784  698 (S37W45 L=265)  2143    259        4 (1694/ 631-1865/ 799)   8.5 W35-W56 S40-S31
     12 1311  684 (S22W08 L=227)  1082    241        1 (1260/ 574-1356/ 793)  47.7 W01-W12 S27-S16
     13 1047  683 (S15E08 L=212)   185     25        0 (1033/ 658-1060/ 706)  45.0 E08-E06 S16-S13
     14  538  622 (S06E40 L=180)   656    181        2 ( 511/ 527- 569/ 696)  48.4 E43-E35 S11-S02
     15 1104  673 (S17E05 L=215)   206     17        1 (1080/ 654-1124/ 692) -26.6 E05-E03 S18-S15
     16  791  539 (S16E27 L=193)  1093    291        5 ( 744/ 434- 850/ 641)  53.1 E31-E19 S23-S11
     17  648  564 (S12E35 L=185)   704    186        4 ( 559/ 528- 725/ 609)   0.0 E41-E28 S13-S09
     18  641  432 (S19E41 L=179)   816    153        3 ( 604/ 390- 701/ 499)  82.9 E45-E37 S22-S14
     19  562  423 (S18E47 L=172)   681    103        2 ( 529/ 386- 586/ 470)  20.6 E51-E43 S20-S15
     20  432  418 (S16E59 L=161)  1498    236        5 ( 353/ 368- 507/ 467) -45.0 E64-E53 S20-S11
     21 1161  423 (S34E09 L=210)   371    108        0 (1123/ 378-1197/ 465)  20.6 E13-E05 S36-S31
     22  874  341 (S31E31 L=189)   459     74        1 ( 833/ 314- 910/ 378) -68.2 E32-E28 S33-S28
     23  496  318 (S24E62 L=158)  2568    200        2 ( 424/ 268- 594/ 356)   4.9 E84-E49 S26-S21
  

    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