Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1274 1680 (N48W19 L=250)   288     60        0 (1257/1653-1303/1699)  31.0 W17-W22 N45-N49
      2 1409 1636 (N45W31 L=262)   512     72        1 (1370/1611-1449/1656)  21.8 W26-W36 N42-N46
      3 1550 1617 (N44W46 L=277)   386     26        1 (1533/1592-1570/1638)  26.6 W42-W48 N41-N45
      4 1668 1604 (N43W61 L=292)  1563    132        2 (1614/1573-1739/1633)   4.2 W50-W77 N40-N44
      5  687 1576 (N37E29 L=201)   543    109        2 ( 652/1547- 736/1612) -14.0 E33-E25 N34-N39
      6  308 1455 (N26E61 L=170)   482     79        0 ( 291/1419- 318/1501) -59.0 E63-E58 N23-N28
      7  670 1365 (N22E25 L=205)   312     69        1 ( 651/1328- 693/1397)  78.7 E26-E24 N19-N24
      8 1717 1137 (N11W48 L=279)  3374    462       10 (1617/ 946-1777/1324) -70.0 W41-W53 N00-N22
      9  990 1195 (N13E03 L=228)   631    265        0 ( 896/1114-1058/1289) -45.0 E09-W01 N08-N18
     10  835 1207 (N13E13 L=218)   347     71        3 ( 810/1170- 859/1241)  90.0 E14-E11 N10-N15
     11 1219 1112 (N09W12 L=242)   419    114        1 (1197/1064-1256/1162) -71.6 W10-W14 N05-N11
     12 1051  987 (N01W02 L=233)   751    194        1 (1008/ 903-1092/1064)  83.7 W00-W04 S04-N05
     13 1328  826 (S08W20 L=251)   982    244        1 (1294/ 722-1373/ 939)  81.3 W17-W22 S14-S01
     14  614  845 (S10E25 L=205)   618    204        1 ( 564/ 775- 675/ 934) -55.0 E28-E21 S14-S04
     15  880  811 (S11E08 L=223)   292    110        0 ( 814/ 791- 927/ 828)  -8.1 E12-E05 S12-S10
     16 1855  733 (S14W68 L=299)  1683    122        4 (1828/ 662-1878/ 780) -45.0 W63-W75 S18-S10
     17 1767  647 (S19W59 L=290)   481     88        0 (1740/ 621-1799/ 689) -29.1 W54-W64 S21-S16
     18 1232  608 (S23W16 L=246)   752    136        2 (1175/ 561-1292/ 653)  35.5 W12-W19 S26-S19
     19 1181  496 (S31W14 L=244)   326     66        1 (1151/ 473-1212/ 525)   0.0 W11-W15 S32-S28
     20 1446  285 (S47W47 L=278)   456     28        2 (1422/ 266-1473/ 304)   0.0 W43-W51 S49-S45
     21  906  231 (S55E07 L=223)  2495    299        4 ( 787/ 203-1057/ 265)  12.7 E23-W08 S59-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