Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1503 (N21W40 L= 14)   478     85        1 (1407/1452-1455/1548)  51.3 W37-W43 N18-N23
      2  919 1499 (N37W08 L=342)   258     59        0 ( 889/1469- 951/1528)  21.8 W05-W10 N35-N38
      3 1206 1490 (N28W25 L=359)   249    105        0 (1162/1472-1264/1511)  -8.1 W21-W29 N26-N28
      4  728 1455 (N40E07 L=327)   464    117        1 ( 686/1425- 777/1476) -45.0 E10-E03 N36-N41
      5 1664 1298 (N04W47 L= 21)   317     70        1 (1626/1283-1702/1322) -15.9 W43-W50 N02-N04
      6  174 1264 (N40E67 L=266)   753     82        0 ( 129/1241- 210/1285)  -8.5 E80-E60 N38-N41
      7  645 1193 (N26E19 L=315)  1322    307        3 ( 496/1143- 783/1215) -25.3 E29-E10 N19-N30
      8 1822 1133 (S10W55 L= 29)   542     64        0 (1803/1103-1842/1167)  56.3 W52-W57 S12-S08
      9 1434  903 (S11W20 L=354)   861    244        0 (1359/ 820-1489/1009)  30.3 W13-W25 S13-S06
     10  178  883 (N17E65 L=269)  3036    287        2 ( 122/ 773- 265/1008)  29.7 E75-E52 N10-N23
     11  369  982 (N20E43 L=291)   726    201        0 ( 281/ 949- 477/1003) -20.6 E50-E34 N15-N22
     12 1670  915 (S17W36 L= 10)   309     83        1 (1629/ 891-1698/ 935)  -9.5 W32-W38 S19-S15
     13  199  714 (N07E68 L=265)  1375    157        3 ( 165/ 651- 235/ 759)  31.0 E72-E62 N02-N09
     14 1187  676 (S17W00 L=334)   322    116        0 (1157/ 627-1219/ 731)  38.7 E02-W03 S18-S14
     15  983  649 (S13E12 L=322)   535    158        1 ( 936/ 605-1017/ 685) -78.7 E15-E09 S15-S10
     16  892  645 (S11E17 L=316)   250    110        0 ( 856/ 590- 913/ 678) -90.0 E18-E16 S14-S08
     17 1150  496 (S27E07 L=326)   242    121        0 (1133/ 432-1173/ 541)  45.0 E10-E04 S30-S24
     18  416  377 (S17E65 L=269)  3179    224        6 ( 349/ 288- 476/ 452) -79.7 E81-E57 S25-S11
     19  625  370 (S22E46 L=288)   888    112        1 ( 597/ 304- 660/ 424)  38.7 E52-E41 S26-S18
     20 1206  320 (S42E11 L=323)   517     99        1 (1188/ 272-1220/ 378)  53.1 E13-E07 S45-S37
     21 1412  270 (S56W04 L=337)  1242    158        2 (1340/ 248-1488/ 295) -25.0 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