Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  508 1557 (N11E49 L=  5)   473     85        2 ( 459/1535- 534/1584)  45.0 E51-E45 N08-N12
      2 1133 1464 (N21E07 L= 47)   329    116        0 (1083/1408-1176/1512) -20.6 E10-E02 N19-N23
      3 1573 1190 (N19W28 L= 81)   903    231        1 (1547/1065-1601/1307) -61.7 W23-W31 N12-N25
      4  269 1195 (S15E54 L=360)   850    222        3 ( 230/1084- 306/1297) -81.9 E57-E52 S22-S08
      5  661 1228 (S05E26 L= 28)   224     76        0 ( 642/1184- 673/1272) -68.2 E27-E25 S07-S02
      6 1732 1023 (N15W43 L= 97)  1221    185        1 (1710/ 926-1756/1112) -59.0 W39-W46 N09-N19
      7  349  894 (S31E41 L= 13)  1504    434        2 ( 206/ 862- 498/ 940)   6.3 E55-E28 S33-S28
      8 1141  878 (S11W10 L= 64)   257     73        0 (1114/ 834-1172/ 915)  78.7 W09-W11 S13-S08
      9 1571  745 (S05W41 L= 94)   244     54        0 (1542/ 725-1593/ 768)  33.7 W38-W42 S06-S03
     10 1026  714 (S23W09 L= 63)   431    111        0 ( 973/ 679-1080/ 752)  60.3 W07-W11 S26-S19
     11 1201  440 (S33W31 L= 85)  1503    301        3 (1087/ 386-1335/ 532)  59.0 W25-W35 S39-S24
     12 1498  436 (S23W51 L=105)  1311    216        0 (1389/ 402-1586/ 507)  53.1 W43-W54 S28-S16
     13 1617  385 (S21W64 L=118)   551     80        0 (1577/ 355-1653/ 419)  63.4 W62-W66 S24-S18
  

    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