Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  814 1855 (N66W19 L= 23)  1365    157        1 ( 764/1798- 860/1917)  15.7 W07-W39 N61-N72
      2  914 1882 (N64W33 L= 37)   474     41        0 ( 900/1852- 926/1911)  28.3 W28-W41 N60-N67
      3 1170 1754 (N43W37 L= 41)   732    113        0 (1140/1712-1199/1800)  26.6 W31-W41 N40-N47
      4  935 1750 (N51W19 L= 23)   522     63        1 ( 892/1733- 975/1767) -26.6 W15-W22 N48-N53
      5 1462 1644 (N28W49 L= 53)   640    125        0 (1407/1617-1519/1683) -50.2 W47-W53 N24-N31
      6 1200 1621 (N34W29 L= 33)   262     51        1 (1179/1591-1218/1649)  53.1 W28-W31 N31-N35
      7 1364 1544 (N25W36 L= 40)   429    151        0 (1283/1527-1430/1558) -16.7 W30-W40 N22-N26
      8 1565 1463 (N15W46 L= 50)   378     71        1 (1539/1423-1583/1490)  63.4 W43-W48 N12-N16
      9  921 1434 (N30W04 L=  8)   469    155        0 ( 846/1395- 979/1452) -49.4 W00-W07 N25-N32
     10 1200 1428 (N22W21 L= 25)   391    211        1 (1090/1417-1296/1442) -22.6 W14-W26 N19-N24
     11 1140 1367 (N20W15 L= 19)   288    109        0 (1088/1354-1194/1388) -33.7 W12-W18 N18-N22
     12  812 1303 (N24E06 L=358)   217     67        1 ( 783/1285- 845/1325) -53.1 E07-E04 N22-N26
     13  352 1128 (N25E42 L=322)   432     81        0 ( 322/1091- 392/1161) -51.3 E44-E38 N21-N26
     14  314 1002 (N18E47 L=317)   485     85        1 ( 289/ 974- 346/1036) -59.0 E49-E44 N15-N20
     15  846  677 (S12E19 L=345)   298     73        1 ( 823/ 643- 871/ 708)  36.9 E20-E16 S13-S10
     16 1712  649 (S37W40 L= 44)   394     33        0 (1694/ 626-1730/ 672) -63.4 W38-W42 S38-S34
     17 1295  444 (S38W02 L=  6)  1460    346        2 (1183/ 326-1398/ 557)  26.6 E09-W11 S44-S32
     18 1460  273 (S61W14 L= 18)   660     61        1 (1424/ 251-1498/ 297)  -5.2 W09-W20 S62-S58
     19 1325  187 (S65E06 L=358)   521     56        0 (1297/ 168-1354/ 206) -23.2 E09-E01 S67-S61
  

    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