Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1539 (N28W31 L=337)   331     64        0 (1219/1525-1293/1554)  -9.5 W28-W34 N27-N29
      2 1745 1463 (N08W64 L=  9)   479     55        3 (1720/1439-1775/1485) -31.0 W61-W67 N06-N09
      3 1400 1461 (N20W36 L=342)   363    116        1 (1335/1448-1459/1478) -18.4 W31-W40 N17-N21
      4  944 1453 (N33W08 L=314)   738    209        0 ( 840/1435-1043/1472) -24.8 W01-W15 N30-N36
      5 1818 1139 (S11W56 L=  1)  1071    270        1 (1758/1031-1866/1199) -90.0 W49-W60 S18-S07
      6  693 1143 (N22E16 L=289)   379    103        1 ( 651/1104- 738/1177)   8.1 E19-E12 N20-N23
      7  491 1141 (N27E31 L=275)   250     57        0 ( 463/1121- 525/1158)   0.0 E32-E27 N25-N27
      8  490  404 (S17E56 L=250)  1512    183        4 ( 432/ 365- 580/ 466) -37.9 E59-E49 S20-S11
  

    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