Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  501 1237 (N31E28 L= 37)  1826    369        1 ( 355/1186- 666/1273) -18.4 E40-E16 N24-N34
      2  426 1018 (N20E37 L= 28)  1217    318        0 ( 306/ 957- 566/1093) -35.8 E46-E28 N13-N26
      3  188  949 (N20E62 L=  3)  1233    186        1 ( 152/ 869- 249/1025) -50.7 E66-E56 N14-N25
      4  675  888 (N07E23 L= 41)   229     88        1 ( 661/ 859- 696/ 949)  80.5 E24-E22 N04-N10
      5 1828  901 (S25W51 L=116)   407     53        1 (1803/ 872-1852/ 929)   9.5 W48-W54 S26-S24
      6 1485  812 (S19W21 L= 86)   258     87        0 (1469/ 761-1498/ 854)  59.0 W19-W22 S21-S16
      7  865  774 (S04E15 L= 49)   200     43        0 ( 843/ 750- 882/ 801)  18.4 E17-E13 S05-S02
      8 1752  602 (S43W43 L=108)   497     69        2 (1728/ 582-1784/ 627)   0.0 W39-W47 S44-S40
      9 1616  529 (S43W27 L= 92)   338     52        0 (1586/ 513-1649/ 548)   0.0 W24-W30 S43-S41
     10  391  440 (S13E63 L=  2)  2083    270        5 ( 321/ 384- 469/ 510) -59.0 E71-E56 S17-S07
     11  928  284 (S37E32 L= 33)  1798    234        4 ( 838/ 204-1004/ 366)  17.7 E44-E22 S41-S32
     12  519  287 (S26E65 L=  0)  1335    111        3 ( 467/ 256- 552/ 320) -80.5 E70-E59 S28-S22
     13  781  199 (S39E51 L= 14)   420     73        0 ( 764/ 177- 809/ 235)  45.0 E54-E46 S41-S35
  

    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