Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  730 1808 (N37E44 L= 89)   886     96        1 ( 696/1776- 780/1846) -15.9 E51-E37 N34-N39
      2  748 1528 (N17E28 L=105)  2131    538        3 ( 606/1374- 902/1694)  74.9 E32-E23 N05-N31
      3 1268 1605 (N34W03 L=135)   282     36        1 (1248/1587-1294/1627) -33.7 W01-W04 N32-N34
      4  917 1389 (N12E14 L=119)   251    117        0 ( 881/1341- 945/1432) -38.7 E16-E11 N09-N13
      5 1868 1307 (N31W58 L=190)   693     87        1 (1832/1266-1902/1334)  -6.3 W52-W63 N29-N32
      6  316 1221 (S07E50 L= 83)   929    219        1 ( 280/1133- 356/1327) -79.7 E53-E47 S12-S01
      7 1820 1276 (N27W51 L=183)   433     68        0 (1800/1231-1836/1302) -53.1 W48-W52 N24-N28
      8 1504 1243 (N16W24 L=157)   489    104        0 (1458/1205-1549/1279) -15.9 W20-W27 N14-N17
      9  116 1161 (S12E73 L= 59)   688     51        1 (  91/1130- 134/1184) -16.7 E79-E69 S14-S11
     10  555 1122 (S10E30 L=103)   567    190        0 ( 482/1069- 627/1175)  41.2 E34-E25 S13-S05
     11 1850 1067 (N15W55 L=188)   493     94        0 (1835/1026-1866/1117) -53.1 W53-W57 N13-N17
     12 1576 1025 (N05W33 L=165)   604    163        0 (1561/ 935-1588/1109) -60.9 W30-W35 N00-N09
     13  935 1074 (S06E06 L=127)   450    220        0 ( 845/1034-1032/1107)  31.0 E10-W00 S09-S03
     14  786  840 (S22E11 L=122)   615    182        1 ( 705/ 805- 850/ 897)  32.0 E15-E07 S24-S17
     15 1273  860 (S11W18 L=150)   220    136        0 (1210/ 825-1319/ 884)   7.1 W13-W21 S12-S10
     16 1572  709 (S12W41 L=174)   665    151        4 (1542/ 644-1611/ 787) -41.2 W36-W45 S15-S08
     17 1658  701 (S10W48 L=180)   544    106        1 (1613/ 667-1690/ 740)  59.0 W45-W50 S13-S07
     18  491  714 (S35E30 L=102)   704    128        0 ( 420/ 693- 556/ 735)   9.5 E36-E24 S36-S33
     19 1743  667 (S10W57 L=189)   315     62        0 (1718/ 646-1767/ 692)  45.0 W54-W58 S10-S07
     20 1163  648 (S25W17 L=150)   384    155        1 (1095/ 633-1237/ 672)  12.5 W12-W21 S26-S23
     21 1541  536 (S22W47 L=179)  1174    250        1 (1423/ 501-1641/ 583)  37.6 W38-W52 S27-S17
     22 1403  366 (S36W47 L=180)   598     70        1 (1369/ 337-1441/ 395)   7.1 W42-W50 S37-S34
  

    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