Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1806 (N45E19 L= 42)   499     61        1 (1047/1776-1093/1837) -33.7 E22-E16 N42-N48
      2 1161 1627 (N33E05 L= 55)   422     95        1 (1117/1602-1216/1657)   0.0 E08-E01 N31-N34
      3 1360 1527 (N31W10 L= 71)   948    182        3 (1314/1463-1424/1595) -31.0 W05-W15 N28-N34
      4 1637 1504 (N38W33 L= 94)  1307    133        3 (1592/1446-1668/1569) -83.7 W28-W36 N33-N42
      5  478 1297 (S01E39 L= 22)   382     48        0 ( 451/1270- 508/1324)  33.7 E41-E37 S02-N00
      6 1678 1090 (N12W39 L=100)  1840    500        5 (1635/ 858-1714/1286) -66.5 W33-W45 S01-N22
      7  424 1222 (S06E42 L= 19)   340     42        0 ( 396/1200- 451/1247) -21.8 E44-E39 S07-S04
      8 1828 1170 (N21W53 L=113)   549     75        2 (1801/1148-1859/1205)  -9.5 W49-W56 N19-N22
      9 1871 1037 (N15W59 L=120)  1836    242        5 (1828/ 920-1895/1136) -85.9 W54-W64 N07-N21
     10 1809 1076 (N15W51 L=112)   315     51        1 (1789/1049-1826/1103) -33.7 W48-W53 N13-N16
     11  268  947 (S25E52 L=  9)   456     90        1 ( 252/ 901- 282/ 985)  90.0 E53-E50 S27-S22
     12  383  653 (S42E42 L= 19)   363     84        0 ( 352/ 620- 424/ 680)  29.1 E46-E37 S44-S39
     13 1715  645 (S11W56 L=117)   559     76        1 (1687/ 603-1742/ 672)  68.2 W53-W58 S14-S09
     14 1196  620 (S26W20 L= 81)   320     96        0 (1153/ 589-1241/ 649)  -7.1 W16-W24 S27-S25
     15 1420  537 (S25W38 L= 99)   929    179        3 (1351/ 478-1484/ 595) -12.1 W32-W46 S27-S23
     16 1339  404 (S35W40 L=101)   719    141        1 (1275/ 376-1410/ 441)   4.1 W33-W47 S36-S34
     17 1266  331 (S42W41 L=101)   441     76        1 (1246/ 296-1296/ 365) -12.5 W36-W45 S44-S39
     18 1554  311 (S34W69 L=130)   821     94        2 (1504/ 295-1603/ 335)  35.5 W63-W73 S36-S31
     19 1358  241 (S45W59 L=119)   811     63        0 (1334/ 204-1381/ 283) -22.6 W52-W65 S47-S42
  

    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