Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  333 1087 (S13E46 L=291)  1756    323        4 ( 193/1023- 407/1178)  18.4 E59-E40 S17-S07
      2 1616 1083 (N08W35 L= 13)   472    129        0 (1598/1015-1630/1153) -76.0 W33-W36 N04-N12
      3 1237 1107 (N02W11 L=348)   225     60        1 (1214/1083-1263/1138) -33.7 W09-W12 N00-N03
      4  618 1082 (S10E25 L=312)   205     84        0 ( 578/1052- 664/1099)  38.7 E27-E22 S12-S08
      5  123  919 (S25E66 L=271)  1810    259        0 (  93/ 833- 154/ 987)  71.6 E69-E62 S29-S20
      6 1774  927 (N04W51 L= 29)   606     74        1 (1752/ 873-1798/ 971) -80.5 W49-W53 N00-N06
      7  639  891 (S21E21 L=316)   247     87        0 ( 610/ 851- 677/ 926)  59.0 E23-E19 S23-S18
      8  639  790 (S27E20 L=317)   210     64        0 ( 614/ 761- 665/ 822)  68.2 E21-E18 S29-S24
      9 1316  724 (S18W24 L=  1)   495    158        1 (1234/ 698-1376/ 771)  36.9 W18-W26 S20-S14
     10 1632  713 (S12W45 L= 23)   619    165        0 (1566/ 677-1683/ 732)   5.7 W40-W50 S13-S10
     11  436  625 (S41E36 L=301)   806    337        1 ( 351/ 564- 529/ 727)  37.9 E46-E28 S46-S32
     12 1715  629 (S14W56 L= 33)   787    184        3 (1681/ 545-1753/ 711) -68.2 W52-W59 S19-S09
     13 1269  611 (S26W24 L=  2)   301     84        0 (1225/ 593-1310/ 639)  45.0 W21-W26 S27-S23
     14 1498  467 (S29W46 L= 23)  4019    688        6 (1257/ 429-1724/ 526)  17.5 W29-W67 S35-S20
  

    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