Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  674 1750 (N33E50 L=269)   711     93        2 ( 644/1704- 706/1790) -24.8 E57-E44 N29-N35
      2  460 1662 (N22E62 L=257)  1149    149        1 ( 439/1590- 481/1715) -34.7 E72-E57 N16-N25
      3  514 1626 (N20E54 L=266)   864    186        0 ( 469/1557- 559/1711) -65.6 E57-E51 N15-N26
      4 1255 1684 (N45E04 L=315)   483     75        1 (1219/1664-1295/1703)   8.1 E07-W00 N42-N46
      5  343 1579 (N14E69 L=251)  1343     96        2 ( 306/1533- 378/1619) -56.3 E72-E64 N10-N16
      6  621 1558 (N18E41 L=279)   483     75        2 ( 581/1529- 649/1583)  -8.1 E44-E37 N16-N20
      7  309 1422 (N04E61 L=259)   451     65        1 ( 275/1404- 338/1443)  36.9 E64-E57 N02-N05
      8 1122 1271 (N13E00 L=319)   392    161        2 (1093/1207-1148/1349) -49.4 E04-W02 N09-N17
      9 1624 1279 (N27W33 L=352)   476     88        1 (1602/1232-1649/1319)  90.0 W31-W35 N24-N30
     10 1899 1124 (N26W66 L= 26)  3251    252        3 (1854/1015-1939/1252) -40.9 W59-W76 N20-N33
     11 1807 1135 (N24W52 L= 12)   364     49        1 (1787/1112-1828/1158) -11.3 W49-W55 N22-N25
     12  420 1133 (S11E41 L=279)   256     27        0 ( 396/1117- 443/1148)  26.6 E42-E38 S11-S09
     13 1864 1060 (N21W61 L= 20)   436     35        2 (1843/1040-1886/1078)   8.1 W57-W64 N19-N22
     14 1860  981 (N16W61 L= 21)   887    152        1 (1813/ 942-1897/1031)  -8.7 W54-W67 N14-N18
     15  303  772 (S36E48 L=271)   665    113        1 ( 270/ 724- 351/ 800)  33.7 E52-E42 S39-S32
     16 1123  682 (S20W15 L=334)   313    140        0 (1101/ 628-1157/ 744) -76.0 W13-W17 S23-S15
     17  452  621 (S42E32 L=287)  1391    252        3 ( 344/ 594- 573/ 659)   7.1 E44-E20 S44-S38
     18 1430  605 (S17W37 L=356)   407     80        2 (1394/ 581-1465/ 624)   0.0 W33-W40 S18-S15
     19 1530  418 (S25W56 L= 15)   343     35        0 (1506/ 401-1555/ 433)  26.6 W53-W57 S25-S23
  

    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