Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1142 1469 (N28W21 L=254)   489    143        1 (1060/1450-1207/1484) -24.0 W15-W24 N25-N30
      2 1582 1438 (N13W47 L=281)  1485    305        4 (1479/1393-1703/1475) -14.7 W38-W57 N08-N15
      3  281 1112 (N29E48 L=185)  1621    309        4 ( 247/ 954- 329/1243)  60.6 E53-E42 N20-N36
      4  966 1132 (N14E00 L=233)  1853    555       10 ( 770/1102-1166/1172) -22.2 E12-W10 N08-N18
      5 1570  978 (S11W31 L=264)   617    233        1 (1517/ 891-1614/1033)  40.6 W27-W34 S15-S07
      6 1901  961 (S24W59 L=293)   935    136        1 (1882/ 891-1921/1023)  54.5 W56-W62 S27-S20
      7  583  946 (N13E28 L=205)   211     80        0 ( 564/ 902- 603/ 984)  45.0 E30-E25 N11-N15
      8  251  806 (N12E58 L=175)  1025    145        4 ( 220/ 752- 294/ 858) -69.4 E61-E54 N07-N15
      9  590  758 (N02E32 L=201)   672    139        1 ( 551/ 717- 641/ 828) -81.9 E34-E29 N00-N07
     10  963  545 (S19E17 L=217)  2213    486        5 ( 797/ 361-1062/ 690) -90.0 E22-E13 S32-S06
     11  391  532 (S07E56 L=177)   649    106        2 ( 350/ 513- 432/ 555) -15.9 E60-E52 S08-S05
     12  821  359 (S27E33 L=200)   271     53        0 ( 793/ 335- 844/ 378) -76.0 E34-E31 S29-S25
     13  574  246 (S30E60 L=174)  1102    224        2 ( 550/ 208- 595/ 280)  33.7 E64-E54 S33-S27
  

    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