Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1576 1592 (N31W47 L=152)  1134    190        0 (1502/1527-1647/1652) -52.1 W41-W51 N26-N35
      2  996 1614 (N36W02 L=107)   502     90        0 ( 959/1584-1033/1644) -45.0 W00-W04 N33-N38
      3 1403 1532 (N28W30 L=135)  1290    268        2 (1312/1457-1499/1623) -50.2 W25-W35 N22-N34
      4  651 1467 (N28E23 L= 82)   531    210        0 ( 588/1387- 728/1519)  41.6 E27-E17 N22-N30
      5 1081 1409 (N21W06 L=111)   209     27        0 (1059/1390-1100/1430)  45.0 W04-W06 N19-N22
      6  266 1362 (N24E56 L= 49)   747    115        2 ( 239/1306- 300/1411)  63.4 E58-E52 N20-N26
      7 1055 1338 (N17W04 L=109)   286    110        1 ( 996/1319-1106/1367)   9.5 W00-W06 N15-N18
      8 1534  803 (S18W32 L=137)   265    100        0 (1514/ 754-1550/ 851)  80.5 W31-W33 S20-S14
      9 1021  654 (S25E02 L=103)   507    156        0 (1004/ 591-1053/ 727) -82.9 E03-W00 S28-S20
     10 1707  653 (S28W50 L=155)   319     50        1 (1685/ 630-1730/ 679)  71.6 W47-W51 S29-S26
     11 1765  574 (S33W61 L=166)  1637    197        2 (1695/ 500-1831/ 650)  45.0 W54-W67 S38-S28
     12 1522  481 (S39W37 L=142)   771    123        1 (1493/ 422-1544/ 536) -82.9 W33-W40 S43-S35
     13 1644  462 (S41W52 L=157)   549     56        2 (1621/ 436-1675/ 490) -14.0 W47-W55 S43-S38
     14  607  278 (S49E50 L= 55)   557     77        0 ( 583/ 258- 639/ 314)  78.7 E54-E45 S50-S45
     15 1374  253 (S58W34 L=139)   579     69        0 (1341/ 235-1406/ 273) -10.3 W27-W38 S60-S55
  

    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