Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1504 (N21W40 L= 14)   587    109        2 (1405/1452-1470/1555)  24.0 W36-W45 N18-N23
      2  913 1496 (N37W07 L=341)   307     78        0 ( 880/1468- 949/1526)   9.5 W04-W10 N35-N37
      3 1202 1488 (N28W25 L=359)   271    101        0 (1159/1469-1259/1505) -14.0 W21-W29 N26-N28
      4  727 1453 (N40E07 L=327)   528    106        1 ( 681/1425- 779/1475) -29.7 E10-E03 N36-N41
      5 1657 1297 (N04W46 L= 20)   399     74        1 (1620/1278-1698/1325) -15.9 W42-W49 N02-N04
      6  172 1265 (N40E68 L=266)   785     75        0 ( 129/1244- 209/1285)  -8.5 E80-E60 N38-N41
      7  644 1191 (N26E19 L=315)  1517    299        3 ( 494/1144- 783/1214) -25.3 E29-E10 N19-N29
      8 1821 1129 (S11W55 L= 29)   437     68        2 (1802/1099-1839/1163)  56.3 W52-W56 S12-S08
      9 1433  907 (S10W20 L=354)   967    257        0 (1355/ 818-1490/1015)  31.6 W13-W26 S13-S05
     10  239  921 (N18E57 L=277)  3282    521        2 ( 121/ 788- 473/1007)   7.5 E75-E35 N11-N23
     11 1683  980 (S14W39 L= 13)   253     46        1 (1666/ 951-1703/1006)  33.7 W37-W40 S15-S12
     12 1677  918 (S17W37 L= 11)   507    126        2 (1622/ 888-1724/ 953)  -6.3 W32-W41 S19-S15
     13  195  719 (N07E69 L=265)  1391    137        2 ( 162/ 663- 233/ 768) -80.5 E73-E63 N03-N10
     14 1167  609 (S20E03 L=331)   693    347        1 (1128/ 434-1216/ 730)  50.9 E10-W03 S30-S14
     15  959  660 (S12E13 L=321)   334     59        1 ( 929/ 632- 991/ 685)  26.6 E15-E11 S12-S10
     16  890  643 (S11E17 L=317)   251    108        0 ( 854/ 592- 910/ 678) -90.0 E18-E16 S14-S08
     17  995  624 (S15E12 L=322)   256     41        0 ( 973/ 603-1018/ 645)  33.7 E13-E10 S15-S13
     18  403  376 (S17E67 L=267)  2322    186        4 ( 347/ 290- 445/ 446)  40.9 E82-E62 S24-S11
     19  621  368 (S22E47 L=288)   923    112        1 ( 593/ 305- 658/ 420)  32.5 E52-E41 S26-S18
     20  450  361 (S19E63 L=271)   589     81        2 ( 429/ 322- 474/ 406)  54.5 E65-E59 S22-S15
     21 1201  320 (S41E11 L=323)   652    103        0 (1182/ 274-1218/ 384)  48.8 E14-E07 S45-S36
     22 1411  269 (S56W04 L=338)  1414    148        4 (1338/ 249-1489/ 295) -28.1 E03-W12 S61-S50
  

    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