Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  603 1722 (N32E45 L=284)   388     51        0 ( 574/1705- 629/1739)  11.3 E47-E41 N30-N33
      2  304 1468 (N12E58 L=270)  1029    134        2 ( 268/1417- 333/1516) -54.5 E64-E54 N08-N15
      3 1163 1399 (N18W03 L=331)   554    210        0 (1069/1384-1270/1419)   4.8 E03-W09 N16-N19
      4 1407 1382 (N21W18 L=346)   265     58        2 (1386/1351-1429/1413)  90.0 W17-W19 N18-N22
      5  474 1374 (N07E40 L=288)   386     85        1 ( 427/1352- 518/1393)  18.4 E43-E37 N05-N08
      6 1543 1279 (N17W28 L=357)  1757    272        4 (1435/1186-1623/1362) -26.6 W20-W34 N11-N21
      7  345 1302 (N02E49 L=280)   580     75        0 ( 323/1258- 371/1346) -76.0 E50-E47 N00-N04
      8  222 1302 (N01E61 L=267)   523     69        2 ( 193/1278- 265/1323)   0.0 E64-E55 N00-N02
      9 1093 1254 (N08W01 L=329)   223     58        0 (1071/1219-1108/1282) -71.6 E01-W01 N05-N09
     10 1445 1228 (N12W22 L=350)   557    112        3 (1405/1184-1474/1277) -80.5 W19-W24 N09-N15
     11 1521 1081 (N05W29 L=357)   257    101        0 (1466/1068-1569/1095)  15.9 W25-W32 N04-N06
     12 1739  890 (S02W48 L= 17)   469    112        0 (1682/ 873-1793/ 908)  18.4 W44-W53 S03-N00
     13  462  820 (S26E34 L=294)   970    266        0 ( 364/ 760- 597/ 859)  22.8 E43-E24 S30-S21
     14 1259  641 (S25W21 L=350)  3724    886        3 ( 976/ 551-1646/ 804)   7.1 W02-W51 S29-S18
     15  494  656 (S36E32 L=296)   378     77        1 ( 458/ 639- 527/ 681)  26.6 E35-E29 S36-S33
     16 1825  595 (S15W71 L= 39)   721    123        1 (1775/ 560-1868/ 627)  33.7 W66-W77 S18-S12
     17  438  537 (S45E40 L=288)  1341    327        3 ( 283/ 512- 584/ 563)   1.6 E60-E25 S46-S42
     18  722  506 (S43E13 L=315)   438    112        1 ( 668/ 477- 777/ 534) -12.5 E17-E08 S43-S41
     19  957  451 (S42W06 L=334)   253     85        1 ( 921/ 440-1007/ 470)   0.0 W02-W10 S43-S41
  

    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