Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  986 1850 (N60W39 L=263)   452     50        1 ( 961/1822-1009/1873)   5.2 W33-W44 N57-N61
      2 1169 1483 (N29W22 L=246)   466    117        0 (1111/1450-1230/1504) -50.2 W19-W25 N25-N31
      3 1264 1361 (N19W23 L=247)   653    218        0 (1165/1323-1361/1381) -18.4 W16-W28 N15-N21
      4 1285 1184 (N09W19 L=243)   228    123        0 (1246/1130-1307/1230)  33.7 W15-W21 N07-N11
      5  223  974 (N21E58 L=166)   373     82        1 ( 193/ 958- 267/1003) -20.6 E61-E53 N19-N22
      6  659  930 (N10E23 L=201)   277     56        1 ( 631/ 906- 687/ 951) -56.3 E25-E21 N08-N11
      7 1320  674 (S20W08 L=232)   265     53        1 (1299/ 652-1347/ 706)  56.3 W06-W09 S21-S18
      8 1641  553 (S40W31 L=255)  1988    435        1 (1486/ 431-1807/ 683)  11.6 W15-W49 S44-S36
      9  600  618 (S06E36 L=188)   374     99        0 ( 556/ 577- 629/ 647) -68.2 E37-E34 S09-S03
     10 1390  593 (S28W11 L=235)   314     64        0 (1372/ 562-1416/ 628) -80.5 W09-W12 S30-S24
     11  851  505 (S19E24 L=200)   403    123        1 ( 828/ 462- 896/ 561) -81.9 E25-E22 S21-S14
     12  983  510 (S22E16 L=208)   494    128        0 ( 932/ 477-1019/ 561)  15.9 E19-E12 S23-S19
     13  480  331 (S23E63 L=161)  2857    216        2 ( 435/ 240- 519/ 423)  32.5 E76-E51 S30-S16
     14 1357  330 (S47W02 L=226)  1318    197        1 (1264/ 290-1432/ 389)   7.6 E06-W09 S48-S43
     15  902  285 (S35E32 L=192)   501    110        0 ( 869/ 240- 922/ 334)  37.9 E37-E28 S38-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