Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  389 1599 (N12E61 L=253)  1735    284        5 ( 354/1533- 421/1683) -70.0 E65-E54 N07-N18
      2  475 1627 (N15E54 L=259)   413    135        1 ( 451/1603- 512/1659) -14.0 E57-E49 N13-N17
      3  418 1509 (N07E53 L=261)   935    240        3 ( 344/1458- 472/1563)  36.9 E57-E48 N02-N10
      4  901 1408 (N11E17 L=296)   886    234        1 ( 828/1312- 965/1504) -29.7 E24-E10 N07-N15
      5  173 1124 (S19E62 L=251)  2293    490        2 (  90/1039- 303/1171)  24.2 E71-E49 S24-S15
      6  821 1058 (S10E12 L=301)   292     93        0 ( 784/1031- 846/1107)  78.7 E13-E10 S12-S07
      7  516 1019 (S19E30 L=283)   988    302        2 ( 400/ 951- 636/1106)  -9.0 E40-E21 S22-S16
      8  263  973 (S27E50 L=263)  1574    414        3 ( 151/ 925- 377/1053)  24.2 E61-E41 S31-S20
      9 1781  936 (N10W50 L=  3)   295     77        2 (1762/ 903-1798/ 969) -36.9 W47-W52 N08-N11
     10  816  882 (S20E08 L=305)   396     90        0 ( 762/ 849- 862/ 910)   0.0 E12-E04 S21-S19
     11 1337  855 (S08W22 L=335)   243     45        0 (1311/ 831-1358/ 882)  90.0 W21-W23 S09-S06
     12 1088  822 (S17W09 L=322)   193     80        0 (1047/ 791-1129/ 855) -15.9 W05-W12 S17-S15
     13 1566  705 (S09W41 L=355)   851    243        3 (1489/ 610-1650/ 805)  78.7 W38-W44 S16-S01
     14  605  710 (S36E19 L=295)   271     65        1 ( 569/ 692- 641/ 733)   0.0 E21-E15 S36-S34
     15 1466  336 (S32W54 L=  8)  2628    546        2 (1294/ 286-1627/ 377)  19.0 W40-W69 S36-S25
  

    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