Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  940 1859 (N58E05 L= 34)  1463    114        3 ( 898/1808- 995/1899)  45.0 E10-W01 N52-N63
      2 1752 1476 (N24W59 L= 98)  4765    434       15 (1596/1346-1854/1633) -53.6 W46-W74 N16-N35
      3  415 1362 (N20E41 L=358)   398    116        0 ( 386/1297- 439/1406)  74.1 E42-E39 N16-N23
      4  645 1346 (N18E23 L= 15)   454    175        0 ( 595/1275- 670/1396) -76.0 E27-E21 N13-N21
      5  221 1095 (N05E57 L=342)  1581    293        1 ( 138/ 996- 264/1221)  42.7 E67-E52 N00-N12
      6  231  650 (S22E65 L=333)  3270    266        7 ( 177/ 553- 301/ 755)  67.4 E72-E58 S27-S15
      7 1828  693 (S24W64 L=102)   810    120        0 (1799/ 638-1854/ 751)  90.0 W61-W65 S27-S20
      8 1542  619 (S29W36 L= 75)   317    101        0 (1490/ 593-1585/ 646) -18.4 W31-W40 S30-S26
      9  927  629 (S27E08 L= 31)   223     86        0 ( 884/ 616- 969/ 641)  -9.5 E10-E04 S27-S25
     10 1402  550 (S33W26 L= 65)   863    300        0 (1334/ 421-1481/ 631)  65.0 W23-W31 S42-S27
     11  654  585 (S28E27 L= 11)   299     96        0 ( 603/ 562- 703/ 609)  14.0 E31-E23 S29-S26
     12 1071  335 (S49W01 L= 40)   629    195        2 ( 978/ 314-1157/ 360) -14.9 E06-W09 S50-S46
     13  779  286 (S51E28 L= 11)   783    106        1 ( 726/ 256- 824/ 327)  15.9 E35-E21 S54-S48
  

    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