Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1482 1526 (N24W44 L=106)   537    119        0 (1425/1489-1528/1558) -60.3 W41-W46 N20-N27
      2 1117 1483 (N31W18 L= 80)   493     72        2 (1085/1445-1148/1516) -53.1 W15-W19 N29-N33
      3 1487 1355 (N14W37 L= 98)   396    118        0 (1472/1295-1503/1412)  45.0 W34-W40 N11-N17
      4 1690 1312 (N07W50 L=112)  1326    198        3 (1619/1257-1769/1378) -41.6 W45-W57 N02-N11
      5  404 1324 (N38E39 L= 23)   306     26        0 ( 382/1302- 430/1347) -26.6 E41-E36 N35-N39
      6  636 1222 (N27E20 L= 41)   210     55        2 ( 613/1195- 661/1248)  18.4 E21-E18 N25-N27
      7 1511 1091 (S01W30 L= 92)   614    186        0 (1497/1005-1528/1191)  73.3 W28-W32 S05-N05
      8  962 1116 (N14E02 L= 60)   667    300        0 ( 886/1048-1033/1170) -49.4 E07-W01 N08-N16
      9 1912 1050 (S15W66 L=128)  4515    247        5 (1876/ 939-1943/1151)  77.0 W60-W74 S22-S08
     10  194 1109 (N27E62 L=360)   486     95        1 ( 171/1069- 225/1148) -32.0 E65-E57 N24-N29
     11 1852  979 (S17W56 L=118)  1393    242        2 (1821/ 881-1884/1082) -85.6 W54-W60 S23-S10
     12  470 1019 (N18E35 L= 26)  1689    432        2 ( 311/ 962- 640/1073) -24.6 E48-E24 N11-N22
     13  928 1033 (N10E05 L= 56)   196     77        0 ( 887/1005- 956/1060) -59.0 E07-E03 N07-N12
     14 1793  918 (S19W49 L=111)  1179    168        3 (1739/ 862-1836/ 983) -55.0 W44-W54 S23-S13
     15 1334  763 (S15W12 L= 74)   587    152        0 (1287/ 696-1373/ 833)  40.6 W08-W16 S17-S11
     16  250  749 (N05E60 L=  1)   555     99        1 ( 238/ 698- 269/ 801)  74.1 E62-E58 N01-N08
     17 1578  516 (S39W27 L= 88)  5602    812        4 (1210/ 307-1839/ 683)   5.4 E06-W57 S44-S34
     18 1118  638 (S17E03 L= 58)   454    137        0 (1071/ 610-1185/ 680) -50.2 E05-W00 S19-S13
     19  550  548 (S11E41 L= 20)   431     79        0 ( 511/ 526- 595/ 577) -45.0 E43-E38 S13-S09
     20 1435  222 (S64W14 L= 75)   629     59        0 (1417/ 203-1460/ 252) -53.1 W10-W20 S70-S58
     21 1384  204 (S64W06 L= 67)   698     72        1 (1369/ 177-1404/ 247) -81.9 W03-W09 S70-S56
  

    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