Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  797 1803 (N45E31 L=260)  1155    107        3 ( 748/1775- 862/1833)  -8.7 E37-E24 N42-N48
      2 1161 1698 (N40W02 L=293)   418    128        0 (1100/1676-1218/1716)  20.6 E02-W06 N37-N42
      3 1624 1618 (N42W44 L=335)   676    101        1 (1582/1591-1677/1641) -12.5 W38-W50 N39-N42
      4  465 1485 (N19E43 L=247)  1396    250        2 ( 397/1395- 551/1578) -30.1 E54-E34 N13-N24
      5  747 1504 (N22E23 L=268)   256     88        1 ( 723/1463- 777/1545) -51.3 E25-E20 N19-N24
      6 1384 1247 (N12W20 L=311)   595    266        1 (1308/1173-1470/1361) -42.3 W14-W25 N07-N18
      7 1724 1285 (N19W46 L=337)   773    216        1 (1655/1236-1814/1355) -19.7 W39-W54 N17-N22
      8 1656 1195 (N12W40 L=330)   576    148        0 (1612/1134-1699/1262) -40.6 W36-W43 N09-N15
      9 1878  868 (S03W65 L=356)   459     62        1 (1857/ 840-1897/ 904)  90.0 W63-W68 S05-S01
     10  674  712 (S27E20 L=271)  1353    426        0 ( 575/ 538- 796/ 873)  53.5 E29-E12 S39-S16
     11 1152  830 (S16W10 L=301)   185     73        0 (1120/ 813-1191/ 847)   0.0 W07-W12 S16-S14
     12 1659  792 (S11W45 L=336)   246     46        0 (1644/ 769-1676/ 824) -56.3 W42-W46 S12-S09
     13 1795  593 (S21W68 L=359)   900     88        2 (1750/ 558-1837/ 617)   4.1 W60-W74 S22-S19
     14  946  581 (S33E01 L=290)   201     45        1 ( 917/ 566- 973/ 597)  33.7 E02-W01 S34-S31
  

    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