Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1384 1504 (N25W37 L=272)  1350    309        3 (1250/1474-1500/1545) -11.3 W27-W47 N20-N27
      2  800 1482 (N40E02 L=232)   743    167        1 ( 729/1455- 877/1509) -29.1 E08-W03 N36-N42
      3  591 1463 (N44E20 L=214)   258     48        0 ( 573/1436- 607/1485) -63.4 E21-E18 N42-N46
      4 1745 1461 (N11W65 L=299)   465     77        0 (1699/1448-1781/1477) -11.3 W59-W69 N09-N11
      5 1474 1413 (N17W39 L=273)   355     62        1 (1449/1388-1500/1440) -76.0 W37-W40 N14-N18
      6 1573 1370 (N12W44 L=278)   329    104        0 (1547/1344-1611/1410) -78.7 W42-W46 N09-N14
      7  883 1224 (N22E03 L=231)   839    322        2 ( 739/1152-1009/1279) -38.2 E12-W02 N15-N27
      8  380 1101 (N26E42 L=192)  1750    372        4 ( 232/1006- 512/1223) -34.7 E58-E32 N17-N35
      9  172 1163 (N32E67 L=167)   595     99        2 ( 154/1124- 201/1202) -35.5 E71-E61 N29-N34
     10  389  865 (N11E45 L=190)   391    147        1 ( 335/ 831- 444/ 890)   5.7 E49-E39 N09-N12
     11  719  750 (S02E24 L=210)   468    139        0 ( 679/ 702- 744/ 818)  35.5 E28-E21 S03-N02
     12 1553  743 (S23W26 L=260)   546    197        0 (1482/ 678-1613/ 806)  18.4 W19-W31 S25-S21
     13 1398  711 (S21W15 L=249)   779    187        2 (1365/ 622-1426/ 791)  52.1 W10-W17 S25-S15
     14 1741  532 (S47W47 L=281)  1023     88        2 (1697/ 504-1783/ 557) -20.6 W39-W55 S49-S42
     15 1575  412 (S50W26 L=260)   756     83        1 (1543/ 372-1606/ 448)  63.4 W22-W30 S53-S46
     16  446  375 (S20E63 L=171)   683     63        2 ( 420/ 350- 476/ 405)  15.3 E69-E58 S22-S18
     17 1492  370 (S50W17 L=251)   516     46        2 (1468/ 343-1513/ 401)  78.7 W14-W19 S53-S46
     18 1221  339 (S42E07 L=227)   672    120        1 (1185/ 307-1261/ 383)  29.7 E09-E02 S44-S38
     19  732  312 (S30E42 L=192)   330     49        0 ( 708/ 292- 756/ 330) -56.3 E44-E39 S31-S28
     20  800  253 (S36E42 L=192)   769    109        1 ( 766/ 214- 822/ 294)  26.6 E49-E37 S40-S33
  

    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