Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  708 1609 (N29E28 L=126)   581    147        0 ( 681/1553- 739/1673) -66.0 E30-E24 N24-N33
      2  796 1582 (N27E21 L=133)   247     99        1 ( 755/1558- 847/1607)  26.6 E23-E17 N25-N29
      3  938 1407 (N17E09 L=145)   225     81        1 ( 893/1393- 976/1424)   0.0 E11-E06 N16-N18
      4 1749 1377 (N24W49 L=203)   949    109        2 (1704/1325-1786/1423) -56.3 W44-W52 N21-N27
      5  320 1362 (N11E51 L=102)   400     82        2 ( 294/1322- 354/1405)  78.7 E53-E49 N08-N13
      6 1285 1334 (N16W13 L=167)   545    170        3 (1210/1283-1363/1375)   0.0 W08-W18 N13-N17
      7 1129 1209 (N07W05 L=158)  1316    431        2 ( 981/1044-1206/1346) -49.1 E05-W09 S02-N13
      8 1772 1182 (N12W49 L=203)   305     65        1 (1739/1162-1795/1211)  31.0 W46-W51 N11-N14
      9  571 1131 (S02E29 L=125)   536    153        1 ( 510/1085- 639/1167) -12.5 E32-E23 S04-N00
     10 1034 1043 (S04W00 L=154)   197     69        0 (1005/1027-1078/1060) -14.0 E01-W03 S04-S03
     11  873  970 (S10E08 L=145)   307    104        2 ( 828/ 934- 924/1005)  38.7 E11-E05 S12-S07
     12  140  878 (S18E68 L= 86)   876    145        1 ( 108/ 824- 155/ 936)  66.8 E74-E65 S21-S14
     13 1423  885 (S09W26 L=180)   283     39        1 (1399/ 853-1444/ 911) -63.4 W24-W27 S11-S07
     14 1120  839 (S15W07 L=161)   189     77        1 (1102/ 806-1146/ 870) -76.0 W06-W09 S17-S13
     15  968  751 (S22E01 L=153)   605    282        1 ( 863/ 714-1101/ 799)   4.1 E07-W07 S24-S19
     16 1364  763 (S17W24 L=178)   247    133        0 (1296/ 752-1420/ 782)  20.6 W19-W27 S18-S15
     17 1563  662 (S21W40 L=194)   274    110        0 (1516/ 627-1611/ 700)  45.0 W37-W42 S23-S18
     18  384  650 (S32E45 L=109)   889    188        2 ( 308/ 615- 466/ 696)  13.2 E53-E36 S34-S29
     19 1415  458 (S36W36 L=190)   822    127        1 (1358/ 436-1492/ 490)   9.5 W31-W43 S37-S33
     20 1420  359 (S42W43 L=197)   778    133        1 (1379/ 328-1484/ 406)  -4.4 W37-W50 S44-S38
  

    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