Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  698 1674 (N33E32 L= 94)   346     40        1 ( 678/1651- 721/1699)  90.0 E33-E29 N31-N34
      2 1139 1539 (N27W02 L=128)   706    224        1 (1087/1493-1228/1616) -33.7 E02-W08 N24-N32
      3 1338 1500 (N27W16 L=142)   218     80        0 (1300/1473-1374/1522) -26.6 W12-W18 N25-N28
      4  879 1445 (N18E13 L=113)   237    126        0 ( 864/1388- 910/1503) -60.3 E15-E10 N15-N22
      5 1638 1238 (N14W37 L=163)   483    129        3 (1610/1167-1659/1290)  81.9 W35-W39 N10-N17
      6 1742 1226 (N15W46 L=172)   410     95        0 (1720/1178-1772/1274) -51.3 W44-W48 N12-N18
      7 1576 1112 (N06W33 L=159)  1355    394        0 (1436/ 959-1641/1253) -43.0 W22-W39 S02-N12
      8 1049 1064 (S03W01 L=127)   419    174        0 ( 967/1012-1108/1089) -15.9 E03-W04 S05-S01
      9  174  882 (S19E63 L= 63)  4490    381        9 ( 101/ 759- 220/1071)  55.6 E81-E56 S26-S07
     10  374  908 (S17E42 L= 84)  1253    405        2 ( 313/ 823- 444/1039) -81.3 E47-E36 S22-S09
     11  110 1008 (S12E71 L= 55)   757     54        1 (  79/ 984- 141/1030)  -9.5 E78-E66 S13-S10
     12 1448  958 (S05W26 L=152)   190     35        0 (1422/ 945-1477/ 970)  14.0 W24-W28 S05-S03
     13 1825  856 (S05W58 L=184)  1020    144        4 (1770/ 809-1886/ 903) -14.0 W51-W65 S07-S03
     14 1305  745 (S19W21 L=147)   820    352        1 (1236/ 633-1392/ 879) -45.0 W14-W28 S24-S11
     15 1750  723 (S14W54 L=180)  1991    229        5 (1672/ 656-1837/ 819)  73.3 W48-W63 S18-S08
     16 1544  724 (S17W37 L=163)   755    231        1 (1444/ 673-1636/ 765)  33.7 W31-W43 S21-S13
     17 1647  670 (S19W47 L=173)   802    188        4 (1618/ 583-1685/ 750) -68.2 W44-W50 S23-S13
     18  992  642 (S29W02 L=128)   219     65        0 ( 969/ 611-1014/ 672)  76.0 W00-W03 S30-S26
     19 1767  593 (S21W62 L=188)   391     73        2 (1743/ 556-1784/ 623) -18.4 W58-W67 S22-S19
     20  329  548 (S40E55 L= 71)  1745    200        3 ( 246/ 495- 416/ 577)   9.2 E74-E43 S43-S37
     21 1647  393 (S35W65 L=191)  1256     99        4 (1605/ 365-1695/ 430)   0.0 W57-W74 S37-S32
     22 1581  300 (S42W69 L=195)   588     59        1 (1563/ 265-1604/ 328) -38.7 W63-W75 S44-S40
  

    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