Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  388 1505 (N25E48 L=  4)  1856    397        5 ( 311/1413- 490/1580) -24.2 E58-E37 N18-N30
      2  703 1498 (N25E23 L= 29)   277    106        0 ( 653/1476- 754/1510) -14.0 E27-E19 N23-N25
      3  869 1475 (N23E12 L= 40)   234     69        0 ( 830/1458- 900/1491) -21.8 E14-E09 N22-N24
      4 1107 1436 (N21W04 L= 56)   196     46        0 (1080/1420-1139/1453) -18.4 W02-W05 N20-N22
      5  301 1300 (N12E52 L=  1)   588    147        2 ( 267/1240- 326/1335) -56.3 E55-E48 N07-N13
      6  843 1220 (N07E12 L= 40)   322    111        1 ( 804/1173- 890/1276) -45.0 E14-E08 N04-N10
      7 1790 1182 (N10W53 L=105)   437     76        2 (1765/1156-1814/1204)  31.0 W50-W55 N08-N11
      8  566 1132 (N01E29 L= 23)   238     69        0 ( 532/1096- 598/1158)  33.7 E31-E26 N00-N02
      9 1646 1069 (N02W40 L= 92)   788    165        3 (1581/1034-1699/1123)   6.3 W35-W44 N00-N04
     10 1782  978 (S03W53 L=105)  1134    319        3 (1710/ 908-1852/1048)  34.7 W46-W59 S07-N02
     11 1668  995 (S03W42 L= 94)   363    109        0 (1632/ 960-1712/1018)  26.6 W39-W45 S04-N00
     12  382  900 (S13E42 L= 10)   360    116        1 ( 363/ 845- 421/ 949)  60.3 E44-E39 S16-S09
     13 1742  825 (S12W51 L=103)   297     69        1 (1730/ 793-1766/ 857) -56.3 W49-W53 S13-S10
     14 1483  697 (S22W32 L= 84)  1172    335        3 (1413/ 585-1525/ 849) -58.0 W25-W35 S28-S12
     15 1799  748 (S16W58 L=110)  3251    712       14 (1683/ 663-1893/ 846)   0.0 W45-W68 S21-S09
     16  397  678 (S26E44 L=  8)   945    324        3 ( 334/ 573- 444/ 801)  49.1 E52-E38 S33-S18
     17  605  593 (S32E29 L= 24)  2076    629        5 ( 434/ 442- 807/ 761)  31.4 E48-E12 S42-S20
     18 1278  741 (S20W17 L= 70)   201     47        2 (1245/ 725-1306/ 754)  14.0 W15-W19 S21-S19
     19 1736  602 (S26W56 L=108)  1831    386        4 (1681/ 555-1844/ 679)   3.2 W49-W67 S28-S20
     20 1020  479 (S39W02 L= 54)   400     91        1 ( 976/ 445-1071/ 524)  39.8 E01-W05 S41-S35
     21 1518  479 (S36W41 L= 93)   595     73        0 (1479/ 445-1551/ 520)  59.0 W38-W43 S38-S32
  

    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